Satır ekleyerek veri kopyalama

[s.savas]

Merhaba arkadaşlar.
Aşağıdaki kodlar Mustafa Altun hoca tarafından talebimiz üzerine düzenlenmişti.
Kendisine tekrar teşekkür ediyorum.

sat = Sayfa3.[g65536].End(3).Row + 1
If sat < 10 Then sat = 10
Sayfa5.Range("a3:g" & Sayfa5.Range("g65536").End(3).Row).Copy Sayfa3.Cells(sat, "a")

Kodları orjinal dosyama uyarlarken, hedef hücrede 30.satırdan itibaren korunması gereken bazı sabit hücrelerin korunamadığını farkettim.
Bu yüzden yukarıdaki kodlar ile hedef hücreye kopyalanan veriler 10.satırdan itibaren satır ekleyerek kopya yapacak şekilde tekrar düzenlenmesi gerekiyor.

 

[leumruk]

Merhaba,
Checkbox kodunuzu aşağıdaki ile değiştirin. Eklediğim yerleri renklendirdim.

Private Sub CheckBox1_Click()
Dim i As Integer, j As Integer, s As Worksheet, toplam As Double
With [COLOR="DarkRed"]Sayfa5[/COLOR]
j = .Cells(.Rows.Count, "[COLOR="darkred"]d[/COLOR]").End(xlUp).Row
    End With
    Set s = Sheets("şFiyat")
If Me.CheckBox1.Value = False Then
s.Cells(j, "e").Value = ""
s.Cells(j, "f").Value = ""
s.Cells(j, "g").Value = ""
Else
s.Cells(j + 1, "e").Value = "TOPLAM:"
s.Cells(j + 1, "f").Value = TextBox8.Value
s.Cells(j + 1, "g").Value = TextBox9.Value

[COLOR="darkred"]SatSay = Sayfa5.Range("a3:g" & Sayfa5.Range("g65536").End(3).Row).Rows.Count[/COLOR]
sat = Sayfa3.[g65536].End(3).Row + 1
If sat < 10 Then sat = 10
[COLOR="darkred"]Sayfa3.Range("a" & sat & ":a" & SatSay + sat).EntireRow.Insert[/COLOR]
Sayfa5.Range("a3:g" & Sayfa5.Range("g65536").End(3).Row).Copy Sayfa3.Cells(sat, "a")
End If
End Sub

 

[s.savas]

Üstat çok teşekkür ederim.

 

[leumruk]

Üstat çok teşekkür ederim.

Rica ederim.