Otomatik sayfa ve köprü eklemek

[mcetinkaya65]

Ana sayfadki herhangi bir hücreye harf veya rakam yazınca ve yazılan hücreye çift tıklayınca örnek sayafdan bir sayfa ekliyor.Bunu sadece ana sayfanın a sutunundaki hücrelere yazınca yapması mümkün mü?
saygılarımla...

 

[mcetinkaya65]

Değerli hocalarım.Çözümü olmayan bir şey mi sordum?Özür dilerim.

 

[mancubus]

dosyanızın bir kopyasını alın.
VBE'de ThisWorkbook kod modülündeki kodların tamamını silin

Üzerinde çift tıklayarak Ana Sayfa'nın kod modülünü açın.
Aşağıdaki kodları buraya kopyalayın.
A sütununda bir veri yazılıp onaylandıktan sonra (=enter, aşağı ok vb tuşlarından birine basıldıktan sonra) çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub

If Len(Trim(Target.Value)) = 0 Then
    MsgBox "Hücrede gerçek veri yok. Veri giriniz!"
    Target.Clear
    Exit Sub
End If

If WorksheetFunction.CountIf(Columns("A"), Target.Value) > 1 Then
    MsgBox "Bu isimde sayfa mevcut. Kontrol ediniz!"
    Exit Sub
End If

If MsgBox(Target.Value & " Adlı Sayfa Yok, Eklemek İster Misiniz? ", vbYesNo, _
    Target.Value & " Adlı Sayfanın Açılması") = vbYes Then
    Sheets("Örnek").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Target.Value
    MsgBox Target.Value & " Sayfası AÇILDI......", vbOKOnly, "www.excel.web.tr"
End If

End Sub

bunu istemiyorum, herhangi bir hücrede çift tıkladığımda kod çalışsın diyorsanız, ilk kodun yerine aşağıdaki kodu kopyalayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column <> 1 Then Exit Sub

If Len(Trim(Target.Value)) = 0 Then
    MsgBox "Hücrede gerçek veri yok. Veri giriniz!"
    Target.Clear
    Exit Sub
End If

If WorksheetFunction.CountIf(Columns("A"), Target.Value) > 1 Then
    MsgBox "Bu isimde sayfa mevcut. Kontrol ediniz!"
    Exit Sub
End If

If MsgBox(Target.Value & " Adlı Sayfa Yok, Eklemek İster Misiniz? ", vbYesNo, _
    Target.Value & " Adlı Sayfanın Açılması") = vbYes Then
    Sheets("Örnek").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Target.Value
    MsgBox Target.Value & " Sayfası AÇILDI......", vbOKOnly, "www.excel.web.tr"
End If

End Sub

 

[şef18]

verilen 9 adet raporu (yoklama) tek raporda birleştirme

arkadaşlar kamuda personel şefiyim yoklamaları elden almayı bırakıp birimlere kendi özel e maillerinden benim belirlediğim e maille doldurdukları excell sayfalarını göndermelerini talimat verdim excel ler geliyor fakat birleştirmesini kendim kopyala yapıştırla genel yoklamaya geçiriyorum bunun bir yolu yokmu teşekürler