Makro'ya İlave ( İlk Pozitif Değere Göre..)

[1Al2Ver]

Merhaba,

Ek'li dosyamda, J sütununda ilk pozitif değere göre ilgili satırı renklendiren makroya bir ilave rica ediyorum ;

B7 ve B8 hücrelerine, J sütunundaki ilk pozitif değere göre E ve I sütunundaki rakamları almak istiyorum,

Teşekkür ederim.

 

[uzmanamele]

Merhaba,

Ek'li dosyamda, J sütununda ilk pozitif değere göre ilgili satırı renklendiren makroya bir ilave rica ediyorum ;

B7 ve B8 hücrelerine, J sütunundaki ilk pozitif değere göre E ve I sütunundaki rakamları almak istiyorum,

Teşekkür ederim.

merhaba

bunu deneyiniz.

Sub biçimlendir_2()
Range("E2:J20").Interior.ColorIndex = xlNone
For i = 2 To 20
If Cells(i, "J") > 0 Then
Range("E" & i & ":" & "J" & i).Interior.ColorIndex = 4
Range("B7") = Range("E" & i)
Range("B8") = Range("I" & i)
Exit For
End If
Next i
End Sub

not:
Sub ile başlayan prosedürler standart modüle,
Private Sub ile başlayan prosedürler sayfanın kod bölümüne yazılır.

 

[1Al2Ver]

Merhaba Sayın Uzmanamele,

Teşekkür ederim,

Saygılarımla.