Şablona excel sayfasından isim getirme

[buseen]

slm bir tane şablonum var excelde isim sayfalarım var bu şablona istedim ismi nasıl getire bilirim

 

[Ayhan Ercan]

Merhaba

Eğer doğru anladıysam,
Ana sayfada değiştirilen isimlere göre şablona isim aktarma.

Makro Kaydet yöntemi ile elde edilen kod:

ActiveSheet.Shapes("Label 1").Select
    Selection.Characters.Text = _
        "                                                                  SAYIN " & [COLOR=red]Sheets("AnaSayfa").Range("A5")[/COLOR] & Chr(10) & "                                                                         GONCA SİTESİ  6 / 1" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "GONCA Site Yönetimi"
    Selection.Characters(201).Insert String:= _
        " Şubat ayı aidatını ödemediğiniz tespit edilmiştir.135 YTL olan aidatı en kısa zamanda 142 YTL olarak yatırmanızı rica ederiz. " & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "                                                             "
    Selection.Characters(401).Insert String:= _
        "                                  GONCA SİTE YÖNETİM KURULU" & Chr(10) & "" & Chr(10) & ""
    Range("K9").Select

Kırmızı yazılan yer ise Ana sayfada combo ilşe seçilen ismin bulunduğu hücre adı..

 

[buseen]

evet hocam sadece ana sayfa combo box taki isim ler şablona lelecek istedim isim gelecek alt bilgiler sabit

 

[buseen]

veya hocam word aktarabilirim ismi seçince nasıl kolay olursa bana
sadece cıktı alıp göndercem

 

[Ayhan Ercan]

Ek dosyayı inceleyiniz...

 

[buseen]

hocm hata veriyor bir bakarmısınız
command butona basınca

.Characters.Text = _
" SAYIN " & Sheets("AnaSayfa").Range("A5") & Chr(10) & " GONCA SİTESİ 6 / 1" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "GONCA Site Yönetimi"

 

[Ayhan Ercan]

hocm hata veriyor bir bakarmısınız
command butona basınca

.Characters.Text = _
" SAYIN " & Sheets("AnaSayfa").Range("A5") & Chr(10) & " GONCA SİTESİ 6 / 1" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "GONCA Site Yönetimi"

Bende hata vermedi...

AnaSayfada Combo ile değiştirilen isimler A5 hücresine belirleniyor.
Bu A5 hücresinde yazılı olan isimlerde Şablona aktarılıyor...
Siz kodda kısaltmamı yapmaya çalıştınız?

Hata veren çalışmayı yollarmısınız..

 

[buseen]

sizin gönderdiniz dosyayı çalıştırdım
şablon command butona basınca
charecters sınıfının text özelliği kullanamıyor diye bir hata

 

[Ayhan Ercan]

Benim yolladığım dosya içindeki kod ile sizin hata verdiğini belirttiğiniz kod aynı uzunlukta değil. ilginç bir durum...

Aşağıda kodu tekrar veriyorum..

Bu kodları denermisiniz...

Private Sub CommandButton1_Click()
ActiveSheet.Shapes("Label 1").Select
With Selection
    .Characters.Text = _
        "                                                                  SAYIN " & Sheets("AnaSayfa").Range("A5") & Chr(10) & "                                                                         GONCA SİTESİ  6 / 1" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "GONCA Site Yönetimi"
    .Characters(201).Insert String:= _
        " Şubat ayı aidatını ödemediğiniz tespit edilmiştir.135 YTL olan aidatı en kısa zamanda 142 YTL olarak yatırmanızı rica ederiz. " & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "                                                             "
    .Characters(401).Insert String:= _
        "                                  GONCA SİTE YÖNETİM KURULU" & Chr(10) & "" & Chr(10) & ""
End With
[a1].Select
End Sub

 

[buseen]

yok hocam aynı hata
ana sayfata combo isim secıyorum a5 yazıyor şablona dönüyorum commsand butona basıyorum aynı hata isim değişmiyor

 

[Ayhan Ercan]

yok hocam aynı hata
ana sayfata combo isim secıyorum a5 yazıyor şablona dönüyorum commsand butona basıyorum aynı hata isim değişmiyor

Anlayamadığım başka bişey var...
Bende hata vermiyor...

 

[leumruk]

Merhaba,
Syn. Ayhan Ercan,
Faydası olur düşüncesiyle yazıyorum. İlk kodunuzu denedim. Bende de çalıştı. Yani kodda bir hata görünmüyor.

 

[leumruk]

Syn. buseen,
Eğer, amacınız sadece çıktı almaksa, alternatif olarak aşağıdaki örneği kullanabilirsiniz.

 

[buseen]

evet çalıştı
uğraşlarınızdan dolayı teşekkürler
isim geldi şablona da word e nasıl aktarabilirim.

 

[buseen]

word belgesi olarak nasıl göndere bilirim.

 

[leumruk]

Belli bir word dosyasına mı? Herhangi bir word dosyasına mı?
Bir de amacınızı belirtirseniz, işimi epey kolaylaştırmış olursunuz.

 

[buseen]

şablona aktardım bilgileri word dosyasına belge olarak atıp cıktı alıp belge olarak kaydetmek aktardım isime

 

[leumruk]

Ekli dosyayı inceler misiniz?

 

[buseen]

Tşk hocam müthiş olmuş
yalnız isim şablona atan formülü kaldırdınızmı ?
=EĞER(AnaSayfa!A5="";"";AnaSayfa!A5)

 

[leumruk]

Tşk hocam müthiş olmuş
yalnız isim şablona atan formülü kaldırdınızmı ?
=EĞER(AnaSayfa!A5="";"";AnaSayfa!A5)

Rica ederim. Formülü kaldırdım. Kodlara ekledim. Comboboxta isim değiştiğinde otomatik olarak, anasayfadaki ismi bu hücreye kopyalıyor.