müşteri sayfası eklemek

[dede5]

Ekte belirttiğim gibi her butona basışımda yeni sayfa ekleyip 1 nolu saydaki metni sayfalara eklemek istiyorum

 

[İhsan Tank]

Ekte belirttiğim gibi her butona basışımda yeni sayfa ekleyip 1 nolu saydaki metni sayfalara eklemek istiyorum

merhaba
userform'un kod bölümüne

Private Sub CommandButton1_Click()
Sheets("1").Select
Sheets("1").Copy after:=Sheets(1)
Sheets("1 (2)").Select
Sheets("1 (2)").Name = TextBox1.Text
End Sub
Private Sub CommandButton2_Click()
Unload Me
Dim i As Integer
Dim j As Integer
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
End If
Next j
Next i
End Sub

bu kodu yapıştırırmısınız
eki inceleyin.

 

[dede5]

Hocam sağolun.Yine aynı eke bir soru daha ekliyorum.Yardımcı olabilirmisiniz.

 

[İhsan Tank]

tam açıklama eklememişsiniz
biraz daha açıklama ekleseniz

 

[dede5]

buton 1 e tıklayınca ekrana gelen veresiye formundaki müşteri koduna örneğin 6 yazdığımda diğer textboxlardaki bilginin 6 nolu sayfa ilgili yerlere aktarılmasını istiyorum

 

[İhsan Tank]

buton 1 e tıklayınca ekrana gelen veresiye formundaki müşteri koduna örneğin 6 yazdığımda diğer textboxlardaki bilginin 6 nolu sayfa ilgili yerlere aktarılmasını istiyorum

eki inceler misiniz

 

[dede5]

hocam sağolun.Verdiğiniz örnekleri inceleyip aklıma sorular geldikçe sizi rahatsız edeceğim.

 

[İhsan Tank]

hocam sağolun.Verdiğiniz örnekleri inceleyip aklıma sorular geldikçe sizi rahatsız edeceğim.

rahatsızlık değilde
aynı konu başlığı altında sormamaya gösteriniz
kolay gelsin
:yazici: