otomatik sayfa açma için yardım lazım arkadaşlar..yardım..

[exworld]

Merhaba arkadaşlar,

Ekte örnek bir tablom var. bu bir fatura oluşturma tablosudur. sheet1 deki verilere göre şablon sayfasında görüldüğü gibi fatura oluşturuyor. belirtmem gerekirmi bilmiyorum ama şablon sayfasının oluşması için mutlaka D10 hücresine tabloda bulunan müşteri numarası girilmelidir.

örnek olduğu için sadece 10 kayıt gönderdim. normalde sayfadaki müşteri sayısı 1300. benim sıkıntım, Sheet1 de gerekli bilgileri başka bir tablodan kopyaladığımda (yani diğer büyük tablomdan ilgili alanları kopyaladığımda) E3 satırından başlayarak "şablon" sayfasına göre E3 stununda yer alan müşteri numaraları sayfa isimleri olmak kaydı ile sayfalar açmak istiyorum.

sitedeki örneklere baktım ama, ancak hücreye veri girince sayfa açıyor yada boş sayfa açma örneklerini buldum.

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[exworld]

resim ekledim

ilgili konulardan bulduğum bi kaç kodu denedim bana en yakın olanı ekteki gibi yazdım ama çalışmadı..

yardımcı olur musunuz?

tşk.

 

[exworld]

merhaba arkadaşlar,

ben bu kodu nasıl benimkine uyarlarım yardım var mı?

 

[exworld]

istediğime göre bir kod buldum. kod çalışıyor ama sayfa isimlerini belirttiğim yerdeki isimlere göre yazmıyor.. yardımcı olabilir misiniz?

teşekkürler

kod:

Sub sayfaoluştur()
git = ActiveSheet.Name
Sheets("şablon").Visible = True

For i = 2 To WorksheetFunction.CountA(Worksheets("index").Range("E3:E65000")) + 1
yer = Worksheets("index").Cells(i, 4).Value
deger = 0
For r = 1 To ActiveWorkbook.Sheets.Count
If Sheets(r).Name = yer Then
deger = 1
End If
Next r
If deger <> 1 Then
If Len(yer) < 31 Then
On Error Resume Next
Sheets("şablon").Select
Sheets(ActiveSheet.Name).Copy Before:=Sheets(1)
Sheets(ActiveSheet.Name).Name = yer
Sheets(yer).Cells(1, 1).Value = yer
Sheets(yer).Move After:=Sheets(ActiveWorkbook.Sheets.Count)
End If
End If
Next i
Sheets("şablon").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets(git).Select
MsgBox "işlem tamam"
End Sub

 

[exworld]

lütfen yardım..