Formülle yapılan uygulamayı makro ile nasıl yapabiliriz.

[muratcx]

Merhaba arkadaşlar takip dosyası hazırlamıştım. Formülü binlerce hücreye kopyalamak yerine makro ile belirlilenen hücrelere koşula bağlı olarak veriyi hücreye yazdırabilirmiyiz
Örnek dosyada basit bir çalışma var burada yazan OK kelimesini formül yerine makro ile yazdırmak istiyorum. İlginize şimdiden teşekkür ederim.

 

[leumruk]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b5:b65536]) Is Nothing Then Exit Sub
Target.Offset(0, -1).ClearContents
If Target >= 1 Then Target.Offset(0, -1) = "OK"
End Sub

 

[abbasonline]

leumruk bey, arkadaşımızın dosyası ile ilgilendikten sonra ekteki dosyaya kod yazmamıza yardımcı olurmusunuz. Teşekkürler


http://www.excel.web.tr/showthread.php?t=76523

 

[muratcx]

Hocam çok teşekkür ederim

 

[leumruk]

Hocam çok teşekkür ederim

Rica ederim.

 

[muratcx]

leumruk hocam bir sayfada birden fazla sütunan asıl uygularız yardımcı olabilirmisiniz

 

[leumruk]

leumruk hocam bir sayfada birden fazla sütunan asıl uygularız yardımcı olabilirmisiniz

Aşağıdaki satıra dikkat edin. Örnek olarak 2 farklı sütun daha ekledim e ve g sütunları... Kendinize uyarlayın.

If Intersect(Target, [b5:b65536,e5:e65536,g5:g65536]) Is Nothing Then Exit Sub