• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Otomatik makro yazdırmak için, klavuz makrosu.

A

ahzola

Katılım
17 Ekim 2011
Mesajlar
490
Excel Vers. ve Dili
Excel 2003 - Türkçe
Merhabalar

B2 B50 arasına Listemiz olacak.
Karanfil
Hercai Menekşe
..............
...............
gibi


C2 de ise
Sayfa = "aaaaaaaaaaaaaa"
şeklinde metnimiz olacak.

Amacım

B sütunundaki veriyi
C sütunundaki verinin içine("" tırnakların arasına) ilave edip

(Sayfa = "Karanfil") şeklinde

O sütununun ilgili hücresine yazdırmak

Örnek dosyada umarım daha net anlaşılacaktır.

Değerli uzmanlarımızın yardımlarını bekliyorum

Saygılarımla.
 
Son düzenleme:
bunun için makroya gerek yok

örnek sayfanda gösterdim
 

Ekli dosyalar

merhaba

sadece bu formülü görüroyum ben ekte
=BİRLEŞTİR("Sayfa = ";"""";B2;"""")

nerede ve nasıl kullanacağım bunu anlayamadım maalesef.

yada ben meramımı anlatamadım.
biraz daha detay verebilirmisiniz acaba.
 
Aşağıdaki kodu deneyin.

Kod: 
Sub AKTAR()
    Veri = Split(Range("C2"), "= ")
    Satir = 7
    
    For X = 2 To Cells(Rows.Count, "B").End(3).Row
        If Cells(X, "B") <> "" Then
            Cells(Satir, "O") = Veri(0) & "= """ & Cells(X, "B") & """"
            Cells(Satir + 3, "O") = Veri(0) & "= """ & Cells(X, "B") & """"
            Satir = Satir + 6
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Sayın Korhan Bey

Alakanız için çok teşekkür ederim.

Makromuzda düzeltilmesi gereken bir nüans var.

O sütununa verileri yazarken.
Olması gerektiği gibi
1 satır yazıp 2 satır atlıyor.

Atladığı satırlarda veri olacak makroların diğer parçaları.
(Örnek dosyada eklemeyi unutmuşum ben özür dilerim)
Atladığı satırlardaki verileri siliyor.
Bu verilerin silinmemesi için bir düzenleme yaparsanız
çok sevinirim.

saygılarımla.
 
Son düzenleme:
Üstteki mesajımdaki kodu güncelledim. Deneyiniz.
 
Tekrardan merhabalar.

1012 yılının son günündeyiz. Yeni yılda ve sonraki yıllarda tüm forum sakinlerine huzurlu
mutlu ve bol kazançlı günler dilerim.

Sayın Ayhan affınıza sığınarak ben yeni bir dosya ekledim.
Yukarıda yazdığınız makro gayet başarılı. Ben makroyu geliştirebilirim
umudu taşıyordum lakin muvaffak olamadım.

İstediğim makronun olması gereken son halini ekli dosyada belirttim.
Sizin ve diğer uzman arkadaşların yardımlarını bekliyorum.

Saygılarımla.
 
Son düzenleme:
Neden böyle bir kod oluşturma ihtiyacı duydunuz...
 
Merhabalar

Değerli Üstad.
Makro hususundaki kapasitem aşikar.
Ben ancak verilerin yerine değiştirerek
yeni bir makro oluşturabiliyorum.
Kod yazma durumunda değilim maalesef.
Birde Makro kaydet ile hasbelkader birşeyler yapabiliyorum.

Bu dosyamızda ise. Onlarca sayfa oluşturmam gerekiyor.
ve bu yüzlerce formüle tekamül ediyor.
Epeydir meşgulüm bu dosyada...
Zaman mevhumundan ziyade birde kopyalama yaparken
bir boşluk dahi tüm emeğimi heba ediyor.
tekrar başa dönüyorum. Dolayısı ile kendimce böyle bir çözüm
düşündüm.

Eğer ki makromuz yapılırsa. Zamandan kazançlı çıktığım gibi
hata yapma durumumda olmayacak sayenizde.

Saygılar sunuyor
yardımlarınızı bekliyorum.
 
Merhabalar

Diğer arkadaşlarında yardım edebilmesi
adına eki güncelledim.

Kısaca Sabit makromuzun değişkenlerini
otomatik olarak yazdıracak bir makro
istemekteyim.

Saygılarımla.
 
Son düzenleme:
Merhaba,

Ben yanlış yolda olduğunuzu düşünüyorum. Sizin kriterleriniz esnekse yazılacak makroyu buna göre tasarlamak gerekir. Sonuçta siz makroyu excel hücrelerinde oluşturup çalıştırmak istiyorsunuz. Bence bu işlem ikinci bir angarya oluşturur. Direkt olarak makroyu esnek yazmak daha akıllıca olur.
 
Korhan Ayhan' Alıntı:
Merhaba,

Ben yanlış yolda olduğunuzu düşünüyorum. Sizin kriterleriniz esnekse yazılacak makroyu buna göre tasarlamak gerekir. Sonuçta siz makroyu excel hücrelerinde oluşturup çalıştırmak istiyorsunuz. Bence bu işlem ikinci bir angarya oluşturur. Direkt olarak makroyu esnek yazmak daha akıllıca olur.
Genişletmek için tıkla ...

Sayın Ayhan

Hoşgörünüz için teşekkür ediyorum öncelikle.

Ya ben tam olarak durumumu izah edemedim.
Ya da excel bana dilimi ısırtacak tekrardan:)

Örnek dosyamızdan yola çıkarsak.
B C ve D sütunlarında sadece tek bir hücrenin değerini
değiştirip makroyu çalıştırmamız bize 1 makro kazandıracak.
B C ve D sütunlarında ki veri adedinin de onlarca olduğunu
varsayar isek bunun kombinasyonunu düşününüz artık.

Ona keza İlk önce yardımcı olduğnuz makroda kriterleri nasıl belirlediğinize şahit
oldum bilgim dahilinde.

Bu bağlamda

Siz B C ve D sütununu değişken bırakacaksınız.
Hangi veri girilirse o veriye göre işlem yapılacak.
N sütununda ise hücreleri tanımlayacaksınız.
Bu şekilde olduğu zaman. "Benim nazarımda" bu sayfa
bir programcığa dönüşecek. Ve sadece bu dosya için değil
esnek olduğu için tüm dosyalar için
hatta tablolar için dahi kullanabileceğim.

umarım biraz daha aydınlatıcı olmuştur

Saygılarımla.
 
Anladığım kadarı ile B sütunundaki isimler sayfa isimleri bu yüzden kodu aşağıdaki gibi düzenleyebilirsiniz.
Kod: 
Sub Aktar()
 For i = 2 To [b65536].End(3).Row
    Sayfa = Cells(i, 2)
    s = Sheets(Sayfa).[i65536].End(3).Row + 1
'... kodlarınız.
 Next
End Sub
 
Merhabalar

Sayın Hamitcan.
Alakınız için çok teşekkür ederim.
Allah razı olsun.

Makronun mantığını tam anlayamadım.
Söylediğiniz şekilde makroyu yerleştirdim.
Çift makro adı hatası verdi.

11 nolu mesajaki dosyaya uyarlamanız mümkünmü acaba.
 
11 nolu mesajın ekindeki dosyada

P sütununda bulunan metin
yazılacak makro sonunda
N sütunundaki şekle dönüşecek.
 
Ben size yazacağınız kod hakkında sadece fikir verdim. Verdiğim kod sadece bilgilerin hangi sayfaya gideceğini tespit ediyor kalan kısımları ise siz tamamlayacaksınız. Ayrıca tabii ki eski kodları da silmek zorundasınız.
 
Konuyu ilk açtığımda Makroyu parça parça oluşturmak için yardım istemiştim.
Ve Korhan beyin yazdığı kod ile bunu saglayabilmiş idik.
Şimdi ise işi dahada kolaylaştırmak gayretindeyim.

Sayın Hamitcan.

Acaba diyorum ayrı ayrı eklerdenmi bahsediyoruz.
İsteğim 11 nolu mesajdaki ekteki taslağı makroya çevirebilmek.
dosyada durumu izah ettim.

Yazılacak makro ile P sütunundaki taslağımız.
N sütundaki gibi olacak.
(B C ve D sütunlarındaki verileri ilgili yerlere yerleştireceğiz.)
bu olduktan sonra. Copy yapıp bu makroyu istediğimiz yerde kullanacağız.
Taslak yerinde sabit kalacak.

Yeni bir makroya ihtiyacımız var. B C ve D sütunlarındaki verilerden gerekli gördüğümüz yeri değiştirip tekrardan
bir makro elde edeceğiz. Bu bu şekilde devam edip gidecek.

umarım aydınlatıcı olabilmiştir.

Saygılarımla.
 
Korhan Bey, 13 nolu mesajda gayet güzel açıklamış, değişken sayısı arttığı için kodu da değiştirmek gerekiyor. Ben de size bu şekilde bir kod yazdım. Bu kod daha kısa ve kullanışlı. Bu kod diğerleri ile aynı işlevi görüyor ve sayfa isimlerini tespit ediyor, siz sadece kodun devamını altına ekleyeceksiniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst