sayfa ismi tarih saat olsun.yeni sayfa oluştur.

[enes2000eren]

slm.arkadaşlar ekili dosyamda bir formum var.bu formda tektboxlarda süzme işlemi yaptıktantan sonra süzülen verileri yeni bir sayfaya aktarmak
(fakat label7 deki tarih saatle isimlendirmek) istiyorum.
buton ismi
YENİ BİR SAYFAYA AKTAR
(Yeni Personel Listesi Olarak)

label7 deki saat userformun intalize olayında çalışsın istiyorum ama yapamadım.sadece lisboxın clik olayına uyarlayabildim.yardımlarınız için tşk.

 

[halit3]

slm.arkadaşlar ekili dosyamda bir formum var.bu formda tektboxlarda süzme işlemi yaptıktantan sonra süzülen verileri yeni bir sayfaya aktarmak
(fakat label7 deki tarih saatle isimlendirmek) istiyorum.
buton ismi
YENİ BİR SAYFAYA AKTAR
(Yeni Personel Listesi Olarak)

label7 deki saat userformun intalize olayında çalışsın istiyorum ama yapamadım.sadece lisboxın clik olayına uyarlayabildim.yardımlarınız için tşk.

böyle denermisiniz.

Private Sub UserForm_Activate()
Do
Label7.Caption = Format(Now, "dd.mm.yyyy  --- hh:mm:ss")
DoEvents
Loop
End Sub

 

[enes2000eren]

sağolun halit bey ama label7 deki tarih saati nasıl yeni sayfa ismi yapabilirim.örenek dosyada var.

 

[halit3]

sağolun halit bey ama label7 deki tarih saati nasıl yeni sayfa ismi yapabilirim.örenek dosyada var.

bu işinizi görürmü

Private Sub CommandButton4_Click()
Sheets.Add
Sheets(ActiveSheet.Name).Name = FORM.Label7.Caption
End Sub

 

[enes2000eren]

Halit BEY
Private Sub YENİSAYFAYAAKTAR_Click()
Sheets.Add
Sheets(ActiveSheet.Name).Name = FORM.Label7.Caption

'--------------------------------------------------
Set s1 = Sheets("LABEL7 YANİ ÜRETİLEN SAYFAYA KAYIT YAPACAĞIM KODU UYARLAYAMADIM")

ListBox1.ColumnWidths = baslik
'sat = ListBox1.ListCount
'sut = ListBox1.ColumnCount
sut = ListBox1.ListCount
sat = ListBox1.ColumnCount
's1.Range(s1.Cells(1, 1), s1.Cells(sat, sut)) = ListBox1.List

s1.Range(s1.Cells(2, 1), s1.Cells(sut, sat)) = ListBox1.List

End Sub

 

[halit3]

Halit BEY
Private Sub YENİSAYFAYAAKTAR_Click()
Sheets.Add
Sheets(ActiveSheet.Name).Name = FORM.Label7.Caption

'--------------------------------------------------
Set s1 = Sheets("LABEL7 YANİ ÜRETİLEN SAYFAYA KAYIT YAPACAĞIM KODU UYARLAYAMADIM")

ListBox1.ColumnWidths = baslik
'sat = ListBox1.ListCount
'sut = ListBox1.ColumnCount
sut = ListBox1.ListCount
sat = ListBox1.ColumnCount
's1.Range(s1.Cells(1, 1), s1.Cells(sat, sut)) = ListBox1.List

s1.Range(s1.Cells(2, 1), s1.Cells(sut, sat)) = ListBox1.List

End Sub

kodu bununla değiştiriniz.

Private Sub CommandButton4_Click()
Dim cpt As Integer
cpt = 1
Do While cpt < 15
Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
Application.ActiveSheet.Name = Format(Now, "dd_mm_yyyy___hh_mm_ss") & CStr(cpt)
cpt = cpt + 1
Loop
End Sub

sayfa ekleme ve dosya kayıt işlemlerinde tarihlerin formatında nokta ,iki nokta üst üste ,virgül ve tırnak işaetlerinde hata verir.

 

[enes2000eren]

slm.halid bey sizin kodunuz çalışıyor.fakat benim diğer kod ile uygulanmıyor.veya daha doğrusu ben uyarlayamadım.çizginin -----altındaki kodu nasıl uyarlayacağım.

Private Sub YENİSAYFAYAAKTAR_Click()
Sheets.Add
Sheets(ActiveSheet.Name).Name = FORM.Label7.Caption

'--------------------------------------------------

Set s1 = Sheets("LABEL7 YANİ ÜRETİLEN SAYFAYA KAYIT YAPACAĞIM KODU UYARLAYAMADIM")

ListBox1.ColumnWidths = baslik
'sat = ListBox1.ListCount
'sut = ListBox1.ColumnCount
sut = ListBox1.ListCount
sat = ListBox1.ColumnCount
's1.Range(s1.Cells(1, 1), s1.Cells(sat, sut)) = ListBox1.List
s1.Range(s1.Cells(2, 1), s1.Cells(sut, sat)) = ListBox1.List
End Sub

 

[halit3]

kendi kodunda 15 adet sayfa oluşturuyor hangi sayfaya kayıt yapacaksınız.
yoksa tek sayfamı oluşturmak istiyorsunuz.

Private Sub CommandButton4_Click()
Dim cpt As Integer
cpt = 1
Do While cpt < 15
Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
Application.ActiveSheet.Name = Label7 & CStr(cpt)
cpt = cpt + 1
Loop
End Sub

 

[halit3]

ekli dosyaya bir bakınız label nesnesini kaldırdım combobox1 nesnesi ekledim yani sayfa eklediğin zaman tarih ve saate göre oluşturuyor bundan sonra aktaracağın veriye ait combobox1 den sayfasını seçeceksiniz daha sonra aktar düğmesine tıklıyacaksınız.

 

[enes2000eren]

halit bey tşk.ama kodun devamında listboxta süzülen verileri oluşan o yeni sayfa kaydetmek istiyorum.ama kodların bağlantısını kuramadım

Private Sub YENİSAYFAYAAKTAR_Click()
sayfa = Format(Now, "dd-mm-yyyy--hh-mm-ss")
Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
Application.ActiveSheet.Name = sayfa

ComboBox1.Clear
For i = 1 To ActiveWorkbook.Sheets.Count
ComboBox1.AddItem Sheets(i).Name
'End If
Next



'--------------------------------------------------
Set s1 = Sheets("dd-mm-yyyy--hh-mm-ss")
ListBox1.ColumnWidths = baslik
'sat = ListBox1.ListCount
'sut = ListBox1.ColumnCount
sut = ListBox1.ListCount
sat = ListBox1.ColumnCount
's1.Range(s1.Cells(1, 1), s1.Cells(sat, sut)) = ListBox1.List
s1.Range(s1.Cells(2, 1), s1.Cells(sut, sat)) = ListBox1.List
End Sub

 

[halit3]

9 nolu mesajda bunu açıklamıştım. eğer bir seferde aktarma istiyorsanız aşağıdaki kodu denermisiniz.

Private Sub YENİSAYFAYAAKTAR_Click()
sayfa = Format(Now, "dd-mm-yyyy--hh-mm-ss")
Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
Application.ActiveSheet.Name = sayfa
Set s1 = Sheets(sayfa)
ListBox1.ColumnWidths = baslik
sut = ListBox1.ListCount
sat = ListBox1.ColumnCount
s1.Range(s1.Cells(2, 1), s1.Cells(sut, sat)) = ListBox1.List
End Sub

 

[enes2000eren]

halit bey bu konuda bir yardımınız olabilir mi acaba.2. kodu yani listboxla ilgili olanı uyarlayamadım.

 

[enes2000eren]

pardon halitbey şimdi oldu.teşekkürler