sayfa1'deki verilerden yeni tablo oluşturmak

[hayri tekin]

Merhaba,

ekli dosyamda sayfa1'deki verilerden sayfa2'de farklı bir tablo oluşturmak istiyorum.Gerekli açıklama sayfa2'de yapılmıştır.

 

[catalinastrap]

sonuç sayfasını inceleyiniz
verileri yenilemek için refresh yapınız

 

[hayri tekin]

ilginize çok teşekkür ederim ama istediğim bu değil maalesef.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp dener misiniz?

Sub Duzenle()
    
'   Necdet YEŞERTENER 22 Ekim 2013
    Dim i   As Long, _
        j   As Long, _
        s1  As Worksheet, _
        s2  As Worksheet
 
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
 
    j = s1.Cells(Rows.Count, "B").End(3).Row
    Application.ScreenUpdating = False
    s2.Range("A:D").ClearContents
    s1.Range("A1:D" & j).Copy s2.Range("A1")
 
    i = 2
    Do
        s2.Range("B" & i & ",D" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        s2.Range("A" & i + 1 & ",C" & i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        i = s2.Cells(i, "A").End(4).Row
    Loop Until s2.Cells(i, "A") = ""
 
    Application.ScreenUpdating = False
    MsgBox "İşlem Tamamlandı...."
 
End Sub

 

[hayri tekin]

Merhaba Necdet hocam,

10004 hesabı 102 hesabın içinde gösteriyor.Yani bir kayma mevcut.

Üstadım burada asıl olan hesap kodlarının dediğim şekilde olması;yani hesap isimlerini kaale almayın.

 

[Necdet]

Merhaba Necdet hocam,

10004 hesabı 102 hesabın içinde gösteriyor.Yani bir kayma mevcut.

Üstadım burada asıl olan hesap kodlarının dediğim şekilde olması;yani hesap isimlerini kaale almayın.

Halklısınız, s1 ve s2 ler karışmış deneme yaparken de öyle kalmış.

Önceki mesajımdaki kodları ve dosyayı değiştirdim. Tekrar dener misiniz?

 

[hayri tekin]

Çok teşekkür ederim.Elinize sağlık.
esen kalın hocam.

 

[Necdet]

Çok teşekkür ederim.Elinize sağlık.
esen kalın hocam.

Güle güle kullanınız.

 

[hayri tekin]

Necdet hocam tekrar merhaba,
Yaptığınız dosyayı kendi dosyama uyarladım.Fakat ekteki dosyamdaki gibi bir durum oluştu.Nedenini bir türlü anlayamadım. Yazı formatından mı kaynaklanan bir hata acaba?

 

[hayri tekin]

üstadım,
müsait anınızda bir göz atsanız çok memnun olacağım.
İlk sayfadaki verileri "Y" sütununa kaydırdım; makroda gerekli düzeltmeyi yaptım.
Zaten ilk dosyanıza da bu yeni formatı yapıştırdığımda aynı hata meydana geliyor.
saygılar