=eğer sorunu

[samim510]

Merhaba Arkadaşlar

Benim sorunum makro ile ilgili
eğer a1 tarih girersem c1 e formul atsın
vede devamı gelsin istiyorum.
bir türlü çözemedim.
Ekli Dosyada daha açıklayıcıdır sorunum.

Herkese Hayırlı çalışmalar.

 

[Levent Menteşoğlu]

Dosyanızda istediğiniz formülde bir yanlışlık var gibi geldi bana, bir daha bakarmısınız.

 

[samim510]

Evet yeni farkettim
A5'E TARİH GİRDİÐİMDE C5'E =C5*B5
A6'E TARİH GİRDİÐİMDE C6'E =C6*B6
A7'E TARİH GİRDİÐİMDE C7'E = C7*B7

Ã?zür Dilerim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1 in kod sayfasına kopyalayın. A sütunundaki hücrelere tarih girdiğinizde hesaplamayı yapıp sonucu C sütununa yazacaktır.

[vb:1:8bb0e8d47e]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
sat = Target.Row
Cells(sat, 3) = Cells(sat, 3) * Cells(sat, 2)
End Sub
[/vb:1:8bb0e8d47e]

 

[samim510]

Çok Çok Ã?zür Dilerim

Ben formülü yine yanlış anlatmışım
yeni dosyayı ekte gönderiyorum.

 

[Levent Menteşoğlu]

Ben bir yanlışlık olduğunu söylemiştim . Kodu aşağıdaki ile değiştirin.

[vb:1:44b77e08b8]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
sat = Target.Row
Cells(sat, 4) = Cells(sat, 3) * Cells(sat, 2)
End Sub
[/vb:1:44b77e08b8]

 

[samim510]

Sadece boş değer geliyor
Çarpma işlemi gerçekleşmiyor.

 

[Levent Menteşoğlu]

B ve C sütunlarına değer yazdınızmı? Ã?rneğin C5 ve B5 hücrelerine herhangi bir değer yazın. Sonrada A5 hücresine bir tarih yazın.

 

[samim510]

teşekkürler Kodda küçük bir değişiklikle sorunumu çözdüm

ALLAHU TEALA RAZI OLSUN.