Makro Kodunu İsteğime Göre Düzenleme Yardımı...

[manly]

Hamit hocam sizi de yoruyorum kusura bakmayın..Dosyayı inceledim... Hesaplamalarda alttoplamlarda hiç bir sorun yok... Sorun sadece sayfa1 deki sütun aralıklarını değiştirdiğimde sayfa yapısını olduğu gibi sayfa4 de bozulmadan aktarılmasını sağlamak...

 

[manly]

Yardımlarınızı bekliyorum..

 

[manly]

Hamit hocam yardımlarınızı bekliyorum...

 

[hamitcan]

Sütun aralıklarını değiştirdiğinizde kodu, yeniden çalıştırmayı denediniz mi ?

 

[manly]

Evet denedim tekrar normal haline dönüyor...

 

[hamitcan]

Eski kodu, aşağıdaki ile değiştirin.

Sub TabloOlustur()
    Sheets("Sayfa4").Cells.Delete
    Sheets("Sayfa1").UsedRange.Copy Sheets("Sayfa4").[a1]
    For i = Sheets("Sayfa4").[a65536].End(3).Row To 3 Step -1
        If Sheets("Sayfa4").Cells(i, 1) <> Sheets("Sayfa4").Cells(i - 1, 1) Then
          Sheets("Sayfa4").Rows(i).Insert
        End If
    Next
    Add_Totals
   [color=red]  Sheets("Sayfa1").Cells.Copy
     Sheets("Sayfa4").Cells.PasteSpecial Paste:=xlPasteFormats[/color]
End Sub

 

[manly]

Hamit hocam çok sağolun herşey çok güzel...Kusura bakmazsanız bir sorum daha olacak...EK'te gönderdiğim dosyada Sayfa1 deki değerler ÖZEL sayfasından formülle alındığı zaman değerleri formül gördüğü için hata veriyor...

 

[manly]

Hamit hocam yardimlarinizi bekliyorum...

 

[manly]

sayfa1 deki veriler rakam değilde formül olduğu zaman makro hata veriyor...Yardımlarınızı bekliyorum...

 

[hamitcan]

Böyle deneyin.

Sub TabloOlustur()
    Sheets("Sayfa4").Cells.Delete
    Sheets("Sayfa1").UsedRange.Copy
   [color=red] Sheets("Sayfa4").[a1].PasteSpecial Paste:=xlValues[/color]
    For i = Sheets("Sayfa4").[a65536].End(3).Row To 3 Step -1
        If Sheets("Sayfa4").Cells(i, 1) <> Sheets("Sayfa4").Cells(i - 1, 1) Then
          Sheets("Sayfa4").Rows(i).Insert
        End If
    Next
    Add_Totals
     Sheets("Sayfa1").Cells.Copy
     Sheets("Sayfa4").Cells.PasteSpecial Paste:=xlPasteFormats
End Sub