Private Sub Worksheet_Change(ByVal Target As Range)
Dim bul As Range
Dim trh As Date
Dim CsutunTarih As Date
With ThisWorkbook.Sheets("T1")
If Target.Column = 5 And Target.Row >= 3 Then
If Target.Cells.Count = 1 Then
If Target.Offset(, -2).Value = "" Then
Target.Offset(, 1).Value = ""
MsgBox "Tarih giriniz...", vbCritical, "Hata"
Exit Sub
End If
If .Range("D2").Value = "" Then
MsgBox "T1 sayfasina Tarih giriniz...", vbCritical, "Hata"
Exit Sub
End If
trh = .Range("D2")
CsutunTarih = Cells(Target.Row, 3)
If CsutunTarih < trh Then
Set bul = .Range("B:B").Find(Target.Value, , , 1)
If Not bul Is Nothing Then Cells(Target.Row, "F").Value = bul.Offset(, 1).Value
ElseIf CsutunTarih > trh Then
Set bul = .Range("E:E").Find(Target.Value, , , 1)
If Not bul Is Nothing Then Cells(Target.Row, "F").Value = bul.Offset(, 1).Value
End If
End If
End If
End With
Set bul = Nothing
End Sub
Excel'de Kod İle Hücreye Veri Alma
Bu Konudaki Yorumlar |
Excel'de Kod İle Hücreye Veri Alma - Yazar: HORZUM - 18/02/2021, 14:39
RE: Excel'de Kod İle Hücreye Veri Alma - Yazar: feraz - 18/02/2021, 18:39
RE: Excel'de Kod İle Hücreye Veri Alma - Yazar: HORZUM - 19/02/2021, 09:54
RE: Excel'de Kod İle Hücreye Veri Alma - Yazar: feraz - 19/02/2021, 17:05
|
Konuyu Okuyanlar: 1 Ziyaretçi