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

• #45179 Delila_1 veterán xenom0rph #45175

  Új Válasz 2020-10-28 11:28:31 #45179

  Ú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 xenom0rph #45175 üzenetére

  A makrót a laphoz kell rendelned. Az F2 cellában érvényesítés biztosítja, hogy csak az A oszlopban szereplő értékek közül lehessen választani.

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor As Integer

If Target.Address = "$F$2" Then
sor = Application.Match(Target, Columns(1), 0)
MsgBox "B = " & Cells(sor, 2) & vbLf & "C =" & Cells(sor, 3) & vbLf & _
"D = " & Cells(sor, 4), vbInformation
End If
End Sub

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