Makro İstek

[pashazeus]

Merhaba,

Excel'de E hücresine tarih giriliyor, F,G,H hücrelerine yazdığım formül ile gün/ay/yıl olarak ayrılıyorlar =Day(E3) gibi

ayni dosyada M hücresine herhangi bir rakam yazılıyor, N hücresinde ise rakam varsa 0 oluyor boş ise 1 yazıyor.

excel çok fazla büyük veri olduğundan kasma çok olmaktadır bu yüzden makroya çevirrisek daha az kasma yaşanır diye düşünyorum, doya boyutu 40 Mb dir.

desteğiniz için şimdiden teşekkürler



teşekkürler

 

[Ömer BARAN]

Merhaba.
ALTIN ÜYELİK durumu olmadığına göre; belgenizin az satırlı bir örneğini (kullandığınız formülleri silmeden)
burası veya burası gibi bir dosya paylaşım sitesine yükleyin, oradan alacağınız erişim bağlantı adresini
burada paylaşırsanız, daha hızlı çözüme ulaşırsınız.

 

[YUSUF44]

İlgili sayfanın kod bölümüne yapıştırıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E1:E50000")) Is Nothing Then GoTo 10
If IsDate(Target) = True Then
a = Target.Row
Cells(a, "F") = Day(Target)
Cells(a, "G") = Month(Target)
Cells(a, "H") = Year(Target)
End If
10:
If Intersect(Target, Range("M1:M50000")) Is Nothing Then Exit Sub
b = Target.Row
If WorksheetFunction.IsNumber(Target) = True Then
Cells(b, "N") = 0
Else
Cells(b, "N") = ""
End If
End Sub

Kod 50000 satır için geçerlidir, istediğinize göre arttırıp azaltabilirsiniz.