+- 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ığı: Vba İle Döndüyü Sağlayıp Veriyi Çekmek (/konu-vba-ile-donduyu-saglayip-veriyi-cekmek.html)
RE: Vba İle Döndüyü Sağlayıp Veriyi Çekmek - berduş - 03/10/2022
kodu aşağıdaki gibi düzenleyip dener misiniz?
aslında find komutunu zaten yılı bulmakta kullandığınıza göre kullanabiliyorsunuz aynı mantığı burada da kullanacaksınız
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 = 3 Or Target.Column = 5) And Target.Row >= 1 Then
If IsDate(Cells(Target.Row, "c")) And Len(Cells(Target.Row, "E") & "") > 0 Then
SonStn = Cells(1, Columns.Count).End(xlToLeft).Column
Set bul = .Range("B1:" & .Cells(1, SonStn).Address).Find(Year(Cells(Target.Row, "C").Value), , , 1)
Set kaydir = .Range("A:A").Find(Cells(Target.Row, "E").Value, , , 1)
If (Not bul Is Nothing) And (Not kaydir Is Nothing) Then Cells(Target.Row, "F").Value = .Cells(kaydir.Row, bul.Column).Value
End If
End If
End With
Set bul = Nothing
End SubRE: Vba İle Döndüyü Sağlayıp Veriyi Çekmek - HORZUM - 04/10/2022
(03/10/2022, 13:12)berduş yazdı: kodu aşağıdaki gibi düzenleyip dener misiniz?
aslında find komutunu zaten yılı bulmakta kullandığınıza göre kullanabiliyorsunuz aynı mantığı burada da kullanacaksınız
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 = 3 Or Target.Column = 5) And Target.Row >= 1 Then
If IsDate(Cells(Target.Row, "c")) And Len(Cells(Target.Row, "E") & "") > 0 Then
SonStn = Cells(1, Columns.Count).End(xlToLeft).Column
Set bul = .Range("B1:" & .Cells(1, SonStn).Address).Find(Year(Cells(Target.Row, "C").Value), , , 1)
Set kaydir = .Range("A:A").Find(Cells(Target.Row, "E").Value, , , 1)
Debug.Print "Column : " & bul.Column, "Row : " & kaydir.Row
If (Not bul Is Nothing) And (Not kaydir Is Nothing) Then Cells(Target.Row, "F").Value = .Cells(kaydir.Row, bul.Column).Value
End If
End If
End With
Set bul = Nothing
End Sub
Teşekkür ederim.
RE: Vba İle Döndüyü Sağlayıp Veriyi Çekmek - metınaycıcek - 04/10/2022
Sayın berduş hocam
Allah cc razı olsun sizden ve konuyu açan arkadaştan bende böyle bir şey arıyordum .
RE: Vba İle Döndüyü Sağlayıp Veriyi Çekmek - berduş - 04/10/2022
rica ederim
iyi çalışmalar)
Not: aslında debug.print satırına gerek yok sadece veri Vba sayfasında görünsün diye kullanmıştım
o satır silinebilir
RE: Vba İle Döndüyü Sağlayıp Veriyi Çekmek - HORZUM - 04/10/2022
(04/10/2022, 10:24)berduş yazdı: rica ederim
iyi çalışmalar)
Not: aslında debug.print satırına gerek yok sadece veri Vba sayfasında görünsün diye kullanmıştım
o satır silinebilir
Hocam 2023 tarihine kadar veri alıyor 2024 2025 2026 tarihleri seçilince hata veriyor. Debug.Print kısmını silince hiç veri almıyor
RE: Vba İle Döndüyü Sağlayıp Veriyi Çekmek - berduş - 04/10/2022
şimdi denedim sorunsuz geliyor?