EĞER'İN MACRO'da KULLANILMASI ve DOLU HÜCREYE AKTARILMASI

[yenilik025]

MERHABALAR ; EXCELDE MANUEL OLARAK GİRDİĞİM KOŞULUMUZUN
( EĞER(E2-F2>=0;"DOLU";"BOŞ" )

B2 SÜTUNU DOLU İSE
E SÜTUNUNDA MAKRO OLARAK GELMESİNİ
İSTİYORUM. BUNU NASIL YAPABİLİRİZ.
a b c d d e f
1 12 ABDURAHMAN can 50 30 =EĞER(d2-e2>=0;"DOLU";"BOŞ"
2 123 ADEM b dolu ve macro ile gelmesi gerekiyor.

 

[muygun]

Merhaba;
Formülünüz doğru ise eki deneyin.
(NOT: E ve F sütunlarının boş olma durumunda iki hücrenin farkı 0 olacağından formülünüzdeki >=0 mukayesesi gereği "DOLU" olarak belirlenecektir.)

İyi çalışmalar.

 

[yenilik025]

Teşekkürler

Teşekkürler hocam kod çalışıyor.bu şekil istediğim aslında
yani B2 dolu ise 15 gün üstünün bana bilgisini vermesi.
ama bunun dezavantajı bir bütona tanımlanması halbuki
Örneğin B2 Ye eğer BİR sayı giriyorsam YANİ B2:B SÜTUNU DOLUYSA
hemen orda

f2-e2
f3-e3
f4-e4
....
....

işlemlerini yapması aslında aradığım.
bu işlem sonucunda 15 günü geçiyorsa o zaman buraya kendisinin bir bUtona basmadan
dolu hücrelerde işlemi yapıp karşılarına
g2
g3
g4 sütunlarına sırayla

"SÜRESİ GEÇiYOR"
"SÜRESİNDE"
uyarısını göstermesi



Sub aktarr()
Application.ScreenUpdating = False
On Error Resume Next
Range("g2:g65536").ClearContents
For i = 2 To Range("b65536").End(xlUp).Row
If Cells(i, "b") <> "" And Cells(i, "f") - Cells(i, "e") > 15 Then Cells(i, "g") = "SÜRESİ GEÇiYOR" Else Cells(i, "g") = "SÜRESİNDE"
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub