Sayfa 1'deki tablonun sonucunun sayfa 2'de çıkması

[*tuanna*]

Formu uzun süre inceledim ama bununla alkalı bir başlığa rastlayamadım Bulduğum başılklarda düğmelerle alakalıydı.
Excelde kesilen, alınan irsaliyeleri ve ödeme makbuzlarını düzenliyorum. Her firma için bir sayfa açtım. Borç alacak şeklinde bir tablo oluşturdum.
En son sayfayada ödeme listesi oluşturdum.
Firmalara ait sayfaların sonunda çıkan ödenmesi gereken borç miktarlarının, firma sayfalarını her güncellediğimde ödeme listesine otomatik olarak çıkmasını istiyorum nasıl yapabilirim?
Sayfalar arasında veri tranferi sanırım anlatmak istediğim ama bulamadım burada.

 

[dEdE]

Merhaba,

Forumumuza hoşgeldiniz.
Örnek dosya eklerseniz daha çabuk yanıt alırsınız.

 

[*tuanna*]

Teşekkürler.
Tablodan bir bölüm yoladım...

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[*tuanna*]

Çok teşekkür ederim Eee, ben diğer dosyalara nasıl uyarlayacağım nasıl yaptınız?

Sub adyaz()
Sheets("TOPLAM").Select
For i = 1 To Worksheets.Count
Cells(i + 1, 1).Value = Worksheets(i).Name
Next i
Cells(i, 2).Value = ""

For i = 1 To Worksheets.Count - 1
With Worksheets(i)
satır = .[G65536].End(3).Row
Cells(i + 1, 2).Value = .Cells(satır, 7).Value
End With
Next i

ss = [B65536].End(3).Row + 1
Cells(ss, 2).Formula = "=Sum(B2:B" & ss - 1 & ")"
Cells(ss, 2).Font.ColorIndex = 3
End Sub

sanırım bu kodu kullandınız ama ben diğer dosyaya uyarlayamadım bir türlü. G hücresindeki sonuçlar yerine H hücresindeki, sonuçların çıkmasını istiyorum ama yapamadım. Yukarıdaki kod'da nereleri değiştirmem lazım?
satır = .[G65536].End(3).Row deki G harfinden kaynaklıdır diye düşünüp G'yi H yaptım ama değişen bir şey olmadı

 

[dEdE]

Merhaba,
Örnek dosyanızı gerçek dosyanızla aynı şekilde düzenleseydiniz böyle olmazdı.
Yaptığınız değişiklik doğrudur. Ancak bir alt satırdaki 7 sayısınıda 8 yapmalısınız. Bu kolon numarasıdır. H kolonu 8. kolondur.
Toplam sayfasındaki verileri silip denerseniz neler yaptığını daha iyi görürsünüz.
Kolay gelsin.

 

[*tuanna*]

Merhaba, tekrardan çok teşekkür ederim.
Biliyorum, taksit taksit söyleyerek uğraştırıyorum sizi Toplam sayfasına girmesini istemediğim 2tane sayfam var, aktar butonuna basınca onlarda geliyor. O iki sayfayı iptal etmenin bir yolu var mı?

 

[dEdE]

Biliyorum, taksit taksit söyleyerek uğraştırıyorum sizi Toplam sayfasına girmesini istemediğim 2tane sayfam var, aktar butonuna basınca onlarda geliyor. O iki sayfayı iptal etmenin bir yolu var mı?

Merhaba,
Evet bu günlerde taksitleri ödemek zor.
Kodlardaki;

If Worksheets(i).Name = "[COLOR="Blue"]firma X[/COLOR]" Then GoTo Atla
If Worksheets(i).Name = "[COLOR="blue"]firma XX[/COLOR]" Then GoTo Atla

mavi işaretli yerlere toplam sayfasına girmesini istemediğiniz sayfaların adını yazınız. Dikkat edin iki ayrı yere yazacaksınız.

 

[*tuanna*]

Şimdi oldu işteee Tekrardan teşekkür ederim. Dediğiniz gibi taksitleri ödemek zor, hele bizim gibi excel'i tam bilmeyenlerle uğraşınca daha da zorlaşıyordur Kolay gelsin size...

 

[*tuanna*]

Excel'i kapatıp açtığımda oluşturduğum makroların hepsi kayboldu kaydetede bastım Makro çalıştırılamıyor. Makro bu çalışma kitabında olmayabilir veya tüm makrolar devredışı bırakılmış olabilir yazıyor Makroların hepsini etkinleştirdim sanıyordum.
Kodu yazdıktan sonra; Aşağıdaki özellikler makro içermeyen çalışma kitabına kaydedilemez. Dosya türü listesinde makro özelliği etkinleştirilmiş bir dosya türü seçin diyor
Dosya türü blöümünü bile bulamadım ben :'(

 

[dEdE]

Merhaba,
Aynı anda iki veya daha fazla dosya açık ise makroları diğer dosyalardan birine kaydetmiş olabilir misiniz? Ya da modül yerine sayfanın koduna yazmış olabilir misiniz?
Buradaki dosyayı tekrar indirip yeniden deneyiniz. Benim gönderdiğim kodlarda böyle bir olaya sebep olacak bir kod yok.

 

[*tuanna*]

Sizin gönderdiğiniz dosyada sorunsuz çalışıyor.
Yoo modüle kaydettim, excel dosyalarını kapatıpda denedimda denedim. Dosyayı kapatana kadar sorunsuz çalışıyor ama dosyayı kapadıktan sonra hepsi gidiyor

 

[*tuanna*]

Hadi kodlarda hata yaptım diyelim, Makro kaydetten yazdır makroso oluşturdum. Dosya kapatılıp açılınca o da gidiyor

 

[dEdE]

Merhaba,
Aklıma gelen bir olasılık var. Forumda yayınlanan modül silme kodları vardı. Modülleri ve sayfanın kodlarını otomatik olarak siliyordu. Acaba onları indirip denediniz mi?
Eğer denedinizse, tüm çalışma kitaplarında geçerli olacak şekilde kaydetmiş olabilir misiniz?

 

[*tuanna*]

Hayır, denemedim Bir yerde bir hata var ama çözemiyorum.

 

[dEdE]

Merhaba,
Excel2007 de hazırlanmış bir dosyayı Excelin daha önceki bir versiyonuna convert ederek açmış ve /veya kayıt türünü yanlış seçmiş olabilirsiniz.

Dosya/Farklı Kaydet yolu ile açılan pencerenin en alt satırındaki Kayıt Türü bölümünde, Microsoft Office Excel Çalışma Kitabı(*.xls) seçiniz.

 

[*tuanna*]

İyi sabahlar,
Dün ofisten çıkmak üzereyken buldum hatamı. "Excel çalışma kitabı" yerine, "Excel makro etkin çalışma kitabı" olarak kaydetmem gerekiyormuş. Öyle kaydedince oldu. Ancak sizin gönderdiğiniz normal çalışma kitabıydı ve makrolar yinede sorunsuz çalışıyordu, onu anlayamadım.
Tekrar sağolun boşuboşuna vaktinizi almışım.

 

[dEdE]

...Ancak sizin gönderdiğiniz normal çalışma kitabıydı ve makrolar yinede sorunsuz çalışıyordu, onu anlayamadım.

Merhaba,
Ben Office 2003 kullanıyorum. Office 2007 de kaydetme seçenekleri farklı olabilir. 2003 versiyonunda Çalışma Kitabı .xls uzantılı olup, makro etkin çalışma kitabı gibi bir seçenek yok.
Sonuçta versiyon farkından kaynaklanan bir sorununuz varmış.
Güle güle kullanın.

 

[*tuanna*]

Merhaba yine bir sorunum var

Sub Düğme1_Tıklat()
Sheets("TOPLAM").Select
Range("A2:B65536").ClearContents
satır = 2

For i = 1 To Worksheets.Count
If Worksheets(i).Name = "PARMİLON TEKSTİL" Then GoTo Atla
If Worksheets(i).Name = "ÜRÜN TAKİP VE DEPO TAKİP ÇİZELG" Then GoTo Atla

Cells(satır, 1).Value = Worksheets(i).Name
satır = satır + 1
Atla:
Next i

Cells(i, 2).Value = ""
satır = 2

For i = 1 To Worksheets.Count - 1
If Worksheets(i).Name = "PARMİLON TEKSTİL" Then GoTo Atla1
If Worksheets(i).Name = "ÜRÜN TAKİP VE DEPO TAKİP ÇİZELG" Then GoTo Atla1

With Worksheets(i)
ss = .[H65536].End(3).Row
Cells(satır, 2).Value = .Cells(ss, 8).Value
End With
satır = satır + 1
Atla1:
Next i

ss = [B65536].End(3).Row + 1
Cells(ss, 2).Formula = "=Sum(B2:B" & ss - 1 & ")"
Cells(ss, 2).Font.ColorIndex = 3
End Sub

kodunu vererek 2 sheet'e listeye eklememiştik. Ancak, şimdi eklemek istemediğim sheet sayısı arttı. Bu kodda nereleri değiştirmem lazım

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.
Hoşçakalın.