1sayfaya yapılan tabloyla verileri ilgili günlere aktarmak.

[fedeal]

her tarih için ayrı ayrı sayfalar yapmak yerine tek sayfadan istenilen tarihe verileri göndermek mümkünmü?

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim S1, S2 As Worksheet
Dim SUT, S As Integer
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
S = 2
For Each DEG In S1.Range("B4,C4,B8,D4,E4,D8,F4,G4,F8")
For SUT = 4 To S2.Cells(65536, "A").End(3).Row
If S1.[B10] = S2.Cells(SUT, "A") Then
S2.Cells(SUT, S) = DEG
S = S + 1
End If
Next
Next
End Sub

 

[fedeal]

Cok TeŞekkÜrler

Benİ BÜyÜk Bİr YÜkten Kurtardiniz

 

[fedeal]

formülleri inceliyip mantıgını az cok çözüp yaptıgım calışmalara uygulasamda makrolar için daha cok yolum var.