İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
20 Nisan 2021
26 Nisan 2021
896
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma isimli kod, iki sütunu karşılaştırır, aynı ve farklı olanları ayrı sütunlara yazmayı öğretir.
Sub ayir()
Dim hcr As Range, j1 As Integer, j2 As Integer
On Error Resume Next
For i = 1 To [A65536].End(xlUp).Row
x = Columns("B:B").Find(Cells(i, "A"), lookat:=xlWhole).Row
If Err.Number <> 0 Then
j1 = j1 + 1
Cells(j1, "D").Value = Cells(i, "A")
Err.Clear
Else
j2 = j2 + 1
Cells(j2, "C").Value = Cells(i, "A")
End If
Next
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
İki ayrı sütundaki verileri karşılaştırır, aynı olanları bir sütuna, farklı olanları ise başka bir sütuna yazdırarak ayrıştırma yapar.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Sayfa Üzerindeki Formülleri Metin Olarak Gösterme | Alt F F |
| Yazdırma Penceresini Açma | Ctrl F2 |
| İşlemi İleri Alma | Ctrl Y |
| İşlem Yapılmış En Alt Hücreye Gitme | Ctrl End |
| Tüm Tabloyu Seçme / Alternatif | Ctrl Shift Space |