Formülü makroya çevirme

[mersilen]

Selamlar

K101 : U131 arasında

=EĞER(EĞERSAY($C101:$E101;K$100)>0;"";K$100)

formülünü kullanmaktayım
bunu makroya çevirebilir miyiz?

 

[İhsan Tank]

Selamlar

K101 : U131 arasında
formülünü kullanmaktayım
bunu makroya çevirebilir miyiz?

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub sayım_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
trabzonspor = MsgBox("Sayım Başlıyor", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
Range("K101:U131").ClearContents
For ts = 101 To 131
For kaplan = 11 To 21
If WorksheetFunction.CountIf(Range("C" & ts & ":E" & ts), _
Cells(100, kaplan)) < 1 Then
Cells(ts, kaplan) = Cells(100, kaplan)
End If
Next
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sayım Bitti", , "Bitiş"
End Sub

 

[Orion1]

deg = IIf(WorksheetFunction.CountIf(Range("C101:E101"), Range("K100").Value) > 0, "", Range("K100").Value)
MsgBox deg

 

[hımmmmmmmm]

slm

çalışma ekde

 

[mersilen]

Arkadaşlar
herkese teşekkür ederim sorunsuz çalışıyor

 

[İhsan Tank]

Arkadaşlar
herkese teşekkür ederim sorunsuz çalışıyor

Rica ederim
:keyif: