Yardım Makro ile toplama cikarma Carpma

bukresli

Yeni Üye
Katılım
29 Eki 2018
Mesajlar
23
En iyi yanıt
0
Puanları
3
Yaş
49
Konum
Romanya / Bukres
Ad Soyad
Hünkar Maydanozoğlu
Merhaba Ornek Dosya daki islemleri Makro ile yapmak istiyorum yardimci olursaniz memnun olurum Saygilar
 

Ekli dosyalar

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
116
En iyi yanıt
2
Puanları
28
Yaş
58
Konum
Emekli
Ben bir şey anlamadım.2 tablo var ,hangisi olacak?
 

bukresli

Yeni Üye
Katılım
29 Eki 2018
Mesajlar
23
En iyi yanıt
0
Puanları
3
Yaş
49
Konum
Romanya / Bukres
Ad Soyad
Hünkar Maydanozoğlu
Son düzenleme:

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
116
En iyi yanıt
2
Puanları
28
Yaş
58
Konum
Emekli
Hücrelerin içindeki formüller makro ilemi yapılacak yoksa hücrelere eklediğiniz açıklamlardaki işlemlermi yapılacak?
 

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
116
En iyi yanıt
2
Puanları
28
Yaş
58
Konum
Emekli
4 nolu mesajı okuyun tekrar.Makro ile olacakta neler olacak?
 

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
116
En iyi yanıt
2
Puanları
28
Yaş
58
Konum
Emekli
Ama açıklama içinde yazdığınız formüllermi,yoksa hücre içinde yazılı formüllermi?
 

bukresli

Yeni Üye
Katılım
29 Eki 2018
Mesajlar
23
En iyi yanıt
0
Puanları
3
Yaş
49
Konum
Romanya / Bukres
Ad Soyad
Hünkar Maydanozoğlu
Evren abi bu dosyaya bir bak istersen ufer formu acip rakamlari yazdigimda calisma kitabia yazmasi icin
 

Ekli dosyalar

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
116
En iyi yanıt
2
Puanları
28
Yaş
58
Konum
Emekli
Son yolladığınız dosyada
Evren abi bu dosyaya bir bak istersen ufer formu acip rakamlari yazdigimda calisma kitabia yazmasi icin
Son yolladığınız dosyada ne yapılacak?
Ayrıca bunun hepsini yapmak demek bir program yapmak demek.
Local sorununuz var ise onu söyleyin yapayım.
Program yapmak için vaktim yok.:cool:
 

bukresli

Yeni Üye
Katılım
29 Eki 2018
Mesajlar
23
En iyi yanıt
0
Puanları
3
Yaş
49
Konum
Romanya / Bukres
Ad Soyad
Hünkar Maydanozoğlu
son gonderdigim dosya ilk gondermis oldugum dosyanin gercek hali user formu actigimda bilgileri girip kaydet dedigimde bilgiler excele geliyor benim istedigim excel e akan bilgilerin kaydet butonuna bastigimda excel sayfasinda otomatik toplayip cikarmasi carpasi formuller sayfada bu islemi zaten yapiyor ben gozukmesin diye kaydet makrosunun icine yazacaktim ben izah edemedim kusura bakmayin
 

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
116
En iyi yanıt
2
Puanları
28
Yaş
58
Konum
Emekli
Hangi sayfaya giriyorsunuz userformla.Hangi userform u kullanıyorsunuz?
Hücrelere elle formülü girin önceki dosyadaki gibi.Sonra dosyayı yollayın.:cool:
 

bukresli

Yeni Üye
Katılım
29 Eki 2018
Mesajlar
23
En iyi yanıt
0
Puanları
3
Yaş
49
Konum
Romanya / Bukres
Ad Soyad
Hünkar Maydanozoğlu
Evren Abi sayfayi temizledim sadece formullerin oldugu kolonlar var bu formulleri makroya aktarmak istiyorum
 

Ekli dosyalar

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
116
En iyi yanıt
2
Puanları
28
Yaş
58
Konum
Emekli
Kasa dosyası için yaptım.
Standart bir modül ekleyip oraya yapıştırın.
Diğer dosyayıda size bıraktım.
Dosyanız ektedir.:cool:
Kod:
Sub islemler_59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "H").End(xlUp).Row
Range("J8:J" & Rows.Count & ",M8:M" & Rows.Count & ",P8:P" & Rows.Count).ClearContents
Range("J8").Value = Range("H8").Value - Range("I8").Value
Range("M8").Value = Range("K8").Value - Range("L8").Value
Range("P8").Value = Range("N8").Value - Range("O8").Value
For i = 9 To sonsat
    If Range("B" & i).Value = "" Then
        Range("J" & i).Value = ""
    Else
        Range("J" & i).Value = WorksheetFunction.Sum(Range("H" & i & ":I" & i & ",J" & i - 1))
    End If
    If Range("B" & i).Value = "" Then
        Range("M" & i).Value = ""
    Else
        Range("M" & i).Value = WorksheetFunction.Sum(Range("K" & i & ":L" & i & ",M" & i - 1))
    End If
    If Range("B" & i).Value = "" Then
        Range("P" & i).Value = ""
    Else
        Range("P" & i).Value = WorksheetFunction.Sum(Range("N" & i & ":O" & i & ",P" & i - 1))
    End If
Next i
MsgBox "bitti"
End Sub
 

Ekli dosyalar

bukresli

Yeni Üye
Katılım
29 Eki 2018
Mesajlar
23
En iyi yanıt
0
Puanları
3
Yaş
49
Konum
Romanya / Bukres
Ad Soyad
Hünkar Maydanozoğlu
Sağol Abi şirkette deneyeceğim Hakkını helal et selamlar
 

bukresli

Yeni Üye
Katılım
29 Eki 2018
Mesajlar
23
En iyi yanıt
0
Puanları
3
Yaş
49
Konum
Romanya / Bukres
Ad Soyad
Hünkar Maydanozoğlu
Evren abi ornek 9 satira cikis miktarini yazdigimda bakiye degismiyor bir alt satira gelmiyor dosya ekte
 

Ekli dosyalar

Evren

Uzman
Katılım
9 Haz 2018
Mesajlar
116
En iyi yanıt
2
Puanları
28
Yaş
58
Konum
Emekli
Ben son satırı H sütununa göre buluyordum.
Ondan bulmuyor.
B sütununa göre buldurayım.
B sütunana kaç tane veri girdiyseniz o kadar hücreye veri giriniz.
Ondan sonra çalıştırınız.
İlgili satırı aşağıdaki ile değiştiriniz.
Kod:
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
 
Üst Alt