ŞArta Bağlı Sayfa2'den Sayfa1'e Veri Yazdırmak

[ahmedummu]

Merhaba arkadaşlar.

Ekte gönderdiğim örnek dosyada, Sayfa1 A sütunundaki tarihler, Sayfa2'deki A sütunundaki tarihler 1. sıradan başlayıp karşılaştırılacak. Aynı olan var ise Sayfa2 B sütunundaki değer, Sayfa1 D sütununa yazdırılacak. Ben yapmaya çalıştım ama "if" ile aşlayan satırda hata veriyor.

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To Range("a32000").End(xlUp).Row
[COLOR="Red"][/COLOR]If Sheets("sayfa1").Cells(i, A).Value = Sheets("Sayfa2").Cells(i, A).Value Then
Sheets("sayfa1").Cells(i, D).Value = Sheets("Sayfa2").Cells(i, B).Value
End If
Next i
End Sub

 

[Muhammet Okumuş]

Cells(i,"A").. şeklinde değiştirin. Diğer ifadeleri de

 

[ahmedummu]

Merhaba Muhammet bey.

Kodları dediğiniz gibi aşağıdaki gibi değiştirdim. Hata vermiyor ama yazdırma işlemini de yapmıyor.

Dim i As Integer
For i = 1 To Range("a32000").End(xlUp).Row
If Sheets("sayfa1").Cells(i, "A").Value = Sheets("Sayfa2").Cells(i, "A").Value Then
Sheets("sayfa1").Cells(i, "D").Value = Sheets("Sayfa2").Cells(i, "B").Value
End If
Next i

 

[ahmedummu]

Pardon yine yazmıyor.

 

[ahmedummu]

Kodları 4-5 çalıştırmada bir kez yazıyor. Yani işlem gerçekleşiyor. Diğer çalıştırmalarda yazmıyor.

4 numaralı mesajım yanlış anlaşılmasın. Önce sorun düzeldi yazmıştım. Kodlar tekrar çalışmayınca Kodların yine çalışmadığını söylemek istedim.

 

[ahmedummu]

Arkadaşlar Başlangıç tarihi (Textbox1'in) değeri 15.01.2015 olunca çalışıyor. Bunun dışında hiçbir tarihte çalışmıyor. Bi bakabilir misiniz.

 

[Muhammet Okumuş]

Yazması gerekir. Sayfa2 B sütunu dolu mu? Kodlarda hata yok. Olmazsa dosyayı yükleyin.

 

[ahmedummu]

Evet dolu Sayfa1 D sütununa yazdırılacak veriler var.

Dosyayı ekliyorum.

Hata veren kodlar;

'================
kodlar
'================ içinde

 

[Orion1]

Arkadaşlar Başlangıç tarihi (Textbox1'in) değeri 15.01.2015 olunca çalışıyor. Bunun dışında hiçbir tarihte çalışmıyor. Bi bakabilir misiniz.

15.02.2015 olunca çalıştı.

 

[ahmedummu]

Tarihleri listeliyor. Onda bir sorun yok.

Aşağıdaki kod ile Sayfa1'de listelenen tarihleri Sayfa2'deki tarihler ile karşılaştıracak aynı ise B sütunundaki değeri Sayfa1 D sütununa yazdıracak.

Dim i As Integer
For i = 1 To Range("a32000").End(xlUp).Row
If Sheets("sayfa1").Cells(i, "A").Value = Sheets("Sayfa2").Cells(i, "A").Value Then
Sheets("sayfa1").Cells(i, "D").Value = Sheets("Sayfa2").Cells(i, "B").Value
End If
Next i

Yine denedim başlangıç tarihi sadece 15.01.0215 olunca çalışıyor.

 

[Muhammet Okumuş]

Siz iki sayfada aynı değişkene satır atamışsınız.

 

[Muhammet Okumuş]

Dim i As Integer
On Error Resume Next
For i = 1 To Range("a32000").End(xlUp).Row
Cells(i, "D") = WorksheetFunction.VLookup(Cells(i, 1), Sheets("Sayfa2").Range("A:B"), 2, 0)
Next i

Kodu deneyiniz.

 

[Orion1]

Buyurun.

'==================================================================================
Dim i As Long, f As Long
Sheets("Sayfa1").Range("D:D").ClearContents
sonsat = Sheets("Sayfa2").Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To Sheets("Sayfa1").Range("a32000").End(xlUp).Row
    For f = 1 To sonsat
            If Sheets("Sayfa1").Cells(i, "A").Value = Sheets("Sayfa2").Cells(f, "A").Value Then
            Sheets("Sayfa1").Cells(i, "D").Value = Sheets("Sayfa2").Cells(f, "B").Value
            Exit For
        End If
    Next f
Next i
'=====================================================================================

 

[ahmedummu]

Çok teşekkür ederim Evren bey. Çalışıyor.

 

[Orion1]

Çok teşekkür ederim Evren bey. Çalışıyor.

Estafurullah.
Muhammet beyinkide çalışıyor.Gözden kaçırdınız herhalde.

 

[ahmedummu]

Evet kaçırmışım. Muhammet bey size de çok teşekkür ederim. Haklarınızı helal edin.