Hücre Kopyalama

[sevindi2002]

İyi Akşamlar Sayın Forumdaşlar

Yaklaşık 20 bin Satırlık bir tablonun " J " sütununda
İşlendi
İşlenmedi
Bulundu
Bulunmadı
gibi Bilgiler var ama tüm satırlar dolu değil ,

Yapmak İstediğim ise,
" J " Sütunundaki " Bulunamadı " yazan hücreyi altındaki hücreye kopyalatmak istiyorum. Tüm satır kopyalanmayacak yalnızca j sütunundaki Bulunamadı ibaresi bir alta kopyalanacak başka hücreler etkilenmemesi gerekiyor.

Yardımlarınız için teşekkür eder İyi akşamlar dilerim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:45b18d3c02]Sub kopyala()
For a = 1 To [j65536].End(3).Row
c = c + 1
If Cells(c, "j") = "Bulunamadı" Then
Cells(c + 1, "j") = "Bulunamadı"
c = c + 1
End If
Next
End Sub
[/vb:1:45b18d3c02]

 

[sevindi2002]

Sayın leventm

Makro çalışmadı yada ben çalıştıramadım
bir daha bakmanız mümkünmü

 

[Levent Menteşoğlu]

Hücreleriniz birleştirilmiş ise işe yaramaz, öncelikle birleştirilmiş hücreleri ayırmanız gerekir.

 

[sevindi2002]

Hücreleriniz birleştirilmiş ise işe yaramaz, öncelikle birleştirilmiş hücreleri ayırmanız gerekir.

Sayın leventm
Tüm birleştirilmiş hücreleri ayırdım ama yine olmadı
Boş bir çalışma kitabında j sütununa Bulunamadı yazdım ve çalıştı Ama Tablonun bulunduğu sayfada çalışmadı.
Zamanınızı emeğinizi harcadığınız için Çok Teşekkür ederim.

 

[Seceren]

Sayın sevindi örneğinizin 20 satırlık bölümünü ekleseniz, mümkünse. Sizden çok ben stres oldum.

 

[Levent Menteşoğlu]

Dosyanızdaki Bulunamadı kelimesinin sonunda bir adet boşluk var, boşlukta bir karakter kabul edilir. Yani sizdeki yazılış "Bulunamadı" değil "Bulunamadı " şeklindedir. Bu durumda ya dosyanızdaki kelime sonundaki boşlukları kaldıracaksınız yada makroyu aşağıdaki gibi düzeltip kullananacaksınız.

[vb:1:4235225d5e]Sub kopyala()
For a = 1 To [j65536].End(3).Row
c = c + 1
If Cells(c, "j") = "Bulunamadı " Then
Cells(c + 1, "j") = "Bulunamadı "
c = c + 1
End If
Next
End Sub
[/vb:1:4235225d5e]

 

[sevindi2002]

Sayın leventm

Çok Çok özür dilerim
Tabloda bulunan "Bulunamadı" metinlerinden sonra bir boşluk varmış ondan çalışmamış
Sorunu çözdüm.
Allah Eline Koluna beynine Güç kuvvet versin Sağol varol
Emeklerinin Karşılığını elbet bir gün bulursunuz inşaallah
Balık Bilmeyebilir Ama Halık(yaradan) Mutlaka Bilir.

 

[sevindi2002]

Sayın sevindi örneğinizin 20 satırlık bölümünü ekleseniz, mümkünse. Sizden çok ben stres oldum.

Sayın Seceren Sorun çözüldü ama yine de görmek isterseniz başka bir soruda dosyayı eklemiştim
İlginiz için sağolun varolun..

http://www.excel.web.tr/download.php?id=10372