iki excel sayfasındaki değerleri karşılatırmak

[alanya65]

iki excel sayfasındaki 3 . sütunda bulanan bilgileri karşılaştıracağız ve 1. sayfada olmayıp 2. sayfada olan veriyi 1.sayfaya 3.sütunun boş olan hücresine yazılacak. yardım edermisin.





x = 7
While ThisWorkbook.Sheets(TextBox22.Text).Cells(x, 2) <> ""
y = 7
While ThisWorkbook.Sheets("ORT").Cells(y, 2) <> ""
If ThisWorkbook.Sheets(TextBox22.Text).Cells(x, 4).Value = ThisWorkbook.Sheets("ORT").Cells(y, 4) And ThisWorkbook.Sheets(TextBox22.Text).Cells(x, 5).Value = ThisWorkbook.Sheets("ORT").Cells(y, 5) Then
y = y + 1

Else
For r = 7 To 1000
If ThisWorkbook.Sheets("ORT").Cells(r, 3) = "" Then
ThisWorkbook.Sheets("ORT").Cells(r, 2).Value = ThisWorkbook.Sheets(TextBox22.Text).Cells(y, 2).Value
ThisWorkbook.Sheets("ORT").Cells(r, 3).Value = ThisWorkbook.Sheets(TextBox22.Text).Cells(y, 3).Value
ThisWorkbook.Sheets("ORT").Cells(r, 4).Value = ThisWorkbook.Sheets(TextBox22.Text).Cells(y, 4).Value
ThisWorkbook.Sheets("ORT").Cells(r, 5).Value = ThisWorkbook.Sheets(TextBox22.Text).Cells(y, 5).Value
ThisWorkbook.Sheets("ORT").Cells(r, 6).Value = ThisWorkbook.Sheets(TextBox22.Text).Cells(y, 9).Value

End If
GoTo deger
Next r

End If
Wend
deger:
x = x + 1
Wend

 

[leumruk]

Merhaba,

Sub Karsılastır()
Set s2 = Sheets("Sayfa2")
For x = 1 To s2.[c65536].End(3).Row
Sat = [Sayfa1!c65536].End(3).Row + 1
If WorksheetFunction.CountIf(Range("c1:c" & Sat), s2.Cells(x, "c")) = 0 Then
    Cells(Sat, "c") = s2.Cells(x, "c")
End If
Next
End Sub

 

[andon]

Merhaba,

Sub Karsılastır()
Set s2 = Sheets("Sayfa2")
For x = 1 To s2.[c65536].End(3).Row
Sat = [Sayfa1!c65536].End(3).Row + 1
If WorksheetFunction.CountIf(Range("c1:c" & Sat), s2.Cells(x, "c")) = 0 Then
    Cells(Sat, "c") = s2.Cells(x, "c")
End If
Next
End Sub

merhaba
aynı kodları sadece 3. sütun için değil de mesela; 3. sütundaki değerleri her iki sayfa için de baz alıp, 1'den 10'a kadar olan sütunlardaki 1. sayfada olmayıp 2. sayfada olan tüm verileri 1. sayfaya yazdırabilir miyiz?..
(ben yazarken bi ara ne demek istediğimi şaşırdım siz anlarsınız İnşaallah)
teşekkürler

 

[leumruk]

merhaba
aynı kodları sadece 3. sütun için değil de mesela; 3. sütundaki değerleri her iki sayfa için de baz alıp, 1'den 10'a kadar olan sütunlardaki 1. sayfada olmayıp 2. sayfada olan tüm verileri 1. sayfaya yazdırabilir miyiz?..
(ben yazarken bi ara ne demek istediğimi şaşırdım siz anlarsınız İnşaallah)
teşekkürler

Örnek bir dosya ekler misiniz?

 

[andon]

Örnek bir dosya ekler misiniz?

merhaba
mesajınızda istemiş olduğunuz örnek tabloyu ekliyorum. Örnek tabloda 2. sütunda yer alan öğrenci numaralarını baz almamız gerekiyor.
Şimdiden çok teşekkürler

 

[leumruk]

Merhaba,

Sub Karsılastır()
Set s2 = Sheets("Sayfa2")
For x = 2 To s2.[b65536].End(3).Row
If WorksheetFunction.CountIf(Range("b2:b" & [b65536].End(3).Row), s2.Cells(x, "b")) = 0 Then
Sat = [Sayfa1!b65536].End(3).Row + 1
  s2.Range(s2.Cells(x, "b"), s2.Cells(x, "j")).Copy Cells(Sat, "b")
  Cells(Sat, "a") = Cells(Sat - 1, "a") + 1
  Cells(Sat, "a").Borders.LineStyle = xlContinuous
End If
Next
End Sub

 

[andon]

Merhaba,

Sub Karsılastır()
Set s2 = Sheets("Sayfa2")
For x = 2 To s2.[b65536].End(3).Row
If WorksheetFunction.CountIf(Range("b2:b" & [b65536].End(3).Row), s2.Cells(x, "b")) = 0 Then
Sat = [Sayfa1!b65536].End(3).Row + 1
  s2.Range(s2.Cells(x, "b"), s2.Cells(x, "j")).Copy Cells(Sat, "b")
  Cells(Sat, "a") = Cells(Sat - 1, "a") + 1
  Cells(Sat, "a").Borders.LineStyle = xlContinuous
End If
Next
End Sub

çok çok teşekkürler. Harika bir çalışma. sadece bir butona tıklama işi hallediyor...

 

[leumruk]

çok çok teşekkürler. Harika bir çalışma. sadece bir butona tıklama işi hallediyor...

Rica ederim.