Farklı kayıt

[argo619]

Ekli dosyamda veri girişi sayfasındaki H3 hücresinden aşağıya doğru H18 hücresine kadar olan bilgileri sayfa1 deki C8 hücresinden aşağıya doğru aynısını atacak. Yalnız Bu bilgiler aylık değiştiği için her ay başında bu rakamlar değişecek. Ama 1. ayda sayfa 1 e giden rakamlar silinmeyecek olup bu sayfadaki rakamlar güncellenince sayfa 1 deki rakamların üzerine toplayacak.

 

[argo619]

yardım edebilecek üstatlarım lütfen yardımınıza ihtiyacım var
bilginizi esirgemeyin
ilginize şimdiden teşekkürler

 

[Ayhan Ercan]

Merhaba

Ek dosyayı inceleyiniz...

Private Sub CommandButton2_Click()
For i = 1 To 16
Sheets("sayfa1").Cells(i + 7, 3) = Sheets("sayfa1").Cells(i + 7, 3) + Sheets("veri girişi").Cells(i + 2, 7)
Next
End Sub

 

[argo619]

Değerli üstadım çok teşekkür ederim
sağolun efendim
allah bilginizi daim etsin
canü gönülden teşekkürler
yalnız
sorun var galiba
mesela boş olunca yine dolduruyor
bi denermisiniz

 

[argo619]

tşk

Hocam dosyayı yeniden ekledim rakamlarda değişiklik yaptım göründüğü gibi sayfa1 e istenildiği gibi aktarılmadı
veri girişinde rakam yokken sayfa 1 de var ayrıca ilk veriyi doğru giriyor sonrasını aynı verinin üzerine topluyor

 

[Ayhan Ercan]

Hocam dosyayı yeniden ekledim rakamlarda değişiklik yaptım göründüğü gibi sayfa1 e istenildiği gibi aktarılmadı
veri girişinde rakam yokken sayfa 1 de var ayrıca ilk veriyi doğru giriyor sonrasını aynı verinin üzerine topluyor

Tekrar Merhaba,
Dalgınlık işte kusura bakmayın..

#3 nolu mesajda kodu da ek dosyayı da güncelledim.
İndirip denermisiniz...

 

[argo619]

Hocam çok teşekkür ederim sğl
tam aradığım gibi
ellerinize bilginize sağlık
teşekkürler

 

[Ayhan Ercan]

Hocam çok teşekkür ederim sğl
tam aradığım gibi
ellerinize bilginize sağlık
teşekkürler

Rica ederim.
İyi Çalışmalar...

 

[argo619]

Bir önceki değeri bulmak

değerli üstadlarım ekli dosyamda benzer kaydım var ama yinede beceremedim
açıklama ekli dosyamda mevcut
kısaca sorunum şöyle hakediş programında veriler girilip ilk kayıt yapılınca ilgili hücrelerin değeri 0 olacak ikinci kez değer girilip güncellenince ilgili hücrelerin değeri ilk güncellemedeki değerler gelecek
ilginize şimdiden teşekkürler

 

[Ayhan Ercan]

değerli üstadlarım ekli dosyamda benzer kaydım var ama yinede beceremedim
açıklama ekli dosyamda mevcut
kısaca sorunum şöyle hakediş programında veriler girilip ilk kayıt yapılınca ilgili hücrelerin değeri 0 olacak ikinci kez değer girilip güncellenince ilgili hücrelerin değeri ilk güncellemedeki değerler gelecek
ilginize şimdiden teşekkürler

Merhaba

Sayfa2 de b31 hücresinde Hakediş Nosu yazılı, o değere göre birşeyler yapmaya çalıştım. Umarım istediğiniz gibi olmuştur.
Sayfa2 nin kod penceresinde CommandButton1_Click()te yazılı olan kodu aşağıdaki gibi değiştirerek deneyiniz.

Private Sub CommandButton1_Click()
Sheets("S2").Range("E10") = Sheets("TOPLAM").Range("E24")
If Sheets("Sayfa2").Range("B31") > 1 Then
    For j = 8 To 23
        Sheets("Sayfa8").Cells(j - 2, 6) = Sheets("toplam").Cells(j, 3)
    Next
ElseIf Sheets("Sayfa2").Range("B31") <= 1 Then
    Sheets("Sayfa8").Range("F6:F21").ClearContents
End If
For i = 1 To 16
    Sheets("toplam").Cells(i + 7, 3) = Sheets("toplam").Cells(i + 7, 3) + Sheets("sayfa2").Cells(i + 2, 7)
Next
End Sub

 

[argo619]

hocam bi deneyeyim umarım beceririm
ilginize teşekkürler
yinede sizleri rahatsız edebilirim foşgörünüze sığınarak

 

[argo619]

Değerli üstadım harikasınız Allah razı olsun
tek kelime ile mükemmel

 

[Ayhan Ercan]

Değerli üstadım harikasınız Allah razı olsun
tek kelime ile mükemmel

Rica ederim.
İyi çalışmalar...

 

[argo619]

yine beceremedim

değerli üstadım sizi bu arada biliyorum yordum, özür dilerim
ama ekli dosyamda yine benzer kayıt bölümü var bir türlü beceremedim
ilgilenirsenizde ilgilenmezseniz de canü gönülden teşekkürlerimi sunarım

 

[Ayhan Ercan]

Ekli dosyada verilerin aktarılması istenen hücre sayısı ile veri sayısı eşit değil.

K5:K13 arası 9 hücre var iken C20:C29 arası 10 hücre var. ....??

 

[argo619]

hocam haklısınız bağışlayın M5 hücresindeki rakam C29 hücresine gelecek

 

[Ayhan Ercan]

Ek dosyayı inceleyiniz...

K4 hücresine aylar için veri doğrulama uygulanmıştır.

Private Sub CommandButton1_Click()
Dim hcr As Range, ay As Range, i As Byte
Set hcr = Range("K4")
For Each ay In Range("C19:O19")
    If ay = hcr Then
        For i = 5 To 13
            Cells(i + 15, ay.Column) = Cells(i, hcr.Column)
        Next i
        Cells(29, ay.Column) = Cells(5, hcr.Column + 2)
    End If
Next
End Sub

 

[argo619]

Sn. Hocam yordum sizi hakkınızı helal edin
Hocam Veri doğrulamada aralık ayı yok birde veriler C20:C28 hücrelerine + M5 hücresi de C29 hücresine aktarılmadı
yoksa benmi beceremedim
özür

 

[argo619]

Hocam sağol tamam anladım
teşekkürler
buton eklemeyi düşünememiştim

 

[Ayhan Ercan]

Hocam sağol tamam anladım
teşekkürler
buton eklemeyi düşünememiştim

Rica ederim.
İyi Çalışmalar....