Skip to main content

AccessTr.neT


Sayfaya İsim Vermek

Sayfaya İsim Vermek

#7
Hocam örnek eklemişim. Mesaj 1 de
Cevapla
#8
(30/04/2020, 23:59)m_demir yazdı: Hocam örnek eklemişim. Mesaj 1 de
Kusura bakmaın görmemişim Img-grin
Dosya açılıp kapanıyor bende.

[Resim: do.php?img=10150]
Cevapla
#9
Dosyanızı açmayı başarabildim sonunda farklı kadederek.


Function Sayfaad(syfad As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = Worksheets(syfad)
    If Not ws Is Nothing Then Sayfaad = True
End Function


Bu kodu userform4 e ekleyin.Alttaki koduda ilgili kodla değiştirin.

Private Sub CommandButton10_Click()
ActiveWorkbook.Unprotect "123"

If TextBox1 = "" Then
MsgBox "...!!!.LÜTFEN ADI SOYADI GİRİNİZ.!!!...", vbInformation
Exit Sub: End If


    If Sayfaad(Me.TextBox1.Value) = True Then
        MsgBox "...!!!.AYNİ İSMİMDE KAYIT VAR. AYNİ İSİMDE İKİ KAYIT OLMAZ.!!!...", vbInformation
        Exit Sub
    End If


Sheets("ŞABLON").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Unprotect "123"
   
    ActiveSheet.Name = (TextBox1.Text)
    ActiveSheet.Range("a1").Value = (TextBox1.Value)
ActiveSheet.Range("c2").Value = (TextBox2.Value)
ActiveSheet.Range("c3").Value = (TextBox3.Value)
ActiveSheet.Range("c4").Value = (TextBox4.Value)
ActiveSheet.Range("c5").Value = (TextBox5.Value)


'Call VeriSayfasinaKaydet
   
    MsgBox ("YENİ KİŞİ EKLENDİ.")
Me.ListBox2.Clear
For A = 4 To Sheets.Count
ListBox2.AddItem Sheets(A).Name

'ListBox daki listeyi sıralama'
Dim vaItems As Variant
    Dim i As Long, j As Long
    Dim vTemp As Variant
     
   
    'Put the items in a variant array
    vaItems = Me.ListBox2.List
   
    'Steal code from John Walkenbach’s Excel Power Programming
    'with Vba to sort the array
    For i = LBound(vaItems, 1) To UBound(vaItems, 1) - 1
        For j = i + 1 To UBound(vaItems, 1)
            If vaItems(i, 0) > vaItems(j, 0) Then
                vTemp = vaItems(i, 0)
                vaItems(i, 0) = vaItems(j, 0)
                vaItems(j, 0) = vTemp
            End If
        Next j
    Next i
    ActiveWorkbook.Unprotect "123"
ActiveWorkbook.Protect "123"
ActiveSheet.Unprotect "123"
ActiveSheet.Protect "123"
CommandButton2_Click
    'Clear the listbox
    Me.ListBox2.Clear
   
    'Add the sorted array back to the listbox
    For i = LBound(vaItems, 1) To UBound(vaItems, 1)
        Me.ListBox2.AddItem vaItems(i, 0)
ComboBox1.RowSource = "Liste!l1:l2"
'----------------------------------EKLEDİĞİM-------------------------SONU

TextBox1.Text = [a1]
TextBox2.Text = [C1]
TextBox3.Text = [C2]
TextBox4.Text = [C3]
  Next i
Next
CommandButton2_Click
        TextBox1.Text = [Z1]
TextBox1.Text = [a1]
TextBox2.Text = [C2]
TextBox3.Text = [C3]
TextBox4.Text = [C4]

Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""

End Sub
Cevapla
#10
Çok, çok teşekkürler Hocam ellerinize sağlık.

Hocam size bir zahmet daha verebilirmiyim. UserForm1 de ListBox1 çoklu seçim yapıp sil butonu ile silmek istiyorum.

Bu konuda da yardımcı olursanız sevinirim. Saygılarımla.
Cevapla
#11
(01/05/2020, 01:32)m_demir yazdı: Çok, çok teşekkürler Hocam ellerinize sağlık.

Hocam size bir zahmet daha verebilirmiyim. UserForm1 de ListBox1 çoklu seçim yapıp sil butonu ile silmek istiyorum.

Bu konuda da yardımcı olursanız sevinirim. Saygılarımla.
Rica ederim sayfadanmı silinecek.
Cevapla
#12
Hocam UserForm4 listede kişiyi seçip ilgili sayfaya gidiyorum. Giriş butonuna tıklayarak UserForm4 açarak seçili kişiye ait aktif sayfaya veri giriyorum.  Sayfadaki verileri UserFom4 ListBox da görünüyor. ListBox da silmek istediğim satıra tıklayarak TextBoklara alıp sik butonu ile siliyorum.

Benim yapmak istediğim UserForm4 ListBox da tek satır seçip sildiğim gibi çoklu satır seçip silebilirmiyim. Tabiki ListBoxda sildiğim aktif sayfadan da silinmesi lazım.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task