girilen sayı kadar otomatik sayfa açma

[ilhangozen]

arkadaşlar selam,

oluşturduğum bir formda girilen sayı kadar yeni sayfa açabilirmiyim.yardımcı olursanız sevinirim.

 

[Orion1]

Formmu oluşturdunuz.
Forma nasıl veri giriliyor merak ettim açıklarsanız bizde öğreniriz.

 

[ilhangozen]

formu daha oluşturmadım.şuan planlama yapıyorum.Ama basit bir userform oluşturup kullanıcının sayı girmesini ve sayı kadar sayfa açmak istiyorum.

 

[Orion1]

formu daha oluşturmadım.şuan planlama yapıyorum.Ama basit bir userform oluşturup kullanıcının sayı girmesini ve sayı kadar sayfa açmak istiyorum.

İyi o zaman size kolay gelsin.Forma nesne eklemeden forma yazarak işinizi yapabiliyorsanız bi şey diyemiyecem.

 

[Orion1]

Belki userformun activate olayına veya Initialize olayına veya click olayına Inputboxla bu işi yapabilirsiniz.

 

[leumruk]

arkadaşlar selam,

oluşturduğum bir formda girilen sayı kadar yeni sayfa açabilirmiyim.yardımcı olursanız sevinirim.

Merhaba,
Textbox kullanarak bir örnek yaptım. Sayfa isimlerini sayısal olarak ayarladım. Dosyanız ekte...

 

[ilhangozen]

teşekkürler çok yardımcı oldu

 

[mithatgokceli]

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim Sayfa As String

' firma listesi sayfasında firma isimleri
'üzerine çift tıklarsanız tıkladığınız sayfaya gider, eğer bu sayfa yok ise
'ornek sayfaya gore sayfa açar. Ve herhangi bir sayfada bir hücreye çift tıklarsanız
'firma listesi sayfasına dönersiniz.

If ActiveSheet.Name <> "FİRMA LİSTESİ" Then
Sheets("FİRMA LİSTESİ").Select
Else
Sayfa = Target.Value
If Sayfa <> "" Then Sheets(Sayfa).Select
End If
Exit Sub
Son:
Sor = MsgBox(Target.Value & " ADLI MÜKELLEF BULUNAMADI, LİSTEYE EKLEMEK İSTER MİSİNİZ? ", vbYesNo, Target.Value & " ADLI ŞİRKET AÇILIYOR...")
If Sor = vbYes Then
Sheets("ornek").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Target.Value
MsgBox Target.Value & " MÜKELLEF LİSTEYE EKLENDİ......", vbOKOnly, ".:KATİP MALİ MÜŞAVİRLİK:."
End If
End Sub

elimde böyle bi kod var, ancak bu kodda sayfanın herhangi bir hücresine tıklandığı zaman yeni bir sayfa açıyor. ben belirli bir aralık vermek, sadece bu aralıktaki verilere tıklandığı zaman yeni bir sayfa açılmasını istiyorum. mümkün mü?

 

[Korhan Ayhan]

Selamlar,

Dim ile başlayan satırdan sonra olacak şekilde aşağıdaki kod satırını ekleyin. Hücre aralığı belirtmediğiniz için ben örnek bir aralık verdim.

If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub

 

[mithatgokceli]

üstad -Dim Sayfa As String- cümlenin bitimine ekledim hücre aralığını da ("D3103")) olarak girdim ancak makro çalışmadı.

 

[Korhan Ayhan]

Selamlar,

Belirttiğim satırın bir altına ekleyin demek istemiştim. Siz hemen yanına eklediniz sanırım. Yine sonuç alamazsanız dosyanızı ekleyin üzerinden gidelim.

 

[mithatgokceli]

A.s. üstad bu defa denedim oldu çok çok teşekkür ederim yardımlarınız için...