Userform'dan istenen hücreye kayıt

[seddur]

Merhabalar.Ekli dosyada bulunan userformdan excel sayfasına kayıt yapacağım.Userformdan seçilen ay ve gider tipine göre ANASAYFA'daki tabloda bulunması gereken hücreye rakamlar kayıt olacak.Tabloda en altda ve sağda toplam hücreleri bulunmaktadır.Mevcut kodu dikkate almayın.Yardımcı olacak arkadaşa Teşekkür ederim.

 

[seddur]

Merhaba.Yanıt gelmeyince Dosyayı yeniden düzenledim.Buna göre "GİDERLER" sayfasına harcamalar düzensiz bir şekilde sıralı girilmektedir.Yapılmak istenen "ANASAYFA"da bulunan tablodaki ay ve gider sutunlarında ilgili hücreye hangi aya ve hangi gider tipine aitse gider tutarını yazdırmak.Yalnız aynı aya ait GENEL giderler birden fazla olacağından bunların ay olarak toplamlarının yazdırlması gerekecek.Umarım anlaşılır olmuşdur.Tekrar Teşekkür ederim.

 

[kemal turan]

Merhaba,
H3 hücresine aşağıdaki kodu kopyalayıp yapıştırın. Yukarıdan aşağıya ve soldan sağa sürükleyin.
=ÇOKETOPLA(GİDERLER!$D:$D;GİDERLER!$A:$A;$G$2;GİDERLER!$B:$B;$G3;GİDERLER!$C:$C;H$2)
combobox1 nesnesinin change olayını aşağıdaki gibi yapın

Private Sub ComboBox1_Change()
Range("G2").Value = ComboBox1.Value
End Sub

Sonuç hakkında geri dönüş yaparsanız sevinrim.

 

[seddur]

Tamam dediğinizi yaptım sonuç verdi.Yıl bilgisi tanımlanınca kodlar çalışıyor.Yalnız makro olarak kod yazılmasını tercih ederdim çünkü formuller çalışma esnasında bozulabiliyor bu durumu engellemek içinde sayfa koruması yapıyorum ama başka bir öneriniz olursa yaparım.

 

[kemal turan]

makro yıl değişincemi çalışsın

 

[seddur]

Evet

 

[kemal turan]

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Range("G2").Value = ComboBox1.Value
Range("H3").Select
If ComboBox1 = "" Then
Exit Sub
Else
    Range("H3").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIFS(GİDERLER!C4,GİDERLER!C1,R2C7,GİDERLER!C2,RC7,GİDERLER!C3,R2C)"
    Range("H3").Select
    Selection.AutoFill Destination:=Range("H3:H14"), Type:=xlFillDefault
    Range("H3:H14").Select
    Selection.AutoFill Destination:=Range("H3:P14"), Type:=xlFillDefault
    Range("H3:P14").Select
    Range("H15").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-12]C:R[-1]C)"
    Range("H15").Select
    Selection.AutoFill Destination:=Range("H15:P15"), Type:=xlFillDefault
    Range("H15:P15").Select
    Range("H3:P15").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("E1").Select
    End If
    Application.ScreenUpdating = True
End Sub

 

[seddur]

Tamam tam istediğimiz gibi oldu.Elinize sağlık.Çok Teşekkür ederim.

 

[kemal turan]

Rica ederim.
Önceki sorunuza verdiğim cevap işinizi gördü mü acaba ? Geri dönüş yapmadınız da.
Selametle

 

[seddur]

Mail göndermiştim.Şu an önceki dosyayı kullanıyorum.Üzerine eklemeler yapıyorum.Dosyanın son halini ekliyorum ama henüz bitmedi.Eğer yapabilirseniz şöyle bir talebim olacak.Tahsilat kaydı ile veri girişi yaptığımızda DURUM sayfasında ilgili kişinin ilgili ödemesi sarı renge dönüştürülüp ÖDENDİ" şeklinde yazdırılabilir mi? Bir de DURUM isimli sayfada commandbuttona tıklayınca A blok,B blok ,C blok isimleri ayrı ayrı sayfada gözükebilirmi?

 

[kemal turan]

Merhaba,
İsteğinizi yaptığımızda listwiev demi görüntüleyeceksiniz
Onuda yapayım

 

[seddur]

Tabi olur.Listviewde görüntülensin.

 

[kemal turan]

merhaba
Ek dosyada Durum butonuna basıp çıkan userformda comboboxlardan önce yılı seçin, sonra blok adını seçin.
Listview de seçilen blok sakinlerine ait yıl tablosunda Aylara ait mahsup yapılıp yapılmadığını, fazla veya eksik ödeme yapıldığını eğer mahsuba karşılık ödeme tamam ise Ödendi bilgisi gelir.

 

[seddur]

Veriler sayfasına userform olmadan veri girdim ocak ayı Durum sayfasında Şubat ayına ait sutuna kaydediyor.Bir sutun sağa kayma yapıyor.Tahsilat Giriş userformu Veriler sayfasına kayıt yapmıyor ama sorun değil bende yaparım.Onun dışında bir sorun yok.

 

[seddur]

Bir sutun sağa kayma sorununu ben sutunları bir sağa kaydırarak çözdüm.Anladığım kadarıyla DURUM sayfası "C" sutununa da formul yazmışsınız.Fakat Ödeme yapılmadığı halde ÖDENDİ yazıyor "C" sutunu nasıl çalışıyor.?.Bunun dışında herhangi bir sorun yok.

 

[kemal turan]

Merhaba,
Durum sahifesi ile işimiz kalmadı. Durum raporunu GENEL sahifesinden alıyoruz