kaydet butonu

[GhostCu]

S.a hayırlı ramazanlar cümleten ziyaretçi kayıt listem var iki sayfam var kayıt ve ziyaretçi kayıt diye kayıt sayfasında kullanıcı oturumu açtıktan sonra bu sayfa ne kadar kadar kayıt girerse nöbet saati bittiğinde kaydet butonuna bastığında bütün kayıtları kayıt sayfasından ziyaretçi kayıt sayfasına yedek alıyormuş gibi oraya göndermeli bu arada kayıt sayfasında formüller var onlarda bozulmamalı yine aynı şekilde kayıt yaparken dolu satırlara yazmamalı bi nevi yedekleme gibi sadece yetkisi olmayan kullanıcılar o yedeklere ulaşmaması için.

bunun haricinde yapılabilir ise kayıt sayfasında kaydeden personel kısmına oturumu kim açtıysa ne kadar kayıt girilirse girilsin oturumu açan personelin isminin girilmesi mümkünmüdür şimdiden teşekkür ederim örnek dosya ektedir.

oturum açmak için administrator şifre 0000 menüler giriş lazım olursa 0000

 

[GhostCu]

varmı bir el atacak

 

[GhostCu]

bir çözümü yokmu yoksa şöyle birşey yapamazmıyız sadece yetkisi olmayan kullanıcı o gün girdiği kayıtları görse

 

[muratboz06]

dosyanızı dosya.co sitesine yüklerseniz bakabilirim.

 

[GhostCu]

dosyanızı dosya.co sitesine yüklerseniz bakabilirim.

İndir ZİYARETÇİ KAYIT ÇİZELGESİ PASS

Dosyayı indir ZİYARETÇİ KAYIT ÇİZELGESİ PASS

dosya.co

buyrun

 

[muratboz06]

Excel dosyasınızda Modul1 e aşağıdaki kodları ekleyiniz.
Herbir satırda C sütununda veri olmak şartıyla ilgili satırı kopyalamaya dahil eder. Her bir satırda her zaman dolu alması gereken bir hücre var ise kSonSatir = kaynak.Range("C50000").End(xlUp).Row satırındaki C harfini ve hSonSatir = hedef.Range("C50000").End(xlUp).Row + 1 satırındaki C harfini ilgili sütunun harfiyle değiştirirsiniz.

Ayrıca ZİYARETÇİ KAYIT sayfasının kod bölümündeki kodları siliniz.
KAYIT sayfasındaki butona Yedekle makrosunu atayınız.

Sub Yedekle()
    Dim cevap As Integer
    cevap = MsgBox("Veriler yedeklenecek, Emin misiniz?", vbYesNo + vbQuestion, "Yedekle")
    If cevap = vbYes Then
        Dim kaynak As Worksheet
        Set kaynak = ThisWorkbook.Worksheets("Kayıt")
        kaynak.Select
        kSonSatir = kaynak.Range("C50000").End(xlUp).Row

        Dim hedef As Worksheet
        Set hedef = ThisWorkbook.Worksheets("ZİYARETÇİ KAYIT")
        hedef.Select
        hSonSatir = hedef.Range("C50000").End(xlUp).Row + 1
        kaynak.Range("A3:M" & kSonSatir).Copy
        hedef.Range("A" & hSonSatir).PasteSpecial Paste:=xlPasteValues
        kaynak.Select
        kaynak.Range("A3").Select
    Else
        MsgBox "Yedekleme işlemi iptal edildi."
    End If

End Sub

 

[GhostCu]

Excel dosyasınızda Modul1 e aşağıdaki kodları ekleyiniz.
Herbir satırda C sütununda veri olmak şartıyla ilgili satırı kopyalamaya dahil eder. Her bir satırda her zaman dolu alması gereken bir hücre var ise kSonSatir = kaynak.Range("C50000").End(xlUp).Row satırındaki C harfini ve hSonSatir = hedef.Range("C50000").End(xlUp).Row + 1 satırındaki C harfini ilgili sütunun harfiyle değiştirirsiniz.

Ayrıca ZİYARETÇİ KAYIT sayfasının kod bölümündeki kodları siliniz.
KAYIT sayfasındaki butona Yedekle makrosunu atayınız.

Sub Yedekle()
    Dim cevap As Integer
    cevap = MsgBox("Veriler yedeklenecek, Emin misiniz?", vbYesNo + vbQuestion, "Yedekle")
    If cevap = vbYes Then
        Dim kaynak As Worksheet
        Set kaynak = ThisWorkbook.Worksheets("Kayıt")
        kaynak.Select
        kSonSatir = kaynak.Range("C50000").End(xlUp).Row

        Dim hedef As Worksheet
        Set hedef = ThisWorkbook.Worksheets("ZİYARETÇİ KAYIT")
        hedef.Select
        hSonSatir = hedef.Range("C50000").End(xlUp).Row + 1
        kaynak.Range("A3:M" & kSonSatir).Copy
        hedef.Range("A" & hSonSatir).PasteSpecial Paste:=xlPasteValues
        kaynak.Select
        kaynak.Range("A3").Select
    Else
        MsgBox "Yedekleme işlemi iptal edildi."
    End If

End Sub

ÖNCELİKLE ELİNİZE SAĞLIK yalnız hocam yedekledikten sonra yedeğe attıktan sonra sayfayı temizlemesinide sağlasak

 

[GhostCu]

Birde haliyle korumalı olacağı için korumalı sayfaya atmıyor yedeği