• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan manly
  • Başlangıç tarihi Başlangıç tarihi
M

manly

Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Makro Kodu Yardımı...

Ek'te gönderdiğim dosyada Sayfa1 deki Düzenle butonuna tıkladığımda Sayfa2 deki verileri veriyor. Ben Sayfa1 deki Düzenle butonuna tıkladığımda Sayfa2 de Sayfa3 teki gibi döküm vermesini istiyorum.. Yardım ederseniz sevinirim..
 

Ekli dosyalar

Son düzenleme:
Excel'in Alt Toplam fonksiyonu var 2007 içinde Veri sekmesinde ama 2003 menülerinde neredeydi unuttum. Öncelikle bu şekilde yapmayı deneyin.
 
İlginiz için Teşekkür ederim.... Onu denedim ama ben makro kodu ile yapmak istiyorum.. Bu konuda yardım ederseniz sevinirim...
 
Son düzenleme:
Ben Safya4 isimli bir sayfa oluşturup yaptım, siz isterseniz, değiştirirsiniz.
Kod: 
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
End Sub


Sub Add_Totals()
[color=red]with sheets("Sayfa4")[/color]
    For Each NumRange In .Columns("d").SpecialCells(xlConstants, xlNumbers).Areas
        SumAddr = NumRange.Address(False, False)
        FAdr = NumRange.Offset(NumRange.Count, 0).Resize(1, 1).Address
        .Range(FAdr).Offset(0, -2) = "ARA TOPLAM"
        .Range(FAdr).Offset(0, -2).Font.Color = vbRed
        NumRange.Offset(NumRange.Count, 0).Resize(1, 1).Formula = "=SUM(" & SumAddr & ")"
        .Range(FAdr).AutoFill Destination:=.Range("D" & .Range(FAdr).Row & ":AA" & .Range(FAdr).Row), Type:=xlFillDefault
    Next NumRange
[color=red]end with[/color]
End Sub
 
İlginize teşekkürler...Ama alt toplamları almıyor...Yani sayfa3 te verdiğim örnekteki gibi değil...
 
Son düzenleme:
İstediğim makro, Butona tıkladığında
Yeni bir sayfa açıp Sayfa3 teki gibi bir alt toplam alınması....
 
Çok sağolun hocam ellerinize sağlık...
 
Hamit hocam her şey çok güzel hesaplamalar da tamam... Sayfa1 deki biçimlerin ölçüleri Sayfa4 de bozuluyor... Bozulmadan aktarma olabilir mi? Yani Sayfa1 deki Sütun ve Satır aralıkları Sayfa4 e bozulmadan aktarılabilir mi?
 
Önce Sayfa1 içindeki tabloyu Sayfa4'e kopyalayın sonra, kodu çalıştırın.
 
Hocam denedim ama satır ve sütun ölçüleri bozuluyor...
 
Hamit hocam yardımlarınızı bekliyorum.
 
Hocam, butona uyarladım fakat makro kodunu çalıştıramadım..
 
Son düzenleme:
Hocam, butona uyarladım fakat makro kodunu çalıştıramadım..
 
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...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst