Hücre Dolgulu ise İçine Sayı Atamayı Nasıl Yaparım?

[askerasker85]

Arkadaşlar bu konuda sıkıştım yardım ederseniz sevinirim..
Yardım istediğim konu ve şekli ekli dosyaya attım..
Yardımlarınız için şimdiden çok teşekkürler

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub aktar()
For i = 6 To Cells(Rows.Count, 5).End(3).Row
For j = 13 To 16
If Cells(i, j).Interior.TintAndShade = -0.249977111117893 Then
Cells(i, j) = Cells(i, "e")
End If
Next
Next
End Sub

 

[Huseyinkis]

Aşağıdaki formülü P6 hücresine kopyalayın daha sonra P6 hücresini diğer renkli hücrelere kopyalayın.


=$E6

Eğer bu işlemi otomatik yaması için makro istiyorsanız veya renkli hücreler devamlı değişiyor bunu otomatik yapmak istiyorsanız istediklerinizi biraz daha detaylandırmanızı rica edeceğim.

 

[YUSUF44]

Kod aşağıdaki gibi daha düzel oldu, sadece bir renk değil her gri tonunda işlem yapıyor:

Sub aktar()
For i = 6 To Cells(Rows.Count, 5).End(3).Row
For j = 13 To 16
If Cells(i, j).Interior.TintAndShade <> 0 Then
Cells(i, j) = Cells(i, "e")
End If
Next
Next
End Sub

 

[askerasker85]

Kod aşağıdaki gibi daha düzel oldu, sadece bir renk değil her gri tonunda işlem yapıyor:

Sub aktar()
For i = 6 To Cells(Rows.Count, 5).End(3).Row
For j = 13 To 16
If Cells(i, j).Interior.TintAndShade <> 0 Then
Cells(i, j) = Cells(i, "e")
End If
Next
Next
End Sub

eyvallah hocam sağolasın
inşaat metraj-keşif çalışması için acil çözülmesi gereken bir sorundu...