18/02/2021, 14:39
HORZUM
Eklemiş olduğum Excel dosyasındaki T1 sayfasında bulunan verileri Y1 sayfasına(daha önce kod oluşturulmuştu) T1 deki tarihten önce olursa 2020'deki veriyi, sonra olursa 2021'deki veriyi kod ile nasıl alırım.
Excel'de Kod İle Hücreye Veri Alma
18/02/2021, 14:39
HORZUM
18/02/2021, 18:39
feraz
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 19/02/2021, 09:54
HORZUM
Feraz bey çok teşekkür ederim. Allah razı olsun.
19/02/2021, 17:05