textboxtakı oto sayıya göre yeni sayfa ismi ata

[aydın3838]

selamlar excel ustaları



benim sorunum yeni müşteri sayfası oluştururken tekxtboxtaki
otomatik numaraların yeni eklenmiş sayfanın isimi olması
userform açılır textbox taki kayıt 18 de kalmış yeni sayfa ekle butonuna basıldığı zaman
textboxtaki rakamın yeni sayfa ismi olması

yaklaşık 3 hafadır EXCEL.WEB.TR de aramadığım yer kalmadı
sonuç alamadım
yardım cı olursanız sevinirim

 

[halit3]

örnek dosya ekleyiniz

 

[aydın3838]

dosya ekte

selamlar excel ustaları



benim sorunum yeni müşteri sayfası oluştururken tekxtboxtaki
otomatik numaraların yeni eklenmiş sayfanın isimi olması
userform açılır textbox taki kayıt 18 de kalmış yeni sayfa ekle butonuna basıldığı zaman
textboxtaki rakamın yeni sayfa ismi olması

yaklaşık 3 hatadır EXCEL.WEB.TR de aramadığım yer kalmadı
sonuç alamadım
yardım cı olursanız sevinirim

dosya ekte

 

[aydın3838]

üstadım birde sorum olacak
ekte müşteri kartı adında şablon sayfa var
sayfanın içinde gezinmek için köprü atanmış tuşlar var
şablonu kopyalamada sorun yok fakat
yeni eklenmiş sayfada köprüler şablon sayfaya geri gidiyor
ben yeni eklenmiş sayfada gezmesini istiyorum

teşekkürler

 

[halit3]

yeni sayfa ekle bütonu yok burada oluşturalımmı

 

[aydın3838]

ana sayfada yeni müşteri ekle butonu var
form 3 açılır
form 3 de kaydet var tıklayınca kendi yeni sayfa ekliyor

 

[halit3]

user formdaki ekle bütonuna aşağıdaki kod ile değiştir bir dene

Private Sub CommandButton1_Click()
'Kaydet Butonu
Dim sayf As Worksheet
syf = UCase(Replace(Replace(TextBox1.Value, "ı", "I"), "i", "İ"))
If syf = "" Then Exit Sub
For Each sayf In Worksheets
If syf = UCase(Replace(Replace(sayf.Name, "ı", "I"), "i", "İ")) Then
MsgBox syf & " İsimli sayfa var kayıt yapılmadı..!!", vbCritical, "DİKKAT"
Exit Sub
End If
Next
Sheets("MÜŞTERİ KARTI").Select
Sheets("MÜŞTERİ KARTI").Copy Before:=Sheets(1)
Sheets("MÜŞTERİ KARTI (2)").Select
Sheets("MÜŞTERİ KARTI (2)").Name = syf
MsgBox syf & " İsimli Sayfa Oluşturuldu..!!", vbOKOnly + vbInformation, "SAYFA"
Worksheets(syf).Cells(2, 2).Value = TextBox1.Value
Worksheets(syf).Cells(3, 2).Value = TextBox2.Value
Worksheets(syf).Cells(4, 2).Value = TextBox3.Value
Worksheets(syf).Cells(5, 2).Value = TextBox4.Value
Worksheets(syf).Cells(6, 2).Value = TextBox5.Value
Worksheets(syf).Cells(7, 2).Value = TextBox6.Value
Worksheets(syf).Cells(8, 2).Value = TextBox7.Value
Worksheets(syf).Cells(9, 2).Value = TextBox8.Value
Worksheets(syf).Cells(10, 2).Value = TextBox9.Value
ComboBox1.Clear
For i = 1 To ActiveWorkbook.Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
Sheets("ANA").Select
End Sub

 

[aydın3838]

ilginize teşekkür ederim halit bey denicem

sağolun

 

[aydın3838]

emeğine sağlık halıt bey
ama benim sorunum textboxta otomatik numara olması
textbox otomatik numara versinekteki sayfa 1 ve sayfa 2 de telefon kayıtları var
numara aynı sayfada olursa sorunum yok
ama benim ki yeni sayfa eklediğimde texteki hazır olan numarayı
yeni sayfa ismi olması

yardımcı olursanız sevinirim

 

[halit3]

sıra numarasını tam olarak nerden alacak nereye verecek

 

[halit3]

sonra numarayı hangi nolu textbox dan alacak anlayamadım

 

[aydın3838]

form 3 te tekxtbox1 yani kod yazan kısımda
textbox ta sürekli otomatik 1-2-3-4-5-6-7 şeklinde numara olması gerekiyor
benim sorunumun 1. bu textteki otomatik atanmış numara yeni eklenen sayfaya isim olması gerekiyo halit bey

 

[halit3]

sıra numarasını sayfa adetindenmi alacak yoksa sayfa2 A hücrasindenmi sıra numarasındanmı alacak

 

[aydın3838]

halit bey sorunumu tam anlatayım
kafanızı karıştırmadan

1.ana sayfa da yeni müşteri ekle-tıkladım
userform1.show---- form açıldı

2.kod yazan textboxta1 de zaten varolan otomatik numara vercek

3.kaydet tıklandığında textboxta varolan otomatik numara müşteri kod numarası olarak
yeni eklenmiş sayfanın ismi olacak

burdan çıkaracagımız isim tarih olsun yada olmasın
textbox 1 deki olan numarayı yeni sayfa ismi olarak ataması

ilginize ve uğraşınıza teşekkürler

 

[halit3]

2.kod yazan textboxta1 de zaten varolan otomatik numara vercek

var olan otomatik numarayı bir sayfadan alacak ama bu hangi sayfadan hangi hücreden alacak onu yazmamışsın

örnek sayfa2 de 2 kişinin kayıtı var textbox1 buradanmı görecek sıra numarasını buradan görecekse yeni numara 3 mü olacak

 

[aydın3838]

evet sayfa 1 den de olsa olurçok iyi bir fikir verdiniz

uzmanlık bu olsa gerek yeni müşteriyi ilk sayfa 1den kayıt yaparım

sonra form 3 ten devam edebiliri

 

[aydın3838]

birde 2. sorumu tekrarlamak istiyorum

(müşteri kartı)şablon sayfasıdır içerisinde butonlar ve bu butonlarda köprüler var görmüşünüzdür
bu köprüler aynı sayfada gezmek için tasarlandı

şablon u yeni müşteri için kopyaladımda
içinde köprüler kopyalanmış sayfada değilde

(müşteri kartı)şablon sayfasına gidiyor

ben isterimki mümkünse tabii

kopyalanmış yeni sayfa da görevini yapsın

 

[halit3]

Private Sub UserForm_Initialize()
bunun içine aşağıdaki kodu koy
birde kayıtet komut duğmesinin içine en sonada koy

TextBox1.Text = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A2:A65000")) + 1

 

[halit3]

Ekli dosyaya bakınız

 

[aydın3838]

ellerine sağlık çalışıyor
teşekkürler