userform sayfa ismi oluşturma

[bydogannn67]

arkadaslar kolay gelsın,

ekteki userform çalışmasında yenı personel ekle dediğimde yeni sayfa açmasını bu sayfa isminide personel ismi yapmasını istiyorum nasıl yapabilirim yardımcı olabilirmisiniz


KULLANICI ADMİN ŞİFRE 123456

 

[Mustafa MUTLU]

Buyurun..
TextBox sorun yaparsa,
İsmi sayfa1 A1 e kaydedin
ad = TextBox1.Text yerine
ad = Sheets("Sayfa1").[A1] bunu deneyiniz.

    Dim sor As String, ad As String, s As Byte
 
    ad = TextBox1.Text
 
    s = 0
    On Error Resume Next
    s = Len(Sheets("" & ad & "").Name)
    If s > 0 Then Exit Sub
 
    Sheets.Add.Name = ad

 

[bydogannn67]

mustafa bey bunu textbox dan yapmam lazım oda yeni sayfa atıyo ama isim değiştirmiyo bunu textbox dan alamazsak onun yerıne liste birde yenı kaydettığımızı b sutunun en sonuna atıyo ordan nasıl çekebilirim

 

[Mustafa MUTLU]

Kardeşim sorunuzu sorarken, anlaşılır olmasına özen gösteriniz.
Verdiğim kod TextBoox taki isme göre yeni sayfa açar.

Ne istediğini açıkca anlatsana
Aktif sayfa ismi TextBoox taki isme göre değişsin diyorsan
Peki yeni açılan sayfanın ismi ne olacak ?...

 

[bydogannn67]

mustafa bey yeni personel ekle dediğimde sayfa ismide personel adıyla açılsın istiyorum yanı textbox' a veri yazıp kaydet dediğimde normalde liste sayfasına yazdığım personel ismini b sutununa atıyodu ekleyeceğimiz kodla ise kaydet dediğimde hem listede b sütününa ismi atsın hemde textbox taki aynı isimle yeni sayfa açsın diyorum

verdiğiniz kodda yenı sayfa actı ama ısmını textbox taki yazdığımız isim ile değişmedi

ben yanlış yapmış olabilirim dosyada düzenliyebilirmisiniz

 

[vardar07]

sayfa ismini tabiki vermez nedeni ise TextBox1 = Empty satırı textbox'ı boşaltıyor haliyle Sayfa1 gibi isimler veriyor. Düzeltilmiş hali:

Private Sub CommandButton81_Click()
Dim ad As String, s As Byte
Dim sat, son, deg, k As Integer
Dim sayfa As String
KAYITYAP.Show
Sheets("LİSTE").Select
Application.ScreenUpdating = False
'mükerrer kontrol
For sat = 2 To Cells(65536, "b").End(xlUp).Row
If Cells(sat, "b") = TextBox1 Then
    MsgBox "[ " & TextBox1.Text & " ] İsimi zaten kayıtlı. " _
    & vbLf & "" & vbLf _
    & vbLf & "Bu kayıt  kaydedilmedi." & vbLf _
    & vbLf, vbCritical, "UYARI"
TextBox1 = Empty
Exit Sub: End If: Next
'*****verigir
If TextBox1 = "" Then MsgBox "Önce isim girmelisiniz", vbInformation: Exit Sub
son = Sheets("LİSTE").Cells(65536, "b").End(xlUp).Row + 1
Sheets("LİSTE").Cells(son, "a") = WorksheetFunction.Max(Range("A2:A" & son)) + 1
Sheets("LİSTE").Cells(son, "b") = TextBox1
'..... sayfa adı verir.
        sayfa = TextBox1
               If Not varmi(sayfa) Then
                   Sheets.Add After:=Worksheets(Worksheets.Count)
                   ActiveSheet.Name = sayfa
                   End If
'*****verigir
If TextBox3 = "" Then MsgBox "Önce isim girmelisiniz", vbInformation: Exit Sub
Sheets("LİSTE").Cells(son, "c") = TextBox3
TextBox1 = Empty: TextBox3 = Empty
'*****sıranover
[a2:a65536] = Empty
deg = WorksheetFunction.CountA(Range("b2:b65536"))
s = 1
Do While [b2] <> ""
Cells(k + 1, "a") = k
k = k + 1
If k > deg Then Exit Do
Loop
'***** listboxu yenile
say = WorksheetFunction.CountA(Range("A2:A65500"))
    For i = 1 To say
        Cells(i + 1, 1) = i
    Next i
MsgBox "KAYIT İŞLEMİ YAPILMIŞTIR.", vbInformation
TextBox2 = ".": TextBox2 = ""
'*****sıranover
Sheets("LİSTE").Select
Application.ScreenUpdating = True
End Sub
Function varmi(adi As String) As Boolean
    On Error Resume Next
    varmi = CBool(Len(Worksheets(adi).Name) > 0)
End Function

 

[bydogannn67]

ustam bilgiler için teşekkürler yardımın ile sorunumuz çözüldü

fakat şöyle bi sıkıntı oluştu textbox3 veri yazdığımda liste sayfasında c sütününün sonuna verıyı atması gerekırken en basa atıyo bunu şu sekilde düzenliyebilirmiyiz

textbox1 liste sayfasında b sütünuna veri atıyo textbox3 te basına sonuna bakmaksızın b sütünunda hangı satıra verı atılmıssa c sutununda textbox3 teki veri gelsın

 

[vardar07]

#6 Nolu mesajdaki kod güncellendi.

 

[bydogannn67]

Hocam bu seferde textbox 1 ve textbox3 teki alanlarda listeden seçip değişiklik yap dediğimde hata veriyo uğraştım ama beceremedım

 

[vardar07]

Değiştirme kodunda eksiklikler var onları tamamlamanız lazım. Sizdeki değiştirme kodları ile karşılaştırınız.

Private Sub CommandButton114_Click()
KAYITYAP.Show
Sheets("LİSTE").Select
Dim sat As Integer
'*****listbox seçili değilse uyar
If ListBox1.ListIndex < 0 Then
MsgBox "Önce bir isim seçmelisiniz", vbInformation
Exit Sub
End If
a = Cells(ListBox1.ListIndex + 2, 2)
If a <> TextBox1 Then
Sheets(a).Name = TextBox1
End If
'*****değişecek verileri döngü ile kontrol et
For sat = 2 To Cells(65536, "b").End(xlUp).Row
If Cells(sat, "B") Like ListBox1.Column(1) Then
Sheets("LİSTE").Cells(sat, "b") = TextBox1
End If
Next
For sat = 3 To Cells(65536, "c").End(xlUp).Row
If Cells(sat, "c") Like ListBox1.Column(2) Then
Sheets("LİSTE").Cells(sat, "c") = TextBox3
End If: Next
'değişim sonu textleri temizle
TextBox1 = Empty
TextBox3 = Empty
'***** listboxu yenile
say = WorksheetFunction.CountA(Range("A2:A65500"))
    For i = 1 To say
        Cells(i + 1, 1) = i
    Next i
MsgBox "DEĞİŞTİRME İŞLEMİ YAPILMIŞTIR.", vbInformation
TextBox2 = ".": TextBox2 = ""
End Sub

 

[bydogannn67]

hocam çok tskler bı sıkıntım daha var değişiklik yaptığımızda sayfa isminide değiştirme durumu varmı pekı

çok oldum biraz kusura bakmayın

 

[vardar07]

Olurda birkaç saat sonra yapmaya çalışırım.

#10 nolu mesajdaki kodlar yenilenmiştir.

 

[bydogannn67]

hocam süpersiniz allah razı olsun

 

[vardar07]

Rica ederim. Allah herkesden razı olsun.

 

[bydogannn67]

hocam yine yardımınıza ihtiyacım var bana yardımcı olabilirseniz çok sevinirim çok uğraştım arastırdım bulamadım


userform2 de yani yıllık izin takip kısmında comboboxtan sayfa seçtiğimde aynı isimde liste sayfasında bununan c sütünündaki işe giriş tarihini yıllık izin takip formundaki TextBox12 ' ye yanı işe giriş kutucuğuna nasıl getirebilirim

 

[serdar.gul]

doğan bey;

excelde çok bilgim yok ama meraklıyım dosyanızın açılma şeklini nasıl yaptığınızı sorabilir miyim benimde bu tarz bir girişe ihtiyacım var

arkadaslar kolay gelsın,

ekteki userform çalışmasında yenı personel ekle dediğimde yeni sayfa açmasını bu sayfa isminide personel ismi yapmasını istiyorum nasıl yapabilirim yardımcı olabilirmisiniz


KULLANICI ADMİN ŞİFRE 123456

 

[vardar07]

userform2 deki ComboBox1_Change kodunu aşağıdaki ile değiştirip denermisiniz.

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Text).Select
KAYITYAP.Show
TextBox7 = ".": TextBox7 = ""
a = WorksheetFunction.Match(ComboBox1.Text, Sheets("LİSTE").Range("B:B"))
TextBox12 = Format(Sheets("LİSTE").Cells(a, "C"),"dd.mm.yyyy")
End Sub

 

[bydogannn67]

hocam çok sağolun

serdar bey bende siz gibi çok bilgili değilim yorumlamaya çalışıyorum kendımce

LOGİN - kısmındaki kodları inceleyiniz

 

[bydogannn67]

Hocam textbox 'a veri girdiğimizde hem liste sayfasına isim atıyodu hemde bu isimle sayfa açıyoduk

fakat sil dediğimizde liste sayfasından veriyi silebiliyorum ama açtığımız sayfayı silemiyorum aşağıdaki koda nasıl bir ekleme yapabiliriz

Private Sub CommandButton116_Click()
Sheets("liste").Select
Dim sat As Integer
'*****listbox seçili değilse uyar
If ListBox1.ListIndex < 0 Then
MsgBox "Önce listeden bir isim seçiniz", vbInformation
Exit Sub: End If
On Error Resume Next
    If MsgBox(TextBox1.Text & "   " & "isme ait kaydı silmek İstiyor musunuz? ?", vbYesNo, "Dikkat") = vbNo Then Exit Sub
'*****silinecek verileri döngü ile kontrol et
For sat = 2 To Sheets("liste").Cells(65536, "b").End(xlUp).Row
If Sheets("liste").Cells(sat, "b") Like ListBox1.Column(1) Then
Sheets("liste").Cells(sat, "a").EntireRow.Delete Shift:=xlUp


End If: Next
say = WorksheetFunction.CountA(Range("A2:A65500"))
    For i = 1 To say
        Cells(i + 1, 1) = i
    Next i
    KAYITYAP.Show

    MsgBox "SİLME İŞLEMİ YAPILMIŞTIR.", vbInformation

TextBox2 = ".": TextBox2 = ""
TextBox1 = Empty
TextBox3 = Empty
End Sub

 

[bydogannn67]

güncel........