Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 03-02-2017, 10:34   #1
rabbace
Altın Üye
 
Giriş: 03/04/2014
Şehir: İzmit
Mesaj: 286
Excel Vers. ve Dili:
Excel 2013 - Türkçe
Varsayılan Tüm Sayfalarda Arama ve Taşıma

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.
Eklenmiş Dosyalar
Dosya Türü: xlsx Tüm sayfalarda arama.xlsx (11.7 KB, 6 Görüntülenme)
rabbace Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-02-2017, 11:38   #2
dEdE
Destek Ekibi
 
dEdE kullanıcısının avatarı
 
Giriş: 01/07/2005
Mesaj: 1,996
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Merhaba,
Aşağıdaki kodu dener misiniz?
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
"Kara ve deniz geçit vermeyebilir. Sen havayı dene. Yeterki çözüm ara. Çözüm bulunur." Daedalus Efsanesi
dEdE Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-02-2017, 15:02   #3
rabbace
Altın Üye
 
Giriş: 03/04/2014
Şehir: İzmit
Mesaj: 286
Excel Vers. ve Dili:
Excel 2013 - Türkçe
Varsayılan

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.
Eklenmiş Dosyalar
Dosya Türü: xls OCAK 2017 Günlük Gelişleri - Kopya.xls (71.0 KB, 2 Görüntülenme)
rabbace Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-02-2017, 09:50   #4
dEdE
Destek Ekibi
 
dEdE kullanıcısının avatarı
 
Giriş: 01/07/2005
Mesaj: 1,996
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

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.
__________________
"Kara ve deniz geçit vermeyebilir. Sen havayı dene. Yeterki çözüm ara. Çözüm bulunur." Daedalus Efsanesi
dEdE Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 18:36


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden