• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Gizli Sayfaya Yedekleme

1Al2Ver

1Al2Ver

Katılım
5 Kasım 2007
Mesajlar
4,727
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
Merhaba,

Aşağıdaki kod'un, "KAYITLI_ÜYE_LİSTESİ" sayfasına kayıt yaparken, aynı zamanda ;

Visible özelliği hidden olan "ÜYE_YEDEK" isimli sayfaya da, bire bir kayıt yapmasını istiyorum,

Gerekli ilaveyi rica ediyorum,

Teşekkür ederim.

Kod: 
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Sheets("KAYITLI_ÜYE_LİSTESİ").Select 

b = WorksheetFunction.CountA(Sheets("KAYITLI_ÜYE_LİSTESİ").Range("A:A"))

Sheets("KAYITLI_ÜYE_LİSTESİ").Range("a" & b + 1).Select

ActiveCell = TextBox7.Value
ActiveCell.Offset(0, 1) = TextBox8.Value
ActiveCell.Offset(0, 2) = TextBox9.Value
ActiveCell.Offset(0, 3) = TextBox10.Value
ActiveCell.Offset(0, 4) = TextBox11.Value
ActiveCell.Offset(0, 5) = ComboBox1.Value
ActiveCell.Offset(0, 6) = ComboBox2.Value
ActiveCell.Offset(0, 7) = ComboBox3.Value
ActiveCell.Offset(0, 8) = TextBox14.Value
ActiveCell.Offset(0, 9) = TextBox15.Value
ActiveCell.Offset(0, 10) = TextBox16.Value
ActiveCell.Offset(0, 11) = TextBox17.Value
ActiveCell.Offset(0, 12) = TextBox18.Value
ActiveCell.Offset(0, 13) = TextBox19.Value
ActiveCell.Offset(0, 14) = ComboBox4.Value 
ActiveCell.Offset(0, 15) = TextBox21.Value
ActiveCell.Offset(0, 16) = TextBox22.Value
ActiveCell.Offset(0, 17) = TextBox23.Value
ActiveCell.Offset(0, 18) = TextBox24.Value
ActiveCell.Offset(0, 19) = TextBox25.Value
ActiveCell.Offset(0, 20) = TextBox26.Value


MsgBox "Verileriniz Kaydedildi. Form boşaltılıyor "

TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
ComboBox4 = "" 
TextBox21 = ""
TextBox22 = ""
TextBox23 = ""
TextBox24 = ""
TextBox25 = ""
TextBox26 = ""
TextBox27 = ""


UserForm_Initialize
ThisWorkbook.Save
Application.DisplayAlerts = True

End Sub
 
Örnek dosyanız olursa daha kesin sonuç olur.
Ama aşağıdaki şekilde de deneyebilirsiniz.
Kod: 
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Dim s1, s2 As Worksheet
Set s1 = Sheets("KAYITLI_ÜYE_LİSTESİ")
Set s2 = Sheets("ÜYE_YEDEK")
Dim a, b As Long
a = s1.Range("A" & Rows.Count).End(xlUp).Row + 1
b = s2.Range("A" & Rows.Count).End(xlUp).Row + 1
s1.Select

s1.Cells(a, 1) = TextBox7.Value
s1.Cells(a, 2) = TextBox8.Value
'Diğer Textboxdaki değerler



s2.Cells(b, 1) = TextBox7.Value
s1.Cells(b, 2) = TextBox8.Value
'Diğer Textboxdaki değerler

'
'ActiveCell.Offset(0, 1) = TextBox8.Value
'ActiveCell.Offset(0, 2) = TextBox9.Value
'ActiveCell.Offset(0, 3) = TextBox10.Value
'ActiveCell.Offset(0, 4) = TextBox11.Value
'ActiveCell.Offset(0, 5) = ComboBox1.Value
'ActiveCell.Offset(0, 6) = ComboBox2.Value
'ActiveCell.Offset(0, 7) = ComboBox3.Value
'ActiveCell.Offset(0, 8) = TextBox14.Value
'ActiveCell.Offset(0, 9) = TextBox15.Value
'ActiveCell.Offset(0, 10) = TextBox16.Value
'ActiveCell.Offset(0, 11) = TextBox17.Value
'ActiveCell.Offset(0, 12) = TextBox18.Value
'ActiveCell.Offset(0, 13) = TextBox19.Value
'ActiveCell.Offset(0, 14) = ComboBox4.Value
'ActiveCell.Offset(0, 15) = TextBox21.Value
'ActiveCell.Offset(0, 16) = TextBox22.Value
'ActiveCell.Offset(0, 17) = TextBox23.Value
'ActiveCell.Offset(0, 18) = TextBox24.Value
'ActiveCell.Offset(0, 19) = TextBox25.Value
'ActiveCell.Offset(0, 20) = TextBox26.Value


MsgBox "Verileriniz Kaydedildi. Form boşaltılıyor "

TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
ComboBox4 = ""
TextBox21 = ""
TextBox22 = ""
TextBox23 = ""
TextBox24 = ""
TextBox25 = ""
TextBox26 = ""
TextBox27 = ""


UserForm_Initialize
ThisWorkbook.Save
Application.DisplayAlerts = True

End Sub
 
Merhaba;

ActiveCell.Offset(0, 20) = TextBox26.Value
satırından sonra;

On Error Resume Next
sonsatir = Sheets("ÜYE_YEDEK").Range("A65536").End(xlUp).Row + 1
For i = 8 To 26
Sheets("ÜYE_YEDEK").Cells(sonsatir, i - 7) = Controls("TextBox" & i).Value
Next i

satırlarını ekleyip deneyin.
İyi çalışmalar.

NOT: Syn. askm'ın cevabını görmeden yazmıştım.
 
Sayın askm merhaba,

Nezaketiniz ve ilginiz için teşekkür ederim,

Dosya biraz karmaşık ve henüz çalışma aşamasında, o nedenle sadece bu kodu ekledim,

Kodda ; 'Diğer Textboxdaki değerler ifadesini anlıyamadım, bu nedenle de uygulamadım,

İfadeyi açarsanız memnun olurum,

Teşekkür ederim.
 
Sayın muygun merhaba,

Nezaketiniz ve ilginiz için teşekkür ederim,

Aşağıdaki resimde, doğru olan yedekleme 4 cü satırdaki gibi olmalı, yedekleme esnasında bazı sütunlara değer gelmemiş,

Not:
Fotoda gerçek kimlik bilgileri kullanıldığı için kaldırılmıştır.
Hüseyin

İlave kodu dediğiniz gibi ekledim ;

Next i ' den sonra

Kod: 
MsgBox "Verileriniz Kaydedildi. Form boşaltılıyor "

TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
ComboBox1 = ""
ComboBox2 = ""
.....................

şeklinde devam ediyorum,

Teşekkür ederim.
 
Son düzenleme:
s1.Cells(a, 1) = TextBox7.Value '1 sütuna Textbox7 yazılıyor.
s1.Cells(a, 2) = TextBox8.Value '2. sütuna Textbox8 yazılıyor.
'Diğer Textboxdaki değerler
Burada kasıt diğer textbox ve comboboxları sütun değerlerini bir artırarak yazmanız.
s1.Cells(a, 3) = TextBox9.Value
s1.Cells(a, 4) = TextBox10.Value
s1.Cells(a, 5) = TextBox11.Value
s1.Cells(a, 6) = ComboBox1.Value

şeklinde devam ettirmeniz.
Aynı işlemi s2 içinde yapmanız. Sayın Muygun comboları fark etmedi sanırım. O yuzden döngü kurdu.
 
1Al2Ver;

5 No'lu mesajınıza eklediğiniz resimdeki TC Kimlik No'yu kontrol ettiğimde, gerçek bir TC Kimlik No kullanıldığını gördüm. Resmi mesajınızdan silseniz iyi olur.

Selamlar,

.
 
Merhaba.

Öncelikle, Sayın Haluk Bey'in uyarısını dikkate almanızı hatırlatayım.

TextBox numaraları ile aktarılacağı sütun numaraları arasında düzenli/matematiksel bir ilişki varsa;
aşağıdaki gibi bir döngüyle, TextBox değerleri a satırda nesne no-6 numaralı sütuna yazılabilir.

Aynı yöntemi TextBoxları boşaltmak için de kulanabilirsiniz.
(For next döngüsünü tekrar yazıp, döngü içindeki satırı, aşağıda en allttaki satır ile değiştirerek)

Bu yöntemle, her nesne için bir kez hücreye yazma, bir kez de içeriğini temizleme satırı yazmak yerine,
nesne sayısı fazla olduğunda benzer döngü oluşturulabilir.
.
Kod: 
For nesne = 1 To [COLOR="red"]nesne sayısı[/COLOR]
    Cells(a,nesne-6)=Controls("TextBox" & nesne).Value
Next

[COLOR="Red"]    Controls("TextBox" & nesne)=""[/COLOR]
 
Haluk' Alıntı:
1Al2Ver;

5 No'lu mesajınıza eklediğiniz resimdeki TC Kimlik No'yu kontrol ettiğimde, gerçek bir TC Kimlik No kullanıldığını gördüm. Resmi mesajınızdan silseniz iyi olur.

Selamlar,

.
Genişletmek için tıkla ...

Sayın Haluk merhaba,

Resimde görülen TC No. gelişigüzel ve tamamen tesadüfü olarak yazılmıştır.

Uyarınız üzerine de resim mesajdan kaldırılmıştır.

Umarım, kaldırılan resimdeki TC.No ve İsim eşleşmemiştir.

Teşekkür ederim.
 
Sayın askm merhaba,

Sorun hallolmuştur, emekleriniz için teşekkür ederim.

Saygılarımla.
 
Sayın Ömer BARAN merhaba,

İlginiz ve önerileriniz için teşekkür ederim.

Saygılarımla.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst