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

• #36811 Delila_1 veterán Csatravi #36810

  Új Válasz 2017-12-22 09:02:03 #36811

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

  Egy másik megközelítés szerint egy laphoz rendelt makró figyeli a B2 cellába bevitt adatot.

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

If Target.Address = "$B$2" And Target <> "" Then
Application.EnableEvents = False
Range("C2,B4") = ""

If Len(Target) <> 4 Then
Range("C2") = "Hibás érték"
Application.Wait Now + TimeValue("0:00:02")
Range("B2") = ""
Range("B2").Select
Application.EnableEvents = True
Exit Sub
End If

If IsNumeric(Left(Target, 1)) Then
Range("C2") = "Hibás érték"
Application.Wait Now + TimeValue("0:00:02")
Range("B2") = ""
Range("B2").Select
Application.EnableEvents = True
Exit Sub
End If

If Not IsNumeric(Right(Target, 3)) Then
Range("C2") = "Hibás érték"
Application.Wait Now + TimeValue("0:00:02")
Range("B2") = ""
Range("B2").Select
Application.EnableEvents = True
Exit Sub
End If

sor = Application.Match(Target, Columns(1), 0)
If IsError(sor) Then
Range("B4") = "Hibás adat"
Else
Range("B4") = Cells(sor, "B")
End If

Range("B2").Select
Application.EnableEvents = True
End If
End Sub

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