Hücredeki formülü kopyalama döngüsü

[Korhan Ayhan]

Selamlar,

Arkadaşlar C sütununda bazı hücrelerde formüllerim var. Bu formül olan hücreleri döngü ile D sütunundaki aynı satırdaki hücrelere sadece formül olarak kopyalamak için nasıl bir döngü kurmak gerekir.

 

[Kemal Demir]

Sn. Cost Control

Bu Kod İşinizi Görecektir. Diye Düşünüyorum.

Sub kod()
For x = 3 To 32
If Cells(x, 3).Interior.ColorIndex = 3 Then
Cells(x, 3).Copy
Cells(x, 4).PasteSpecial
Cells(x, 4).Interior.ColorIndex = xlNone
End If
Next
End Sub

Dosyanız Ek'tedir.

 

[Ali]

Sn Rakkas, sanırım Sn COST_CONTROL, renkleri belirli olsun diye vermiş formüllerin kopyalanmasını istiyor aşağıdaki gibi olsa daha iyi olur sanırım

Sub kod()
For x = 3 To 32
If Cells(x, 3).HasFormula Then
Cells(x, 3).Copy
Cells(x, 4).PasteSpecial
End If
Next
End Sub

 

[Kemal Demir]

Sn.Fructose Haklısınız Sanırım.

Bende Öle Düşündüm ama Buda Çözüm Olabilir Dİye Düşünmüştüm ama zannedersem Yanlış Çözüm vermektense Hiç vermeseydim keşke!

 

[Ali]

Rica ederim Sn Rakkas, burada bilgilerimizi paylaşıyoruz lütfen öyle düşünmeyin asık suratı kabul etmiyoruz bu forumda :hey:

 

[Kemal Demir]

:hey: k::

 

[Korhan Ayhan]

Teşekkür ederim arkadaşlar. :arkadas: