slm bir tane şablonum var excelde isim sayfalarım var bu şablona istedim ismi nasıl getire bilirim
Ekli dosyalar
-
19.9 KB Görüntüleme: 20
Son düzenleme:
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
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"
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
Anlayamadığım başka bişey var...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
Rica ederim. Formülü kaldırdım. Kodlara ekledim. Comboboxta isim değiştiğinde otomatik olarak, anasayfadaki ismi bu hücreye kopyalıyor.Tşk hocam müthiş olmuş
yalnız isim şablona atan formülü kaldırdınızmı ?
=EĞER(AnaSayfa!A5="";"";AnaSayfa!A5)