Boşluk olan 2 sütündan başka çalışma sayfasına boşluksuz kopyalama

[dejavuxer]

G ve P sütüunlarda aralarında boşluk olan numaralar var bu numaraları

SEKTÖR sayfasının B2 satırından itibaren aralarında boşluk olmadan kopyalamam gerekli sitede araştırdım ama bir türlü yapamadım

Yardımlarınızdan dolayı teşekkürler.

 

[hamitcan]

İstediğiniz şekli bir örnekle açıklayın.

 

[dejavuxer]

İstediğiniz şekli bir örnekle açıklayın.

Merhaba hamit bey
Göndermiş olduğum örnekte
VERI sayfasının G ve P sütunlarında aralarında boşluk olan veriler var.

Ben bu verileri aralarında boşluk olmadan SEKTÖR sayfasının B2 hücresine
Kopyalamak istiyorum fakat bir türlü yapamadım.

Yardımlarınız için teşekkürler.

 

[hamitcan]

Anladığım şekilde yaptım, umarım doğrudur.

Sub Aktar()
    c = 1
    d = 1
    For i = 2 To Sheets("veri").[g65536].End(3).Row
        If Sheets("veri").Cells(i, "g") <> "" Then
        c = c + 1
        Sheets("sektör").Cells(c, 1) = Sheets("veri").Cells(i, "g")
        End If
    Next
    For i = 2 To Sheets("veri").[p65536].End(3).Row
        If Sheets("veri").Cells(i, "p") <> "" Then
        d = d + 1
        Sheets("sektör").Cells(d, 2) = Sheets("veri").Cells(i, "p")
        End If
    Next
    MsgBox "Bitti"
End Sub

 

[dejavuxer]

Hamit hocam olmuş ama bir değişklik gerekiyor SEKTÖR Sayfasında

Kopyalanan verilerin hepsi B sütununa kopyalanması gerekli ,
şu an A ve B kopyalanıyor değişklik yapmaya çalıştm ama yapamadım.

İlginizden dolayı teşekkürler

Anladığım şekilde yaptım, umarım doğrudur.

Sub Aktar()
    c = 1
    d = 1
    For i = 2 To Sheets("veri").[g65536].End(3).Row
        If Sheets("veri").Cells(i, "g") <> "" Then
        c = c + 1
        Sheets("sektör").Cells(c, 1) = Sheets("veri").Cells(i, "g")
        End If
    Next
    For i = 2 To Sheets("veri").[p65536].End(3).Row
        If Sheets("veri").Cells(i, "p") <> "" Then
        d = d + 1
        Sheets("sektör").Cells(d, 2) = Sheets("veri").Cells(i, "p")
        End If
    Next
    MsgBox "Bitti"
End Sub

 

[bzace]

Merhaba,
Şu şekide uygulayınız.

Sub Aktar()
    c = 1
    For i = 2 To Sheets("veri").[g65536].End(3).Row
        If Sheets("veri").Cells(i, "g") <> "" Then
        c = c + 1
        Sheets("sektör").Cells(c, 2) = Sheets("veri").Cells(i, "g")
        End If
    Next
    For i = 2 To Sheets("veri").[p65536].End(3).Row
        If Sheets("veri").Cells(i, "p") <> "" Then
        c = c + 1
        Sheets("sektör").Cells(c, 2) = Sheets("veri").Cells(i, "p")
        End If
    Next
    MsgBox "Bitti"
End Sub

 

[dejavuxer]

Hocam teşekkür ederim eline sağlık....

Merhaba,
Şu şekide uygulayınız.

Sub Aktar()
    c = 1
    For i = 2 To Sheets("veri").[g65536].End(3).Row
        If Sheets("veri").Cells(i, "g") <> "" Then
        c = c + 1
        Sheets("sektör").Cells(c, 2) = Sheets("veri").Cells(i, "g")
        End If
    Next
    For i = 2 To Sheets("veri").[p65536].End(3).Row
        If Sheets("veri").Cells(i, "p") <> "" Then
        c = c + 1
        Sheets("sektör").Cells(c, 2) = Sheets("veri").Cells(i, "p")
        End If
    Next
    MsgBox "Bitti"
End Sub