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

• #47619 Delila_1 veterán ReSeTer #47617

  Új Válasz 2021-10-20 11:27:05 #47619

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

  Betettem két soremelést az Else ágba, hogy feltünőbb legyen a sorszám.

  Sub Talalat()
    Dim talal
    On Error Resume Next
    Columns(2).ClearContents 'A későbbi beírás miatt törlöm a B oszlop adatait
    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"
        On Error GoTo 0
    Else
        MsgBox "G1 cella tartalmának sorszáma az A oszlopban: " & vbLf & vbLf & talal, vbInformation, "Sorszám"
        
        'Itt felhasználjuk a talal változó értékét
      Range("B" & talal) = "Ebben a sorban van a G1 cella értéke"
    End If
End Sub
  

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