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

• #32932 Fferi50 Topikgazda tzimash #32929

  Új Válasz 2016-10-11 21:59:41 #32932

  Ú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

  

  Fferi50

  Topikgazda

  válasz tzimash #32929 üzenetére

  Szia!

  Én maradnék a saját javaslatomnál:
  Dim hiba As Range
Set hiba = Range("E:E").Find(what:="#", LookIn:=xlValues, lookat:=xlPart)
If Not hiba Is Nothing Then MsgBox "Az első hibás adat az " & hiba.Row & ". sorban van" & vbLf & "az A" & hiba.Row & " cella értéke: " & hiba.Offset(0, -4).Value: Exit Sub

  Üdv.

• #32930 Delila_1 veterán tzimash #32929

  Új Válasz 2016-10-11 18:50:57 #32930

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

  Dim hiba
On Error Resume Next
hiba = Range("E:E").Find(what:="#", LookIn:=xlValues, lookat:=xlPart).Row
If hiba Then
MsgBox "Az első hibás cella " & Range("E" & hiba).Address
Exit Sub
End If

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