OTOMATİK FORMÜL

[eksper]

Slm;

A1 hücresine tarih girdim. B1 hücresine de tarih girdiğimde, C1 hücresine =B1-A1 formülünü atasın istiyorum. Olabilir mi? Teşekkürler.

NOT 1: Tabi formül bulunduğumuz satır sayısına döre değişgen olmalı.
NOT 2: Bu iş fonksiyonla da olabilirse, o da kabulümdür.

 

[Metin Karaağaç]

Neden en başta bütün C sütunun formülle doldurmuyorsunuz anlamadım.
Bi zararı olmaz ki

 

[dmzkn]

bende acemi gibi düşündüm ama bence başka bişi anlatmaya çalışıoo.

 

[eksper]

Doğru mantık ancak B#'ye tarihi belli bir zaman sonra girmek zorundayım. boş olduğunda -37800 gibi sonuç alıyorum. bu da özel tablomda yanlış hesaplamaya neden oluyor.

 

[dmzkn]

c hücrelerini

=eğer(b1="";"";b1-a1)

yapın olsun

 

[Metin Karaağaç]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$1" > 0 Then
Range("C1").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
End If
End Sub

Böyle bir kod oluşturdum makro kaydet ten ama
R1C1 stilini nasıl A B ye çeviricem bilmiyorum. Gerçi değiştirmeye de gerek yok, problemsiz çalışıyor.

 

[eksper]

Acemi1, kodu çalıştıramadım. Hata benden kaynaklanıyor büyük ihtimal. DMZKN'nin önerisi işimi gördü. Her ikinize de çok teşekkürler.

 

[Metin Karaağaç]

Olabilir, bende çalışmıştı ama sizde neden çalışmadı bilemiycem. Çünki makrolar konusunda çok zayıfım, verdiğim kodları da makro kaydetten bulmuştum.

 

[Zeki Gürsoy]

Aradığınız böyle bir şey mi? Daha iyisi olabilir belki ama iki ayda forumdan edindiğim bilgilerle bu kadarını yapabiliyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 1000
If Cells(i, 1) <> "" Then
Cells(i, 3) = Cells(i, 2) * Cells(i, 1)
Else
Exit For
End If
Next
End Sub