Syf1 deki verileri Syf2de sıralama

[thesaws]

Merhabalar arkadaşlar,

Sayfa 1de dağınık bir şekilde bulunan ve zaman zaman yeni eklenecek hücreler-veriler sayfa 2 de güncel bir şekilde sıralanacak. Örnek dosyayı gönderiyorum yardımlarınızı rica ederim.

-Saygılarımla

 

[Emir Hüseyin Çoban]

. . .

Sayfa1 deki veriler
aşağıya doğru mu çoğalacak yoksa sağa doğru mu.

. . .

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Makro1()
    
    Dim Kol As Integer, _
        Sat As Long, _
        i   As Long, _
        j   As Integer, _
        s1  As Worksheet, _
        s2  As Worksheet
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    
    
    Kol = s1.Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    Sat = s2.Cells.Find("*", , , , xlByRows, xlPrevious).Row
   
    s2.Columns(1).ClearContents
    s2.Range("A1") = "FİRMALAR"
    
    For j = 2 To Kol
        i = s2.Cells(Rows.Count, "A").End(3).Row + 1
        s1.Range(s1.Cells(2, j), s1.Cells(Sat, j)).Copy s2.Cells(i, "A")
    Next j
    
    i = s2.Cells(Rows.Count, "A").End(3).Row
    
    s2.Range("A2:A" & i).Sort Key1:=s2.Range("A1")
    
    MsgBox "İşlem Tamamlandı...."
    
End Sub

 

[thesaws]

aşağı doğru
-Emir Hüseyin Çoban
merhabalar
excel olarak atma şansınız varmı
-Necdet Yeşertener

ve genel bilgi amaçlı söylüyorum syf1 firmalar bilgi amaçlıdır. yani aslında o olmayacak

 

[thesaws]

Sayın,

Nejdet Bey yapmış bulunmaktayım saygılarımı sunarım. Ama ilk 15 satıra işlem yapabilmekteyim lütfen bunu arttırmanızı rica ederim.

 

[Necdet]

Sayın,

Nejdet Bey yapmış bulunmaktayım saygılarımı sunarım. Ama ilk 15 satıra işlem yapabilmekteyim lütfen bunu arttırmanızı rica ederim.

1. Adım Nejdet değil, Necdet
2. Satır ve Sütun kısıtlaması yoktur kodlarda.