Çözüldü Userform veri aktarma

[askan]

Yapılmak istenenler 1 nolu sayfada anlatılmıştır. Yardımlarınızı rica ediyorum.

 

[Alparslan]

Yazdığınız kod doğru ama son dolu satır numarasını alırken dikkat etmeniz gereken nokta, sayfaların altında düzenleyen bilgisi gibi veriler var.
Son dolu satır numarası için aşağıda veri olmayan bir sütun seçmek gerekir.

Yazdığınız kod içinde, gelir kısmı için gerekli değişiklikleri yaptım kod çalışıyor.
Değiştirdiğim satırları da belirttim.
Gider kısmı için de uygun olan sütundan son dolu satır numarası alıp işlem yapabilirsiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Alparslan]

Mesaj düzenleme süresi dolduğu için üstteki mesaja ekleyemedim.

Modül1 deki Form_Doldur kodlarını döngü ile yapabilirsiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[askan]

Mesaj düzenleme süresi dolduğu için üstteki mesaja ekleyemedim.

Modül1 deki Form_Doldur kodlarını döngü ile yapabilirsiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Teşekkür ediyorum. Bilgisayar başına geçince kontrol edeceğim.

 

[askan]

Yazdığınız kod doğru ama son dolu satır numarasını alırken dikkat etmeniz gereken nokta, sayfaların altında düzenleyen bilgisi gibi veriler var.
Son dolu satır numarası için aşağıda veri olmayan bir sütun seçmek gerekir.

Yazdığınız kod içinde, gelir kısmı için gerekli değişiklikleri yaptım kod çalışıyor.
Değiştirdiğim satırları da belirttim.
Gider kısmı için de uygun olan sütundan son dolu satır numarası alıp işlem yapabilirsiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[askan]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[askan]

Giderler sayfasında son satırı birtürlü bulduramıyorum. Sorun nedir acaba dosyaya göre?

 

[Alparslan]

Giderler sayfasında B, C, F ve H sütunlarında sabit veri olduğu için son dolu satır numarası alırken bu sütunların kullanılması uygun olmaz. Bu sayfa için D ve E sütunlarının altında kayıt yok.
Bu nedenle ss2 = Sheets("GİDERLER").Range("H" & Rows.Count).End(xlUp).Row + 1 satırındaki H harfini E harfi ile değiştirip kullanabilirsiniz.

 

[askan]

Giderler sayfasında B, C, F ve H sütunlarında sabit veri olduğu için son dolu satır numarası alırken bu sütunların kullanılması uygun olmaz. Bu sayfa için D ve E sütunlarının altında kayıt yok.
Bu nedenle ss2 = Sheets("GİDERLER").Range("H" & Rows.Count).End(xlUp).Row + 1 satırındaki H harfini E harfi ile değiştirip kullanabilirsiniz.

Teşekür ediyorum Alparslan Bey, Böyle basit bir olay için takılıp duruyorum. Aklıma bu tür durumlarda lisedeki Matematik hocamın sözü gelir: 'Matematiğin çok iyi ama 4 işlemi bilmiyorsun.'

 

[Alparslan]

Rica ederim, benimde matematiğim iyi olsa güzel olurdu.

 

[askan]

Rica ederim, benimde matematiğim iyi olsa güzel olurdu.

Alparslan Bey, yine bir sorun oluştu. Ekteki dosyayı bir çalıştırın. 1 Kişi de girdiğim verilere bakın. Form açıkken önce gelir giriyorum 1. kişiye daha sonra formu kapatmadan gider giriyorum aynı kişiye. Gider girdiğim anda Kişi kartında tutar kısımlarını siliyor. Ben bulamadım birde siz göz gezdirir misiniz lütfen !

 

[askan]

Alparslan Bey, yine bir sorun oluştu. Ekteki dosyayı bir çalıştırın. 1 Kişi de girdiğim verilere bakın. Form açıkken önce gelir giriyorum 1. kişiye daha sonra formu kapatmadan gider giriyorum aynı kişiye. Gider girdiğim anda Kişi kartında tutar kısımlarını siliyor. Ben bulamadım birde siz göz gezdirir misiniz lütfen !

Rica ederim, benimde matematiğim iyi olsa güzel olurdu.

Yukardaki problemi buldum kopyala yapıştırma problrmiymiş. Dikkate almayınız!