Új hozzászólás Aktív témák

• #18521 Delila_1 veterán rebb #18520

  Új Válasz 2013-07-14 08:17:42 #18521

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz rebb #18520 üzenetére

  Mégis sikerült összehozni valamit.
  Az első lapon duplaklikkre sárga lesz a háttér, a másodikon az azonos című cella felveszi az SZ értéket.

  Az első makrót az első laphoz rendeld, a másodikat modulba tedd.

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim cella$
  If Not Intersect(Target, Range("A3:H3")) Is Nothing Then
  cella$ = Target.Address
  Range(cella$).Interior.ColorIndex = 36
  SZ (cella$)
  End If
  End Sub

  Sub SZ(cella$)
  Sheets("Munka2").Range(cella$) = "SZ"
  End Sub

Új hozzászólás Aktív témák