Liste oluşturma

[yyhy]

Macro ile liste oluşturabilir miyiz?

 

[Muzaffer Ali]

Aşağıdaki kod işinizi görür mü?

Sub deneme()
    Dim Veri As Range
    Dim Bak As Range
    Dim Satir As Integer
    Satir = 3
    
    Set Veri = Sheets("TümListe").Range("F4:N9")
    For Each Bak In Veri
        Satir = Satir + 1
        Sheets("TümListe").Cells(Satir, 5).Value = Bak.Value
    Next
    
    Set Veri = Sheets("TümListe").Range("P4:AU8")
    For Each Bak In Veri
        Satir = Satir + 1
        Sheets("TümListe").Cells(Satir, 5).Value = Bak.Value
    Next
End Sub

 

[yyhy]

Kod eksik işlem yapıyor.

Sayın Dalgalikur öncelikle teşekkürler. Verilen kodu butona bağladım ama iki listeyi aşağıya doğru kopyalayıp yapıştırması gerekirken eksik kopyalama yapıyor acaba hata nerede?

 

[Muzaffer Ali]

Verdiğim örnekte

Set Veri = Sheets("TümListe").Range("F4:N9")

satırı 1. F4 hücresi ile N9 hücreleri arasındaki verileri kopyalıyor

Set Veri = Sheets("TümListe").Range("P4:AU8")

satırı 2. P4 hücresi ile AU8 hücreleri arasındaki verileri kopyalıyor

Eğer verileri artırdıysanız buradaki hücre adreslerini de değiştirmeniz gerekmektedir.

 

[yyhy]

Sayın dalgalikur

Örnek dosya üzerinde uygulayamadım. Acaba dosya macroları uygulayabilir misiniz?