Tckn ve Vkn ler aynı satıra alma

[sldrkyurdal]

Merhaba ,
Sizlerden bir konu hakkında destek rica ediyorum.
Listemde , Tckn ve Vkn ler var iki ayrı sutunda duruyor bazıları boş bazıları dolu . Yapmak istediğim hepsini bir satırda toplamak.
Desteğinizi için şimdiden teşekkürler,

Saygılar,

 

[ASLAN7410]

Merhaba.
Formülle isterseniz.

=EĞER(A2="";"";EĞER(B2<>"";B2;C2)) formülü E2 hücresine yapıştırıp aşağıya doğru çekin.


Kod ile isterseniz.

Sub TcknveVkn()
With Sheets(1).Range("E2:E" & [A65565].End(3).Row)
.Formula = "=IF(RC[-4]="""","""",IF(RC[-3]<>"""",RC[-3],RC[-2]))"
.Value = .Value
End With
End Sub

 

[sldrkyurdal]

Merhaba.
Formülle isterseniz.

=EĞER(A2="";"";EĞER(B2<>"";B2;C2)) formülü E2 hücresine yapıştırıp aşağıya doğru çekin.


Kod ile isterseniz.

Sub TcknveVkn()
With Sheets(1).Range("E2:E" & [A65565].End(3).Row)
.Formula = "=IF(RC[-4]="""","""",IF(RC[-3]<>"""",RC[-3],RC[-2]))"
.Value = .Value
End With
End Sub

Teşekkürler emeğinize sağlık.

 

[Necdet]

Merhaba,

Deneyip sonucu söyler misiniz?

Sub Makro1()

    Dim i As Long
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    Range("B2:B" & i).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
    
End Sub

 

[sldrkyurdal]

Merhaba,

Deneyip sonucu söyler misiniz?

Sub Makro1()

    Dim i As Long
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    Range("B2:B" & i).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
    
End Sub

Merhaba
Sorunsuz çalıştı teşekkürler