Benzer Verilerle İlgili

[yer06]

Örnek olarak A sütununda benzer veriler var A sütununda bulunan bazı verilerin b satırında bilgileri var benzer olanları yanındaki bilgileri a sütundaki verilerin yanına yazdırmak istiyorum ne demek istediğimi ekte sunuyorum bu konuda yardımcı olmanızı diliyorum iyi çalışmalar

 

[Ömer]

A sütunundaki veriler alt alta bu şekildemi ilerliyor yoksa arada sapma oluyor mu?

Yani;

2
2
3
4
5
6
6


gibi mi;

2
2
3
3
4
5
2
2
2
8

gibi 2 farklı bölgede aynı veri olabilir mi?

Bunu yazmamın nedeni ise; eğer ilk belirtiğim gibi ise boşlukları kendinden öncekiyle doldur metoduyla pratik bir şekilde yapılabilir.

Boş Hücreleri Kendinden Önceki Hücre İle Doldurmak

.

 

[yer06]

sayın hocam sadece a sutununda venzer veriler var farklı sutun yada satırlarda benzer veriler yok yani bir üstteki satıra bakcak alttaki satırla aynı ise alttaki satırın b hücresinde veri varsa a1 hücresine yazdıracak ilginiz için tşk ederim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub BOŞ_HÜCRELERE_AÇIKLAMA_EKLE()
    Dim X As Long, BUL As Range, ADRES As String
    
    For X = 2 To Range("A65536").End(3).Row
        Set BUL = Range("A:A").Find(Cells(X, 1), LookAt:=xlWhole)
        If Not BUL Is Nothing Then
        ADRES = BUL.Address
        Do
        If Cells(BUL.Row, 2) <> "" Then Cells(X, 2) = Cells(BUL.Row, 2)
        Set BUL = Range("A:A").FindNext(BUL)
        Loop While Not BUL Is Nothing And BUL.Address <> ADRES
        End If
    Next
    
    Set BUL = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub