AccessTr.neT

Tam Versiyon: Excel'de Kod İle Hücreye Veri Alma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
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
Feraz bey çok teşekkür ederim. Allah razı olsun.
(19/02/2021, 09:54)HORZUM yazdı: [ -> ]Feraz bey çok teşekkür ederim. Allah razı olsun.
Rica ederim.Aslında koda isdate ile tarihmi diyede şart eklenip mesaj verdilebilinirdi unutmuşum.
Sizdende Allah razı olsun.

Kolay gelsin.