istediğimiz hücrelere bir yazdırma

[jambow]

For Each n In Range("d6:d85")
If IsNumeric Then
n.Value = 1

arkadaşlar d6:d85 arasındaki hücrelere 1 yazdırıyorum ama bunlara ek olarakta ayriyetten f1 hücresinede 1 yazdırmak istiyorum yapamıyorum
yardım lütfen

 

[Orion1]

[F1]=1

 

[jambow]

For Each n In Range("d6:d85 [F1]=1")
If IsNumeric Then
n.Value = 1


anlamadımki dostum nasıl yazacağız kodu yukarıdaki gibimi

 

[jambow]

For Each n In Range("d6:d85 ")
If IsNumeric Then
n.Value = 1

[F1]=1

böyle yaptım oldu

 

[Orion1]

For Each n In Range("d6:d85 [F1]=1")
If IsNumeric Then
n.Value = 1


anlamadımki dostum nasıl yazacağız kodu yukarıdaki gibimi

Vallahi ne icatlar bulunuyor.
Şaşırmamak elde değil.