Koşullu hücre değerini taşıma

[davutatar]

Merhabalar,

Bir konuda işin içinden çıkamadım. Örnek dosyayı buraya ekliyorum ancak kısaca anlatmam gerekirse;

C sütununda bulunan koyu renkli yazılan degeri onun altında bulunan alt birimlerin olduğu satırda B sütununa yazdırmak istiyorum. Örnek olarak bir tanesini ben kopyala yapıştır ile yaptım ancak dosyada ki satır sayısının 20000 den fazla olduğunu düşünürsek bunu kopya yapıştır ile yapmak çok uzun zaman alacak. Bunu bir formül yada makro ile çözmek nasıl mümkün olabilir. Şimdiden ilginiz için teşekkür ederim. İyi günler.

 

[ÖmerBey]

Merhaba,
Dosyanızın yedeğini aldıktan sonra aşağıdaki kodu deneyiniz.

Sub Kod()
For a = 1 To Range("C65500").End(3).Row
    If Cells(a, "C").Font.Bold Then metin = Cells(a, "C").Text
    Cells(a, "B") = metin
Next
End Sub

 

[davutatar]

Merhaba,
Dosyanızın yedeğini aldıktan sonra aşağıdaki kodu deneyiniz.

Sub Kod()
For a = 1 To Range("C65500").End(3).Row
    If Cells(a, "C").Font.Bold Then metin = Cells(a, "C").Text
    Cells(a, "B") = metin
Next
End Sub

Öncelikle ilginiz ve cevabınız için teşekkür ederim. Ancak alt birimlerin başına da yazdırmak istiyorum. Bu şekilde sadece ana birimin başına yani koyu yazılmış olan satırın olduğu kısıma yazıyor. Alt birimlerin başına B sütuna ana birim adını taşımıyor. Kod uygulandıktan sonra ki örnek dosyayı ekliyorum.

 

[Merhum İdris SERDAR]

.

Sayın mucit77'nin verdiği kod istediğinizi yapıyor.


Dosyanız ekte.




.

 

[davutatar]

İdris Serdar bey haklısınız hücre renginde yazı tipi rengi beyaz olduğundan dolayı farkedememişim. Tekrardan mucit77 ve size çok teşekkür ediyorum. Tam istediğim şekilde sorun çözülmüş oldu. İyi günler.