Hücre değerlerine göre form açmak

[behic26]

Öncelikle her kese Merhabalar ...
Aylık düzenlenen bir yoklama formundan, kişisel fazla çaılşma formları üretmem gerekti.
Eklediğim örnek dosyada da açıklamaya çalıştığım bu problemi çözmemde yardımcı olacak dostlara şmdiden çok teşekkür ediyorum. Selamlarımla...

 

[behic26]

Merhabalar...
Bir fikir bekliyorum...

 

[behic26]

Merhabalar...
Biraz ilerleme kaydettim el yordamı ile dostlar...
Fikirlerinizi paylaşır mısınız?

 

[behic26]

Merhabalar...
Ne yapabilirim?
Umutla bekliyorum.

 

[behic26]

Merhabalar tekrar...
Sanırım sorumu sorarken ne istediğimi anlatamadım. Ama neyin anlaşılamadığını da tahmin edemiyorum.
Bir cevap alabilirsem mutlu olacağım.
Kolay gelsin...

 

[behic26]

Puvantaj ve takip çizelgesi

Merhabalar,
Sayfaları sadeleştirek sorumu örnek dosya ile destekleyip şansımı son bir kez denemek istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.
Kolay gelsin...

 

[behic26]

Tekrar merhabalar,
Neredeyse çözüldü sayılır...
Sadece bir isim eklenecek ve bitti...
Yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub Sayfa_Ekle()
    On Error Resume Next
    
    For sayfa = 3 To Sheets.Count
        Sheets(sayfa).Select
        Application.DisplayAlerts = False
        ActiveWindow.SelectedSheets.Delete
        Application.DisplayAlerts = True
    Next
    
    Sheets("Sayfa1").Select
    
    For Each s In Range("F10:F" & [F65536].End(3).Row)
        Sheets("sayfa2").Select
        Cells.Select
        Selection.Copy
        Range("A5").Select
        Set s_ekle = Sheets.Add
        s_ekle.Name = s.Value
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Range("A1").Select
        Range("D4") = s.Value
        s_ekle.Move After:=Sheets(Sheets.Count)
    Next
    
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    Sheets("Sayfa1").Select
End Sub

 

[behic26]

Merhabalar,
Nasıl teşekkür edeceğimi bilemiyorum.
Ellerinize, emeğinize, aklınıza sağlık.
Hoşça kalın.

 

[behic26]

çok teşekkür ederim

İşte budur...
Nasıl teşekkür edeceğimi bilemiyorum.
Ellerinize, emeğinize, aklınıza sağlık.
Hoşçakalın...