Soru Otomatik Toplama Yapılması

antepli27

Normal Üye
İyi akşamlar kolay gelsin arkadaşlar.
Göndermiş olduğum dosyada Veri sayfasındaki F sütununa miktar girince otomatik olarak I sütununa atıyor. Sizden ricam F sütununa değil de E sütununa miktar girince otomatik olarak I sütununa atmasını istiyorum. Ayrıca Veri sayfasındaki I sütunun Makbuz sayfasında N4 hücresine Veri sayfasındaki F hücresinin ise Makbuz sayfasında J4 hücresine gelirse çok memnun olurum
 

Ekli dosyalar

Tüm sütunlar dolu olmasına rağmen toplama yapmıyor. Ayrıca If Target.Offset(0, 1) <> "" Then makro hatası veriyor.

Muhtemelen kodları başka sayfaya aktarıyorsunuz. Bende problemsiz çalışıyor.
If Target.Offset(0, 1) <> "" bu sütun F sütunu dolu olmalı.
Asıl dosyanızdaki aşağıdaki kod bloğunun satır başlarına tek tırnak ' koyup inaktiv yapınız. Çakışma var gibi.

'Sub topla()

's1son = Cells(Rows.Count, 2).End(3).Row

'For X = 1 To s1son
'If Cells(X, 2) = "ANKARA" Then Cells(X, 9) = Cells(X, 6) + 2
'If Cells(X, 2) = "İSTANBUL" Then Cells(X, 9) = Cells(X, 6) + 3
'Next X

'End Sub
 
Üst