iki veri arasında sabit boşluk

[mahmutozdemir]

A2 ve a3 satırları dolu a4,a5,a6 boş ve a7 de mahmut özdemir yazılı.Aralarında 3 satır boş.A4 de veri girince mahmut özdemir a7 den a8 e insin yine arada 3 boş satır olsun.

 

[AS3434]

Sayın mahmutozdemir


Kodlarınızı şöyle düzeltin.

Private Sub CommandButton1_Click()
Dim i As Long, sat As Long
sat = 2
Range("A2:A62").ClearContents
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Cells(sat, "A").Value = ListBox1.Column(0, i)
        sat = sat + 1
    End If
Next
[COLOR="Red"]x = [a65536].End(3).Row + 4
Rows(x) = "                                                                                                MAHMUT ÖZDEMİR"
Rows(x + 1) = "                                                                                           Beden Eğitimi Öğretmeni"

[a1].Select[/COLOR]
MsgBox "İşlem Tamamlandı" & vbLf & "MAHMUT ÖZDEMİR", vbOKOnly + vbInformation, "ZİÇEV"
End Sub

 

[mahmutozdemir]

Sayın AS3434 tam istediğim gibi teşekkür ederim.Bunu bizim BEP formumuz var ona nasıl yapabiliriz.Bep formunda buton yok ya elle veri gireceğiz yada başka sayfadan veri aktaracağım.