İki dosya arasında belirli koşuldaki hücreleri kopyalamak

[batugul35]

Arkadaşlar merhaba

Örnek1 dosyamda verilerim var.Ben Örnek2 içinde iken İstemiş olduğum değere ait bilgileri Örnek1 den alıp örnek2 ye kopyalatmak istiyorum.
Yardımlarınız için şimdiden teşekkür ederim

Saygılarımla

 

[emregumustek]

dosya yolunu kendinize uyarlayıp çalıştırınız (Workbooks.Open "C:\Users\hp\Desktop\ÖRNEK1.xls")

oldu gibi ama siz yine de deneyin

 

[batugul35]

Çok teşekkür ederim .tam istediğim gibi olmuş.
Fakat benim size gönderdiğim dosyalar malum örnek olarak hazırladığım dosyadır.
Asıl dosyada kırmızı renkli 800..gibi rakamla başlayan hücreler gerçek dosyada "koşullu biçimlendirme " ile kırmızı renkli gelmektedir.dolayısıyla hata vermekte.
Bunun için arkadaki makroda nasıl bir değişiklik yapmak gerekir.

Ayrıca renk kontrolünden ziyade rakam 80000 den büyük ,89999 küçük kontrolüde olabilir.

 

[emregumustek]

Do Until ActiveCell.Font.Color = &HFF& Or ActiveCell.Text = "" yerine

Do Until (ActiveCell.Value > 80000000 And ActiveCell.Value < 89999999) Or ActiveCell.Text = "" yazınız.
neden ..>80000 And ..<89999 yazmadık derseniz, verdiğiniz örnek dosyada değerler 8 haneli (80030025 gibi) önemli olan verdiğiniz aralıkta, aratmak istediğiniz bu değerler dışında herhangi başka bi sayı olmaması.