• Web sitemize destek olmak, Hazır Excel Dosyaları indirmek ve sitemizi reklamsız kullanmak için VIP Üyelik Satın alabilirsiniz.
    Hesabını VIP Üyeliğe Yükselt

Çözüldü Toplama ve çıkarma kodu hakkında

Cengizhan

VIP
VIP
Kullanıcı
Yaş
38
Versiyon
  1. Excel 2016
  2. Excel 2019
  3. Ofis 365
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Kod:
Sub bakiye()
Dim X As Long
Dim sh As Worksheet
Dim ss As Long
Set sh = Sheets("OZET")
ss = sh.Range("A100000").End(xlUp).Row
For X = 2 To ss
sh.Range("I" & X).Value = sh.Range("G" & X).Value - sh.Range("H" & X).Value + sh.Range("F" & X).Value
Next
Set sh = Nothing
End Sub
Merhaba
kodlarla g sütunundan h sütununu çıkarıp ve onada f sütununu ekliyorum sonucu I sütununa yazdırıyorum sütonlar dolu ise çalışıyor
ama dosyam gereği giriş yaparken g , h ve f sütunlarımın sadece biri dolu olması gerekiyor diğer iki sütununa sıfır yazdrmam gerekiyor
ve bir sütun dolu diğer 2 sütun 0 olunca hata veriyor yardım edermisiniz
 
Çözüm
Merhabalar Sn. @Cengizhan
Anaform isimli UserForm'da bulunan aşağıdaki satırları
Rich (BB code):
iade = iade + Veri(x, 6)
borc = borc + Veri(x, 7)
odenen = odenen + Veri(x, 8)

bu satırlar ile değiştiriniz.
Rich (BB code):
iade = iade + WorksheetFunction.Substitute(Veri(x, 6), " TL", "") * 1
borc = borc + WorksheetFunction.Substitute(Veri(x, 7), " TL", "") * 1
odenen = odenen + WorksheetFunction.Substitute(Veri(x, 8), " TL", "") * 1

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi
Versiyon
  1. Excel 2019
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Merhabalar;
Bakiye kodlarını aşağıdaki kodlar ile değiştiriniz.

--TextBox'lar için Format kullanıldığı için yazılan değerler Sayısal olmuyor.
--Kod metinsel değer ile Toplama Çıkartma yapmak istediği için hata ile sonuçlanıyor.

İlk kod ile farklı olan kısımlar
--Son satırı bulma satırı
Rich (BB code):
ss = sh.Range("A" & Rows.Count).End(xlUp).Row

Toplama-Çıkartma yapılan satır
Rich (BB code):
sh.Range("I" & x).Value = WorksheetFunction.Substitute(sh.Range("G" & x).Value, " TL", "") * 1 - WorksheetFunction.Substitute(sh.Range("H" & x).Value, " TL", "") * 1 + WorksheetFunction.Substitute(sh.Range("F" & x).Value, " TL", "") * 1

Rich (BB code):
Sub bakiye()
Dim x As Long
Dim sh As Worksheet
Dim ss As Long
Set sh = Sheets("OZET")
ss = sh.Range("A" & Rows.Count).End(xlUp).Row
For x = 2 To ss
sh.Range("I" & x).Value = WorksheetFunction.Substitute(sh.Range("G" & x).Value, " TL", "") * 1 - WorksheetFunction.Substitute(sh.Range("H" & x).Value, " TL", "") * 1 + WorksheetFunction.Substitute(sh.Range("F" & x).Value, " TL", "") * 1
Next
Set sh = Nothing
End Sub
 

Cengizhan

VIP
VIP
Kullanıcı
Yaş
38
Versiyon
  1. Excel 2016
  2. Excel 2019
  3. Ofis 365
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

@AhmetRasim hocam şimdide solda arama yapınca direk hata veriyor ve sağda da tarihle arayınca bakiye kısmı gelmiyor
bi yardımcı olsanız içinden çıkamadım :)
 

Ekli dosyalar

  • ExcelDestekCARİ TAKİP .xlsm
    78.7 KB · Görüntüleme: 3

Cengizhan

VIP
VIP
Kullanıcı
Yaş
38
Versiyon
  1. Excel 2016
  2. Excel 2019
  3. Ofis 365
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Hocam yapmaya çalıştığımı anlamışşınızdır borçdan ödemeyi cıkarıp ve iade varsa onuda ekleyim textboxlara sonucu getirmek istiyom borc ne kadar ödeme ne kadar iade ne kadar bakiye ne kadar ama birini düzelttikce diğer yerden patlak veriyor bi yardımcı olsanız size zahmet ☺️
 

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Belgenizi, kodlarınızı incelemiş değilim.

Begede farklı para birimleri yoksa, neden TL ile ₺ simgeleriyle uğraşıyorsunuz.
Hem hücrelere hem de userform nesnelerine doğrudan SAYIları yazdırmak daha doğru değil mi?

Kaldı ki ille de para birimleriyle işlem yapmak istiyor ve farklı para birimleriyle işlemleriniz varsa;
-- belgede, satırların karşısında uygun bir sütunda (OZET sayfası K sütunu)
-- userformda mevcut Textbox'ların yanlarına birer LABEL nesnesi ekleyip formda da bu label nesnesi üzerinde
ilgili satırdaki verilere ait para birimlerini gösterebilirsiniz. Bu şekilde daha kullanışlı olmaz mı?

.
 

AhmetRasim

Forum Yönetimi
Yönetici
Site Yöneticisi
Versiyon
  1. Excel 2019
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Merhabalar Sn. @Cengizhan
Anaform isimli UserForm'da bulunan aşağıdaki satırları
Rich (BB code):
iade = iade + Veri(x, 6)
borc = borc + Veri(x, 7)
odenen = odenen + Veri(x, 8)

bu satırlar ile değiştiriniz.
Rich (BB code):
iade = iade + WorksheetFunction.Substitute(Veri(x, 6), " TL", "") * 1
borc = borc + WorksheetFunction.Substitute(Veri(x, 7), " TL", "") * 1
odenen = odenen + WorksheetFunction.Substitute(Veri(x, 8), " TL", "") * 1
 
Çözüm
Üst