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

• #47612 Delila_1 veterán ReSeTer #47611

  Új Válasz 2021-10-19 13:48:06 #47612

  Ú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 ReSeTer #47611 üzenetére

  Sub Talalat()
    Dim talal
    On Error Resume Next
    talal = Application.Match(Range("G1"), Columns(1), 0)
    If VarType(talal) = vbError Then
        MsgBox "Nem található a G1 cella értéke az A oszlopban", vbInformation, "Hiányzó szöveg"
    Else
        MsgBox "G1 cella tartalmának sorszáma az A oszlopban: " & talal, vbInformation, "Sorszám"
    End If
    On Error GoTo 0
End Sub

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