Sütundaki boş hücre doldurma hk

[archers70]

merhabalar ;
bir sorum olacak şöyleki ;
a sütunundaki değerlerin bazılarının yanında bazı değerler var ancak her değerde yok . yanı a2 ve a3 deki değerler aynı ama sadece b3 de değer var b2 de yok b2 e de b3 deki değeri yazsın istiyorum. Nasıl yapabilirim?
umarım anlatabilmişimdir.
şimdiden teşekkürler..

 

[Muzaffer Ali]

Merhaba.
Kodu sayfanın kod kısmına kopyalayıp çalıştırın.

Sub Test()
    Dim Bak As Long
    For Bak = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If Cells(Bak, "A") = Cells(Bak + 1, "A") Then
            Cells(Bak, "B") = Cells(Bak + 1, "B")
        End If
    Next
End Sub

 

[archers70]

Merhaba.
Kodu sayfanın kod kısmına kopyalayıp çalıştırın.

Sub Test()
    Dim Bak As Long
    For Bak = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If Cells(Bak, "A") = Cells(Bak + 1, "A") Then
            Cells(Bak, "B") = Cells(Bak + 1, "B")
        End If
    Next
End Sub

elinize sağlık teşekkürler.
bunu formül ile yapabilir miyiz? sadece bilgi için sordum.

 

[Muzaffer Ali]

D2'ye aşağıdaki formülü kopyalayıp aşağı doğru çoğaltın.

=ÇOKEĞER(B2<>"";B2;A2=A3;D3;B2="";"")

 

[archers70]

D2'ye aşağıdaki formülü kopyalayıp aşağı doğru çoğaltın.

=ÇOKEĞER(B2<>"";B2;A2=A3;D3;B2="";"")

Teşekkürler, elinize sağlık..