2 sütunu karşılaştırma

[sakoz]

Merhaba arkadaşlar ,

Bende 2 sütunda benzer bilgiler var.Ek'te gönderdiğim dosyada B ve E sütununun karşılaştırılması gerekiyor.B sütunundaki bilgiler E sütununda varsa ayrı bir sütuna yazılması gerekiyor.Bu konuda yardımcı olurmusunuz...

Tşk...İyi çalışmalar...

 

[Orion1]

Merhaba.
Aşağıdaki kodları boş bir modüle kopyalayıp çalıştırınız.
Bezerleri G sütununa aktarıyor.
Umarım işinize yarar.
İyi çalışmalar.

Sub aktar()
Dim sonsat As Long, sat As Long, i As Long
sonsat = Cells(65536, "B").End(xlUp).Row
sat = 1
Range("G1:G65536").ClearContents
For i = 1 To sonsat
    If WorksheetFunction.CountIf(Range("E1:E65536"), Cells(i, "B").Value) > 0 Then
        Cells(sat, "G").Value = Cells(i, "B").Value
        sat = sat + 1
    End If
Next
MsgBox "AKTARMA İŞLEMİ TAMAMLANDI..!!", vbOKOnly
End Sub

 

[sakoz]

Üstad Sezar ellerinize sağlık.Çok işime yaradı...Sağolun..İyi çalışmalar...

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[winston]

nereye kopyalıcaz ben yapamadım biraz daha açıklarmısınız.

 

[winston]

sezar kardeş yardım edermisin lütfennn

 

[Orion1]

Merhaba.
Çalışma sayfasındayken alt+F11 basın .
VBE çıkacaktır.
İnsert'e tıklayın.Modüle seçin
Açılan modüle sayfasına kodları yapıştırın.
Run çalıştırın.

 

[kombo]

Alt+F11 ile vba penceresini açın. VBA üst menüden
Insert / Module tıklayın açılan pencereye Sn. Sezar'ın kodların kopyalayın.

Çalışma yaptığınız excel sayfasında Formlar dan Düğme tıklayın. + işareti çıkar. Sayfada bir buton yapın. Makro Ata penceresi açılır. Orada "aktar" seçin tamam deyin çıkın. işlem bu kadar. Umarım anlatabilmişimdir.

 

[winston]

sezar üstad tamam olduda bi şey soracam.şöyle bi şey olamazmı mesela ekte gönderdim örneği öyle bi süzgec çıkamazmı yani bu numarlar yok diyip. başka sütunda onları gösteren anlatabildim.meesela ekedki dosyaya bakarmısın orda bi kaçtane değişik numara onları başka sütüunda gösterebilirmiyiz ama sadece olmayanları göstermesini isityorum

 

[Orion1]

Merhaba.
Bu sorduğunuz ilk sorduğunuz sorunun tamamen karşıtı sanırım.
Aşağıdaki kodları yapıştırıp çalıştırın.
Benzersizleri H sütünunda listeler.

Sub benzersizleri_aktar()
Dim sonsat As Long, sat As Long, i As Long
sonsat = Cells(65536, "A").End(xlUp).Row
sat = 1
Range("H1:H65536").ClearContents
For i = 1 To sonsat
    If WorksheetFunction.CountIf(Range("B1:B65536"), Cells(i, "A").Value) = 0 Then
        Cells(sat, "H").Value = Cells(i, "A").Value
        sat = sat + 1
    End If
Next
MsgBox "OLMAYAN NUMARALARIN AKTARMA İŞLEMİ TAMAMLANDI..!!", vbOKOnly
End Sub

 

[winston]

sezar üstad olmadı sadece birini gösterdi :s

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Sub benzersizleri_aktar()
Dim sonsat As Long, sat As Long, i As Long
sonsat = Cells(65536, "A").End(xlUp).Row
sat = 1
Range("H1:H65536").ClearContents
For i = 1 To sonsat
    If WorksheetFunction.CountIf(Range("B1:B65536"), Cells(i, "A").Value) = 0 Then
        Cells(sat, "H").Value = Cells(i, "A").Value
        sat = sat + 1
    End If
Next
sonsat = Cells(65536, "B").End(xlUp).Row
For i = 1 To sonsat
    If WorksheetFunction.CountIf(Range("A1:A65536"), Cells(i, "B").Value) = 0 Then
        Cells(sat, "H").Value = Cells(i, "B").Value
        sat = sat + 1
    End If
Next
MsgBox "OLMAYAN NUMARALARIN AKTARMA İŞLEMİ TAMAMLANDI..!!", vbOKOnly
End Sub

 

[winston]

oki tşk .şimdi oldu

 

[ziyacan]

teşekkür

teşekkürler

bende yeni kod ekledim,