İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
20 Nisan 2021
26 Nisan 2021
849
İ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 | |
|---|---|
| Yazdırma Penceresini Açma | Ctrl F2 |
| Sayfalar Arası Geçiş Önceki Sayfa | Ctrl Page Up |
| Hızlı Kenarlık Ekleme | Ctrl Shift & |
| Şerit Menü Tuşlarını Aktif Etme / Alternatif | Shift F6 |
| Bitişik Hücre Aralığı Seçme | Shift Tıklama |