Boşluk Vermeden Yazdırma

[Nightwolf_03]

Merhabalar ,

aşağıdaki kodda şöyle bir sıkıntım var

ilgili koşula uygun satırı bulduğu zaman gidiyor onun karşılığına yazıyor benim istediğim Sonuç kısmına boşluk vermeden yazdırması yardımlarınızı rica ederim.




Sub dongu()

Dim hSatir, Satir

hSatir = 2

For Satir = 2 To 8

If Cells(Satir, 2) = "Burak" Then Cells(hSatir, 9) = Cells(hSatir, 3)

hSatir = hSatir + 1

Next

End Sub

 

[Ömer]

Merhaba

Deneyiniz.

Sub dongu()

Dim hSatir, Satir

hSatir = 2

For Satir = 2 To 8

If Cells(Satir, 2) = "Burak" Then
    Cells(hSatir, 9) = Cells(hSatir, 3)
    hSatir = hSatir + 1
End If

Next

End Sub

Yada "hSatir = hSatir + 1" satırını, if satırı sonuna aşağıdaki gibi ilave edebilirsiniz.

If Cells(Satir, 2) = "Burak" Then Cells(hSatir, 9) = Cells(hSatir, 3): hSatir = hSatir + 1

.

 

[Nightwolf_03]

çok teşekkür ederim Ömer bey