Sayfadaki değerleri karşılaştırma

[ozpoli]

a kitabındaki sayfa 1 deki bir değere bakarak onun satırı boyunca b kitapcığınındaki sayfa 1 deki aynı değere karşılık gelen satırdaki değişiklikleri belirleyip b kitapçığı sayfa 1 de o degerein satırında blirleyeceğim hücreye farklılıkların arasına - koyarak yazacak bir makro gerekli.

şimdiden emeği gececeklere teşşekürler

 

[Ömer]

Merhaba,

Option Explicit
 
Sub Bul()
 
Dim S1, S2 As Worksheet
Dim i As Long
Dim j As Integer
Dim c As Range
 
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
 
S2.Select
Range("J4:J65536").ClearContents
 
For i = 4 To [A65536].End(3).Row
    Set c = S1.Range("A:A").Find(Cells(i, "A"), LookIn:=xlValues)
    If Not c Is Nothing Then
        For j = 2 To 7
            If Cells(i, j) <> S1.Cells(c.Row, j) Then Cells(i, "J") = Cells(i, "J") & "-" & Cells(i, j)
        Next j
    End If
    If Cells(i, "J") <> "" Then Cells(i, "J") = Right(Cells(i, "J"), Len(Cells(i, "J")) - 1)
Next i
 
End Sub

Bu şekilde deneyiniz..
.

 

[ozpoli]

teşşekür ve yardım

ömer bey öncelikle ilginiz için teşşekür ederim yapmış olduğunuz makro gercekten harika ama ufak bir değişiklik isteğim var o satır boyunca bakıyorya değişikliklere onu yaparken her hücreyi ayrı ayrı karşılaştırarak farklılıkları yazacak a2 a2 ile a3 ü a3 ile şeklinde satır boyuncaki satırı karşılaştıracak sayfa 1 a3 de 10 var diyelim sayfa 2 a2 de de 10 varsa ve hücreler farklı olduğu için iki tüm satırda 10 olmasına ragmen yinede 10 u değişiklik olarak yazacak umarım anlatabilmişimdir

 

[ozpoli]

açıklamalı örnek dosya ektedir

şimdiden yardımlarınız için sağolun

 

[ozpoli]

Arkadaşlar yok mu cevap verecek ya acil yardımmm

 

[ozpoli]

ömer bey merhaba umarım yazdıklarımı okudunuz yardımınıza ihtiyacım var

 

[Ömer]

Okudum, bu kadar aceleci olmayın lütfen. Birazdan inceleyip geri dönüş yaparım.

 

[ozpoli]

ok teşşekür ederim

 

[ozpoli]

Arkadaşlar yomu ya yardım edcek birileri

 

[Ömer]

#2 nolu mesajdaki kodları değiştirdim, tekrar deneyin.

.

 

[ozpoli]

ömer bey çok çok teşşekürler ellerinize sağlık