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

• #39629 Delila_1 veterán wednesday #39628

  Új Válasz 2018-11-19 12:21:13 #39629

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

  Private Sub CommandButton1_Click()
Dim sor As Variant

On Error Resume Next
sor = Sheets(1).Range("A:A").Find(CDate(TextBox1)).Row
If IsEmpty(sor) Then
MsgBox "Nem található " & TextBox1 & " dátum az A oszlopban.", vbCritical
On Error GoTo 0
Exit Sub
Else: MsgBox sor
End If
End Sub

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