bir sayfadandiğersayfaya girişvçıkıştarihinegöreayrı

[mustafakayiran]

sayfa1de verilerim var bu verileri ikinci sayfaya giriş ve çıkış tarihlerine göre yan yana listelemek istiyorum
yardımcı olurmusunuz lütfen

 

[Levent Menteşoğlu]

Aşağıdaki kodu dosyanızdaki "liste" sayfasında bulunan "Hazırla" isimli butona bağlayın. Kodda zam sütunundaki verinin nereden alındığını bilmediğim için zam sütununu boş bıraktım.

[vb:1:dac7fed63d]Sub listele()
[b565536].ClearContents
Set s1 = Sheets("veri")
For a = 5 To s1.Cells(65536, 2).End(xlUp).Row
If s1.Cells(a, 7).Value <> [i4].Value And s1.Cells(a, 8).Value <> [i4].Value Then GoTo 10
If s1.Cells(a, 7).Value = [i4].Value Then
sut = 3
c = WorksheetFunction.CountA([b5:b65536]) + 5
End If
If s1.Cells(a, 8).Value = [i4].Value Then
sut = 11
c = WorksheetFunction.CountA([j5:j65536]) + 5
End If
Cells(c, sut - 1) = c - 4
Cells(c, sut + 5) = [i4].Value
For b = 3 To 6
Cells(c, sut + b - 3) = s1.Cells(a, b).Value
Next
10 Next
End Sub

[/vb:1:dac7fed63d]

 

[mustafakayiran]

sayın leventm aşağıdaki satır hata veriyor
bende [i4] ün nereyi işaret ettinginu bulamadım
ekte örnek yollamıştım inceledinizmi?

If s1.Cells(a, 7).Value <> [i4].Value And s1.Cells(a, 8).Value <> [i4].Value Then GoTo 10

iyi çalışmalar
teşekkürler

 

[Levent Menteşoğlu]

Kod; tamamen yukarıda eklediğiniz dosyaya göre yazılmıştır. i4; liste sayfasındaki tarih yazılı hücredir.

 

[mustafakayiran]

pardon özür dilerim sabah maduriyeti

 

[mustafakayiran]

benim yaptıgım kodlara göre yapmak mümkünmüdür acaba? rica etsem