Seçili olanı diğer sayfaya aktarma kaldığı yerden

[netvolxxx]

merhaba excel sayfa 2 de 30 dan başlayıp 43 nolu satırda sayfa bitiyor devamı 2 nci sayfa mevcut bu kodda x basınca aktarma yapıyor kodda bi satır boşluk verip satır 45 den başlamayı nasıl yapıcam....

Sub xAktar()
Set s1 = Sheets("Bilgi Formu")
Set s2 = Sheets("Taslak")
Temizle
ss2 = s2.Cells(Rows.Count, "B").End(3).Row
ss1 = 30
For i = 13 To ss2
If s2.Cells(i, 1).Value = "X" Or s2.Cells(i, 1).Value = "x" Then
s1.Cells(ss1, 2) = s2.Cells(i, 3)
s1.Cells(ss1, 3) = s2.Cells(i, 4)
s1.Cells(ss1, 4) = s2.Cells(i, 5)
s1.Cells(ss1, 5) = s2.Cells(i, 6)
s1.Cells(ss1, 6) = s2.Cells(i, 7)
s1.Cells(ss1, 7) = s2.Cells(i, 8)
s1.Cells(ss1, 8) = s2.Cells(i, 9)
s1.Cells(ss1, 9) = s2.Cells(i, 10)
s1.Cells(ss1, 10) = s2.Cells(i, 11)
s1.Cells(ss1, 11) = s2.Cells(i, 12)
s2.Cells(i, 1) = "AKTARILDI"
ss1 = ss1 + 1
End If
Next i
End Sub

 

[cems]

Sub xAktar()
Dim s1 As Worksheet, s2 As Worksheet
Dim ss1 As Long, ss2 As Long
Dim i As Long

Set s1 = Sheets("Bilgi Formu")
Set s2 = Sheets("Taslak")
Temizle

ss2 = s2.Cells(Rows.Count, "B").End(xlUp).Row
ss1 = 30

For i = 13 To ss2
If s2.Cells(i, 1).Value = "X" Or s2.Cells(i, 1).Value = "x" Then
s1.Cells(ss1, 2) = s2.Cells(i, 3)
s1.Cells(ss1, 3) = s2.Cells(i, 4)
s1.Cells(ss1, 4) = s2.Cells(i, 5)
s1.Cells(ss1, 5) = s2.Cells(i, 6)
s1.Cells(ss1, 6) = s2.Cells(i, 7)
s1.Cells(ss1, 7) = s2.Cells(i, 8)
s1.Cells(ss1, 8) = s2.Cells(i, 9)
s1.Cells(ss1, 9) = s2.Cells(i, 10)
s1.Cells(ss1, 10) = s2.Cells(i, 11)
s1.Cells(ss1, 11) = s2.Cells(i, 12)
s2.Cells(i, 1) = "AKTARILDI"
ss1 = ss1 + 2 ' Bir satır boşluk bırak
End If
Next i
End Sub

Bu güncellemede, ss1 değişkenini iki arttırarak bir satır boşluk bıraktım (ss1 = ss1 + 2). Böylece 45. satırdan başlamış olacak.

 

[netvolxxx]

benim istediğim bu değildi aralarda bi satır boşluk bırakmak değil excel sayfasını ekleyim daha iyi olcak anlatım için ekleme yapmak istediğim şablon sayfa yı yükledim....

 

[Muzaffer Ali]

Merhaba.

ss1 = ss1 + 1

satırı silin yerine aşağıdaki satırları kopyalayın.

If s1.Cells(ss1 + 1, "B") = "ÜRÜN ADI" Then
        ss1 = ss1 + 2
    Else
        ss1 = ss1 + 1
    End If

 

[netvolxxx]

Merhaba.

ss1 = ss1 + 1

satırı silin yerine aşağıdaki satırları kopyalayın.

If s1.Cells(ss1 + 1, 11) = "ÜRÜN ADI" Then
        ss1 = ss1 + 2
    Else
        ss1 = ss1 + 1
    End If

is

44 nolu satırada veri yazıyor 44 nolu satır başlıklar içeriyoyor 45 den devam etmesi excel şablonunda anlatmaya çalıştım

 

[Muzaffer Ali]

is

44 nolu satırada veri yazıyor 44 nolu satır başlıklar içeriyoyor 45 den devam etmesi excel şablonunda anlatmaya çalıştım

Ben şablona bakarak cevap verdim. Verdiğim kodu denerseniz çözüm olacaktır.
Yalnız bir hata yapmışım 4. mesajdaki kodu düzelttim.

 

[netvolxxx]

denedim hocam 44 nolu satırada veri yazıyor

 

[netvolxxx]

4 ünce mesajdaki kodlada denedim 44 nolu satıra veri yazıyor aynı hocam değişen bir şey olmadı

 

[Muzaffer Ali]

Kodu yeniledim tekrar deneyin.

 

[netvolxxx]

Kodu yeniledim tekrar deneyin.

hocam denedim sizleride yordum ama aynı sonuç 4 nolu mesaj denedim

 

[Muzaffer Ali]

ss1 = ss1 + 1

Bu satırı silin dedim sanırım siz silmediniz

Kod aşağıdaki gibi olacak.

Sub xAktar()
    Set s1 = Sheets("Bilgi Formu")
    Set s2 = Sheets("Taslak")
    'Temizle
    ss2 = s2.Cells(Rows.Count, "B").End(3).Row
    ss1 = 30
    For i = 13 To ss2
    If s2.Cells(i, 1).Value = "X" Or s2.Cells(i, 1).Value = "x" Then
    s1.Cells(ss1, 2) = s2.Cells(i, 3)
    s1.Cells(ss1, 3) = s2.Cells(i, 4)
    s1.Cells(ss1, 4) = s2.Cells(i, 5)
    s1.Cells(ss1, 5) = s2.Cells(i, 6)
    s1.Cells(ss1, 6) = s2.Cells(i, 7)
    s1.Cells(ss1, 7) = s2.Cells(i, 8)
    s1.Cells(ss1, 8) = s2.Cells(i, 9)
    s1.Cells(ss1, 9) = s2.Cells(i, 10)
    s1.Cells(ss1, 10) = s2.Cells(i, 11)
    s1.Cells(ss1, 11) = s2.Cells(i, 12)
    s2.Cells(i, 1) = "AKTARILDI"

        If s1.Cells(ss1 + 1, 2) = "ÜRÜN ADI" Then
            ss1 = ss1 + 2
        Else
            ss1 = ss1 + 1
        End If
    End If
    Next i
End Sub

 

[netvolxxx]

son verdiğiniz kodlada denedim aynı ekran görüntülerini paylaştım..

 

[Muzaffer Ali]

Aktarım yapmadan önce B44' de "ÜRÜN ADI" yazmıyor mu?
Ben de doğru çalışıyor.

 

[netvolxxx]

sizin excel sayfasında aktarıyor bende olmadı inceliyorum çözemedim tek fark sizdeki taslak sayfası x yazan kısım 2 nci satırdan başlıyor bende ki 13 den başlıyor nasıl bi mantık anlayamadım gitti....

 

[netvolxxx]

muzaffer bey tamamdır ok işlem oldu hata benden kaynaklı çok teşekürrr ederim ilginiz için......