Boş hücrenin karşısındaki veriyi boş hücreye taşıma ve önüne istenilen veriyi yaz

[DevilishRock]

Merhabalar

A sütunun da ve B sütunun da verilerim var fakat B sütunun da boş olan hücreler oluyor dolayısı ile eğer A sütunun da dolu ise B sütununa taşısın...

Bu işlemde birde aktarılan veriler FPSSS6500 gibi kodlardan oluşmakda bu verilerinde FPSS sabit S6500 değişken burada da S6500 önüne BG- gelmesi sağlanabilir mi?

Örnek dosya ektedir.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Duzenle()
 
    Dim i As Long, deg As String
    
    Range("K2:L" & Rows.Count).ClearContents
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") = "" And Cells(i, "B") = "" Then
            Cells(i + 1, "K") = "Kontrol Et"
            Cells(i + 1, "L") = "Kontrol Et"
        Else
            deg = WorksheetFunction.Substitute(Cells(i, "A"), "FPSS", "")
            Cells(i + 1, "K") = Cells(i, "A")
            Cells(i + 1, "L") = "BG-" & deg
        End If
    Next i
        
End Sub

 

[DevilishRock]

Teşekkür ederim...

Harika bir sonuç

 

[DevilishRock]

Merhaba,

Bu şekilde deneyin.

Sub Duzenle()
 
    Dim i As Long, deg As String
    
    Range("K2:L" & Rows.Count).ClearContents
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") = "" And Cells(i, "B") = "" Then
            Cells(i + 1, "K") = "Kontrol Et"
            Cells(i + 1, "L") = "Kontrol Et"
        Else
            deg = WorksheetFunction.Substitute(Cells(i, "A"), "FPSS", "")
            Cells(i + 1, "K") = Cells(i, "A")
            Cells(i + 1, "L") = "BG-" & deg
        End If
    Next i
        
End Sub

Kusura bakmayın bu konuda bir sorunum var Ben aslında sadece A ve B sütunun da olması gerekeni aktarmak istemiştim K ve L sütunu örnekdi... Yanlış ifade etmiş olabilirim. K ve L yi hiç görmeyin bunu sadece A ve B sütunun da yapılması gerekiyormuş gibi düşünün diğer veriler aslında yok... Bu konuda yardımcı olabilirseniz çok sevinirim...

 

[Ömer]

Bu şekilde deneyin.

Sub Duzenle()
 
    Dim i As Long, deg As String
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") = "" And Cells(i, "B") = "" Then
            Cells(i, "A") = "Kontrol Et"
            Cells(i, "B") = "Kontrol Et"
        Else
            deg = WorksheetFunction.Substitute(Cells(i, "A"), "FPSS", "")
            Cells(i, "A") = Cells(i, "A")
            Cells(i, "B") = "BG-" & deg
        End If
    Next i
        
End Sub

.

 

[DevilishRock]

Bu şekilde deneyin.

Sub Duzenle()
 
    Dim i As Long, deg As String
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") = "" And Cells(i, "B") = "" Then
            Cells(i, "A") = "Kontrol Et"
            Cells(i, "B") = "Kontrol Et"
        Else
            deg = WorksheetFunction.Substitute(Cells(i, "A"), "FPSS", "")
            Cells(i, "A") = Cells(i, "A")
            Cells(i, "B") = "BG-" & deg
        End If
    Next i
        
End Sub

.

Size zahmet verdim çok çok teşekkür ederim....

İyi akşamlar...

 

[Ömer]

Rica ederim, iyi akşamlar.