excel bilgi kaydı

[hknbsr]

yapmak istediğim şey sayfa 1 de bilgileri yazınca kaydet butonuna bastıgımda sayfa 2 ye kaydedilecek.kaydet butonuna bastıgımda sayfa 1 e yazdıklarım silinecek ama sayfa 2dekiler kalacak.

 

[Necdet]

Merhaba,

Ad olarak Necdet yazdınız diyelim

bu Necdet'i Sayfa2 de B1 sütununa mı yazılacak?

Sonra Ahmet yazdınız bu da C1 sütununa mı yazacak?

Yani bilgiler yatay olarak mı yazdırılacak?

Yoksa Adını A sütununa, Soyadını B sütununa , Cinsiyetini C sütununa mı yazılacak?

Basit bir dosya gönderiyorsunuz ama yeterli açıklamayı yazmıyorsunuz. Dolayısıyla sorunuzla ilgilenecek kişilere bir anlamda ilgilenmeyin diyorsunuz.

Bu tip uyarıları yapmaktan ben bıktım artık, lütfen sorularınız çok açık olsun.

 

[hknbsr]

sayfa 2de b1 sütununa çünkü sayfa 1 le sayfa 2 aynı düzende aynı düzen olarak.

 

[Necdet]

Birinci kişiyi anladım da ikinci defa bilgi girildiğinde de sayfa2 de durum ne olacak diye sordum açıkçası.

Çünkü Sayfa2 deki bilgiler kalacak diyorsunuz ve buna açıklık getirmiyorsunuz.

 

[hknbsr]

ikinci kullanıcı geldiğinde onun adıda sayfa 2 deki c1 hücresine kayıt edilecek yani yatay olarak gidecek.ama bunu kodla yapmamamız gerekiyor excell formülleriyle

 

[ynmcan]

Syn. Hknbsr;
Ekteki dosyayı inceleyin. İstediğiniz bumu?

 

[hknbsr]

aynen bu üstadım ama bana nasıl yapıldıgını anlatman lazım sunum yapacamda.birde bunu kodla yapmadın umarım

 

[ynmcan]

Syn. Hknbsr;
İlk mesajınızda Kaydet butonu kulanılacağını yazmışsınız. Kod yazmadan bu butonu nasıl kulanacaksınız. Benim bu konuda bir bilgim yok belki olabilir, malesef ben bilmiyorum.

 

[hknbsr]

makro atayabiliriz ama makro kaydet durdur özelliği ile kod kullanmadan yani emegine saglık yinede tesekkür ettim

 

[ynmcan]

Syn. Hknbsr;

Yaptığım örnekte butona aşağıdaki makro kaydet özelliği ile atanmıştır.

Sub Aktar()
If Sheets("Sayfa1").Cells(1, 2) = "" Then
MsgBox "ad giriniz."
Else
If Sheets("Sayfa1").Cells(2, 2) = "" Then
MsgBox "soyad giriniz."
Else
If Sheets("Sayfa1").Cells(3, 2) = "" Then
MsgBox "cinsiyet giriniz."
Else
For sat = 1 To 3
i = Sheets("Sayfa2").Cells(3, 256).End(1).Column + 1
Sheets("Sayfa2").Cells(sat, i) = Sheets("Sayfa1").Cells(sat, 2)
Sheets("Sayfa1").Cells(sat, 2) = ""
Next sat
End If
End If
End If
End Sub

 

[Necdet]

Merhaba,

Bu kodlarda alternatif olsun.

Sub Aktar_Sil()
    
    Dim i As Integer
    If Application.WorksheetFunction.CountA(Sheets("Sayfa1").Range("B1:B3")) = 3 Then
        i = Sheets("Sayfa2").Cells(1, Columns.Count).End(1).Column + 1
        With Sheets("Sayfa1").Range("B1:B3")
            .Copy Sheets("Sayfa2").Cells(1, i)
            .ClearContents
        End With
    Else
        MsgBox "Eksik Bilgi Var, Tamamlayınız"
    End If
 
End Sub

 

[hknbsr]

biraz önce paylastıgınız kodu bu örneğe nasıl uygularız.adam excele girdiğinde giriş sayfasına gelecek ordaki boşlukları doldurmadan giriş düğmesine tıklayamayacak.eğer kayıtlı değilse kayıt ol deyip kayıt sayfasına gidecek orda yazdıkları kaydet deyince veri tabanı sayfasına kaydedilecek.kaydet tuşuyla tekrar giriş sayfasına gelip giriş yapacak.her üye geldiğinde bu tekrar edilecek üye olanın bilgileride silinmeyecek

 

[ynmcan]

Syn. Hknbsr;
Aşağıya eklediğim lingi İnceleyin.
Halit3' ün sizin istediklerinizi fazlasıyla karşılayan bir çalışması var.
Diğer çalışmalarınızı bu dosya üzerinde devam edebilirsiniz.
http://www.excel.web.tr/f129/parola-ve-ifre-olu-turma-t86741.html

 

[hknbsr]

buna daha önce bakmıştım ama benim istediğime uygun değil benim istediğim tam olarak yazdığım gibi.çünkü excell üzerinde veri dogrulama yapacam

 

[ynmcan]

Syn. Hknbsr;
Ekteki dosyayı inceleyin.