+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel'de Kod İle Hücreye Veri Alma (/konu-excel-de-kod-ile-hucreye-veri-alma.html)
Excel'de Kod İle Hücreye Veri Alma - HORZUM - 18/02/2021
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.
RE: Excel'de Kod İle Hücreye Veri Alma - feraz - 18/02/2021
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 SubRE: Excel'de Kod İle Hücreye Veri Alma - HORZUM - 19/02/2021
Feraz bey çok teşekkür ederim. Allah razı olsun.
RE: Excel'de Kod İle Hücreye Veri Alma - feraz - 19/02/2021
(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.