Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Şİfreli kitaba sayfa eklemek

kerem
kerem
Excel Cevaplanmış Soruları
10
4432

Şİfreli kitaba sayfa eklemek

Çözüldü #7
kerem
Aktif Üye
kerem
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 49
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/12/2011,19:55
Yorumları: 74
Konuları: 14
Kayıt Tarihi: 30/04/2009
Teşekkür Puanı: 0
Dosyayı yükliyorum ancak. Forma geri döndüğüm zaman yüklediğim dosyayı göremiyorum.
kerem, 30-04-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 25/11/2011, 09:33, Düzenleyen: kerem.
Cevapla
Çözüldü #8
DUAYEN
Onursal Üye
DUAYEN
Bul
Onursal Üye
Adı Soyadı: Sü.... Ar....
Yaşı: 41
Konum: Yozgat
Ofis Versiyonu: Ofis 2007
Son Oturumu: 03/11/2019,19:06
Yorumları: 1.029
Konuları: 71
Kayıt Tarihi: 13/08/2010
Teşekkür Puanı: 279
Kod:
Private Sub UserForm_Initialize()
ListBox2.Clear
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 1) = "(" Then
ListBox2.AddItem Sheets(i).Name
End If
Next
End Sub
bu kodu denermisiniz.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #9
kerem
Aktif Üye
kerem
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 49
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/12/2011,19:55
Yorumları: 74
Konuları: 14
Kayıt Tarihi: 30/04/2009
Teşekkür Puanı: 0

Çok teşekürler hocam. Hocam UserForm1 de veri girişi yapıp verileri aktardığım zaman A1 sutununa otomatik olarak sıra numarası verilmesi için aşağıdaki kodları değiştirirseniz sevinirim.


Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
On Error Resume Next
Dim i As Integer
For i = 6 To 32000
If (ActiveSheet.Cells(i, 1) = "") Then
ActiveSheet.Cells(i, 1) = CDate(ComboBox2)
ActiveSheet.Cells(i, 2) = ComboBox3.Text
ActiveSheet.Cells(i, 3) = TextBox3.Text * 1
ActiveSheet.Cells(i, 4) = TextBox4.Text * 1
ActiveSheet.Cells(i, 5) = TextBox5.Text * 1
ActiveSheet.Cells(i, 6) = TextBox10.Text * 1
ActiveSheet.Cells(i, 7) = TextBox11.Text * 1
ActiveSheet.Cells(i, 8) = TextBox13.Text * 1
ActiveSheet.Cells(i, 9) = TextBox6.Text * 1
ActiveSheet.Cells(i, 10) = TextBox7.Text * 1
ActiveSheet.Cells(i, 11) = ComboBox1.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
ActiveSheet.Protect "123"
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
ComboBox2.Text = [L7]
UserForm_Initialize
Exit Sub
End If
Next i
End Sub
kerem, 30-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #10
DUAYEN
Onursal Üye
DUAYEN
Bul
Onursal Üye
Adı Soyadı: Sü.... Ar....
Yaşı: 41
Konum: Yozgat
Ofis Versiyonu: Ofis 2007
Son Oturumu: 03/11/2019,19:06
Yorumları: 1.029
Konuları: 71
Kayıt Tarihi: 13/08/2010
Teşekkür Puanı: 279
En son kaldığınız örneği eklerseniz yardımcı olarabilrim bu şekilde çok sağlıklı olmaz.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #11
kerem
Aktif Üye
kerem
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 49
Konum: Belirtilmemiş
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/12/2011,19:55
Yorumları: 74
Konuları: 14
Kayıt Tarihi: 30/04/2009
Teşekkür Puanı: 0
Hocam ilgilendiğiniz için çok teşekürler sorunum hal oldu.
kerem, 30-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da