İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
20 Nisan 2021
26 Nisan 2021
756
İ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 | |
|---|---|
| Soldaki Veriyi Kopyalama | Ctrl R |
| Hücre Biçimlendirme Yazı Tipi Sekmesini Açma | Ctrl Shift F |
| Makro Penceresini Açma | Alt F8 |
| Kaydet / Alternatif | Shift F12 |
| Özel Yapıştır Penceresini Açma | Ctrl Alt V |