• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Farklı kayıt

  • Konbuyu başlatan Konbuyu başlatan argo619
  • Başlangıç tarihi Başlangıç tarihi
A

argo619

Katılım
11 Ocak 2008
Mesajlar
377
Excel Vers. ve Dili
mikrosoft exel türkçe
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.
 

Ekli dosyalar

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

Ek dosyayı inceleyiniz...

Kod: 
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
 

Ekli dosyalar

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
 
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
 

Ekli dosyalar

argo619' Alıntı:
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
Genişletmek için tıkla ...

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

#3 nolu mesajda kodu da ek dosyayı da güncelledim.
İndirip denermisiniz...
 
Hocam çok teşekkür ederim sğl
tam aradığım gibi
ellerinize bilginize sağlık
teşekkürler
 
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
 

Ekli dosyalar

argo619' Alıntı:
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
Genişletmek için tıkla ...


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.

Kod: 
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
 
hocam bi deneyeyim umarım beceririm
ilginize teşekkürler
yinede sizleri rahatsız edebilirim foşgörünüze sığınarak
 
Değerli üstadım harikasınız Allah razı olsun
tek kelime ile mükemmel
 
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
 

Ekli dosyalar

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. ....??
 
hocam haklısınız bağışlayın M5 hücresindeki rakam C29 hücresine gelecek
 
Ek dosyayı inceleyiniz...

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

Kod: 
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
 

Ekli dosyalar

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
 
Hocam sağol tamam anladım
teşekkürler
buton eklemeyi düşünememiştim
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst