Makro eğer formülü

[mrkync]

Arkadaşlar istediğim şu tablomdaki bilgileri d2 sütunundan başlıyor sonsuza kadar gidiyor. Makro ile d2 sütununa bakarak eğer hücre boş ise herhangi bir işlem yapmayacak dolu ise c2 sütununa Nisan yazacak bunu nasıl yapabiliriz. Formüllü hali şöyle =EĞER(D2="";"";"Nisan") bunu nasıl makro yapabilirim.

Kolay gelsin.

 

[Huseyinkis]

Ekteki kodları denermisiniz.

Sub Deneme()

For i = 2 to Cells(rows.count,4).end(3).row

if cells(i,4).value<>"" then
Cells(i,4).value="Nisan"
End if
Next i

End sub

 

[asi_kral]

Merhaba
1. Çözüm

Option Explicit
Sub yazı()
Dim STR As Long
Application.ScreenUpdating = False
For STR = 2 To Cells(Rows.Count, "D").End(xlUp).Row
If Cells(STR, "D") <> Empty Then
Cells(STR, "C") = "Nisan"
End If: Next
Application.ScreenUpdating = True
End Sub

2. Çözüm

Option Explicit
Sub formule()
Dim STR As Long
Application.ScreenUpdating = False
STR = Range("D" & Rows.Count).End(xlUp).Row
With Range("C2:C" & STR)
.Value = "=IF(D2="""","""",""Nisan"")"
.Value = .Value
End With
Application.ScreenUpdating = True
End Sub

 

[mrkync]

çok teşekkürler

 

[mrkync]

Arkadaşlar bir küçük sorun var şimdi benim kullanmış olduğum birkaç sayfa var makroyu nisan ayında kullandığımda nisan sayfasına yazıyor mayıs ayı sayfasında farklı bir mayıs makrosu çalıştırdığımda ise nisan sayfasındaki verileri sildikten sonra mayıs ayının sayfasındakileri yazıyor. Yani diğer sayfadaki verileri siliyor bu neden kaynaklanır.

 

[asi_kral]

Arkadaşlar bir küçük sorun var şimdi benim kullanmış olduğum birkaç sayfa var makroyu nisan ayında kullandığımda nisan sayfasına yazıyor mayıs ayı sayfasında farklı bir mayıs makrosu çalıştırdığımda ise nisan sayfasındaki verileri sildikten sonra mayıs ayının sayfasındakileri yazıyor. Yani diğer sayfadaki verileri siliyor bu neden kaynaklanır.

Merhaba
Örnek dosya ekler misiniz_?