Birleştirme..

[gokdag]

Değerli arkadaşlar birleştirme yapıyorum bu kod ile ama "E" Hücresi boş ise ".L" koymasını istemiyorum hücre boş ama bu kod ile onuda birleştiriyor bu konuda yardımlarınızı rica ederim


Sub Birlestir()
Dim i As Long
For i = 2 To [A65536].End(1).Row
Cells(i, "I") = Cells(i, "b") & "/" & Cells(i, "c") & " .L/" & Cells(i, "e")
Next i
End Sub

Saygılarımla

 

[Levent Menteşoğlu]

Kodunuzu aşağıdaki gibi düzenleyin.

Sub Birlestir()
Dim i As Long
For i = 2 To [A65536].End(1).Row
if Cells(i, "e")<>"" then
Cells(i, "I") = Cells(i, "b") & "/" & Cells(i, "c") & " .L/" & Cells(i, "e")
else
Cells(i, "I") = Cells(i, "b") & "/" & Cells(i, "c") 
end if
Next i
End Sub

 

[gokdag]

Teşekkürler