b sayfası AM1 hücresindeki tarihe göre b deki verileri c tablosuna taşıma

[hsayar]

Merhaba arkadaşlar
b sayfası AM1 hücresi 01/10/07
b sayfası b6,7,8,9 hücreleri 12,1,5,8 olsun

c sayfasınının a sütununda 01/10/07 satırın yanında b,c,d,e sütunlarına (satırno tarihin eşleşdiği satır) bu veriyi nasıl kopyalarız

tabi eğer 05/10/7 yazıyorsa oraya kopyalayacak

Satırlar birleşik değil tabiki

 

[hsayar]

örnek dosya eklendi

 

[hsayar]

halletim

Sub Devret()
Set s1 = Sheets("günlük")
Set s2 = Sheets("tsb")
Set s3 = Sheets("devirler")
For i = 5 To 800
If s3.Cells(i, 1) = s1.Cells(2, 14) Then
'-----------------------------evdevir
s3.Cells(i, 2) = s2.Cells(6, 2)
s3.Cells(i, 3) = s2.Cells(7, 2)
s3.Cells(i, 4) = s2.Cells(8, 2)
s3.Cells(i, 5) = s2.Cells(9, 2)
'-----------------------------piknikdevir
s3.Cells(i, 6) = s2.Cells(6, 14)
s3.Cells(i, 7) = s2.Cells(7, 14)
s3.Cells(i, 8) = s2.Cells(8, 14)
s3.Cells(i, 9) = s2.Cells(9, 14)
'-----------------------------lokantadevir
s3.Cells(i, 10) = s2.Cells(6, 20)
s3.Cells(i, 11) = s2.Cells(7, 20)
s3.Cells(i, 12) = s2.Cells(8, 20)
s3.Cells(i, 13) = s2.Cells(9, 20)
'-----------------------------sanayidevir
s3.Cells(i, 14) = s2.Cells(27, 20)
s3.Cells(i, 15) = s2.Cells(28, 20)
s3.Cells(i, 16) = s2.Cells(29, 20)
s3.Cells(i, 17) = s2.Cells(30, 20)
End If
Next
End Sub

Sub Devral()
Set s1 = Sheets("günlük")
Set s2 = Sheets("tsb")
Set s3 = Sheets("devirler")
For i = 6 To 800
If s3.Cells(i, 1) = s1.Cells(2, 14) Then
'-----------------------------
s2.Cells(6, 2) = s3.Cells(i - 1, 5)    'devir12
s2.Cells(6, 14) = s3.Cells(i - 1, 9)   'devir2
s2.Cells(6, 20) = s3.Cells(i - 1, 13)  'devir24
s2.Cells(27, 20) = s3.Cells(i - 1, 17) 'devir45
End If
Next
End Sub