Soru : Girilen verilerin ilgili aylara kaydı

[ugurb]

slm Sizden ricam
Genel sayfasına sürekli veri kaydediyorum. Tek seferde, girdiğim Ocak tarihli verinin Ocak
çalışma sayfasına, diğer aylara ilişkin verilerin de o çalışma sayfalalarına da
kaydedilmesin istiyorum
Ã?rneğin;

ALİ 01.01.2005 1234 50,00 YTL

verisini girdigimde bu 01.01.2005 tarihli kayıdımın Hem GENEL çalışma sayfasında
hem de OCAK çalışma sayfasında görülmesini görülmesini istiyorum

şimdiden herkese teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu genel sayfasındaki bir butona bağlayarak çalıştırın.

[vb:1:a4a2a9a9fe]Sub aktar()
For a = [iv1] + 2 To Cells(65536, 1).End(xlUp).Row
Set sayfa = Sheets(Format(Cells(a, 2), "mmmm"))
say = WorksheetFunction.CountA(sayfa.[a2:a65536])
sayfa.Cells(say + 2, 1) = Cells(a, 1).Value
sayfa.Cells(say + 2, 2) = Cells(a, 2).Value
sayfa.Cells(say + 2, 3) = Cells(a, 3).Value
Next
[iv1] = WorksheetFunction.CountA([a2:a65536])
End Sub[/vb:1:a4a2a9a9fe]

 

[ugurb]

Sayın leventm beyfendi öncelikle ilginize tşk. ederim ama verdiğiniz kodları bir butona atadım ama hata verdi
tşk.
Saygılar

 

[Ongun]

Sayın Leventm yazdığı kodları bir bütona atadım ve çok güzel çalıştı. Ã?rnek dosyayı gönderiyorum. Kolay gelsin

 

[ugurb]

arkadaşlar ilginize tşk. ama bende sorun nerede olabilir denilenleri yaptım ama beceremedim
syn ongun ek dosya yok gönderirseniz sevinirim
saygılar

 

[Ongun]

Sayın ugurb, Ã?rnek dosyayı gönderiyorum. Kolay gelsin

 

[Ongun]

Sayın ugurb, sayın leventm yazdığı kodlar üzerinde örnek dosya oluşturdum. Bunu öncelikle belirteyim. Emek benim değil sayın leventm aittir. Genel sayfasına her veri girişinden sonra bütona basıyorsunuz. verileriniz diğer sayfalara aylar itibariyle atılıyor. Kolay gelsin.

 

[Levent Menteşoğlu]

Emek benim değil sayın leventm aittir.

Sn ongun

Ã?ncelikle örnek dosya ekleyerek göstermiş olduğunuz yardım nedeniyle teşekkür ederim. Fakat yukarıdaki gibi sözlere hiç gerek yok, emek hepimizindir. Sizde bir örnek dosya oluşturarak emek verdiniz. Dolayısıyla, amacımız olan yardımlaşma gerçekleşmiş oldu. Sizde konuya ilgi göstererek aslında cevabın sadece soruyu sorana ait olmadığını ve her üyemizin bir cevaptan istifade edebileceğini göstermiş oldunuz.

saygılarımla

 

[Ongun]

amacımız olan yardımlaşma gerçekleşmiş oldu.

Çok haklısınız sayın leventm inceliginizden ötürü size şükranlarımı sunarım.

Ayrıca, bu siteye emeği geçen tüm arkadaşlara bir kez daha teşekkür etmek istiyorum. Harika bir site. Bu sitenin en çok beğendiğim yönü insani değerleri ön plana çıkarması :arkadas: buna millet olarak ihtiyacımız var. İyi ki varsın Excel.Web.

Her şey gönlünüzce olsun. Çalışmalarınızda başarılar dilerim. Saygılarımla

 

[ugurb]

Değerli Arkadaşlar yardımcı olmakiçin gösterdiğiniz çabaya çok teşekkürler.
Ama bende bu kodlar çalışmadı run-time-13 hatası veriyor office i kaldırıp yeniden kurup deneyeceğim herhalde bir sorun var tşk. Zaten bazı kodları çalıştıramamıştım bu vesile ile problemin benden değil bilg. dan kaynaklandığını öğrenmiş oldum çok sağolun
saygılar.