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

• #37681 Delila_1 veterán tzimash #37680

  Új Válasz 2018-03-31 07:46:00 #37681

  Ú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 tzimash #37680 üzenetére

  Nem kellenek gombok, elég egy, a laphoz rendelt makró.

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oszlop As Long, sor As Long, B, C, E, F, I
sor = Selection.Row

Range("A1").CurrentRegion.Interior.Color = xlNone
Range("A" & sor & ":I" & sor).Interior.Color = vbYellow
B = Cells(sor, "B")
C = Cells(sor, "C")
E = Cells(sor, "E")
F = Cells(sor, "F")
I = Cells(sor, "I")

MsgBox B & vbLf & C & vbLf & E & vbLf & F & vbLf & I
End Sub

  Az üzenet (Msgbox) helyett műveleteket végezhetsz az aktív sor celláinak az értékével.

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