Tüm Sayfalarda Arama ve Taşıma

[rabbace]

Merhaba,

Ekteki dosyada sayfaların her birinde Gelen Odun (Ton) ve Miktarı yazıyor. Fakat hepsi farklı hücrelerde. Ben bunların her birini bulup kendi sayfasında başka bir yere taşımak istiyorum. Mesela bütün sayfalarda M1'de olabilir hepsi. (M1'de Gelen Odun (Ton), M2'de Miktarı yazacak)

Nasıl yapabilirim?

Fonksiyon ya da makro fark etmez.

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Yerleştir()
Bulunacak = "Gelen Odun (Ton)"
For i = 1 To Worksheets.Count
Set Aranan = Sheets(i).Cells.Find(Bulunacak, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        Sheets(i).Range("M1") = Sheets(i).Range(Aranan.Address).Value
        Sheets(i).Range("M2") = Sheets(i).Range(Aranan.Address).Offset(1, 0)
        
        Sheets(i).Range(Aranan.Address).ClearContents
        Sheets(i).Range(Aranan.Address).Offset(1, 0).ClearContents
    End If
Next i
MsgBox "Aktarma İşlemi Tamamlandı. ", vbInformation, "dEdE  " & _
Application.UserName & "'e Başarılar Diler."
End Sub

 

[rabbace]

Hocam çok teşekkürler,

Örnek dosyamdaki veriler için çalıştı bu fakat sonradan fark ettim asıl dosyamda birleştirilmiş hücreler varmış. Birleştirilmiş hücrelerde hata veriyor. Onu nasıl çözebilirim?

Ben asıl örneği ekleyeyim size.

 

[dEdE]

Merhaba,
Örnek dosyalar aslının bire bir benzeri olmalıdır. Her çözümden sonra "ya şöyle olursa" diye yeni sorular sorulması boşuna zaman ve emek kaybıdır ve bu tür soruları yanıtlamıyorum.
Şu kadarını belirtmeliyim ki;Birleştirilmiş hücreler her zaman sorun çıkarmaya adaydırlar. Yukarıda verdiğim kod birleştirilmiş hücrelerde içeriği temizleme işleminde hata verir. Fakat ikinci örnek dosyanızı incelediğimde zaten bu hücrelerin temizlenmemesi gerektiği sonucuna vardım. Çünkü hücreleriniz formül içeriyor. Formülü silersek sonuç alamayız.
Sonuç: 1.Örnek dosyanız gerçeğinin tüm özelliklerini yansıtmalı.
2.Hata veren iki satırı silerek işlemleri yapabilirsiniz.
3.Birleştirilmiş hücrelerle işlem yapmak zorunlu ise bu benim bilgimi aşar.
Hoşçakalın.