Kayıt ve arşivleme

[hepsi_ayni]

Arkadaşlar merhaba.
Geçen gün burada bulduğum bir dosya vardı.İçinde "Veri girişi","kayıt" ve "arşiv" sayfaları vardı.Veri girişi sayfasında ise "Aktar","Arşive yolla","Değiştir" ve "Sil" butonları vardı ve bu program çok kullanışlıydı.Yanlışlıkla sildim onu ve gerçekten çok işime yarıyordu..Bütün aramalarıma rağmen tekrar bulamadım.(Konunun başlığını unuttum)
Yardımcı olabilir misiniz?
Şimdiden teşekkürler

 

[Mahir64]

Arkadaşlar merhaba.
Geçen gün burada bulduğum bir dosya vardı.İçinde "Veri girişi","kayıt" ve "arşiv" sayfaları vardı.Veri girişi sayfasında ise "Aktar","Arşive yolla","Değiştir" ve "Sil" butonları vardı ve bu program çok kullanışlıydı.Yanlışlıkla sildim onu ve gerçekten çok işime yarıyordu..Bütün aramalarıma rağmen tekrar bulamadım.(Konunun başlığını unuttum)
Yardımcı olabilir misiniz?
Şimdiden teşekkürler

Merhaba
Dosya neyle alakalıydı. (Konusu)

 

[ynmcan]

Aradığınız dosya bumu ?
Ekteki link i inceleyin.
http://www.excel.web.tr/f48/ar-ive-gonderme-t97605.html

 

[alptun20]

Sanırım aşağıdaki linkteki dosyayı arıyorsunuz.

http://www.excel.web.tr/f119/veri-yonetimi-uygulamasy-veri-kaydetme-deoi-tirme-ve-t15160.html

 

[hepsi_ayni]

NO
ADI
SOYADI
BABA ADI
ANNE ADI
DOĞUM TARİHİ
TC KİMLİK NO
TELEFONU
İLİ
İLÇESİ

başlıklarını girip aktar dediniz mi kayıt sayfasına listeleme yapıyordu.Daha sonra isterseniz bunları silmeden düzeltebiliyor ya da arşive yolluyordunuz.Ya da bu listeden isimle çağırıp bu ismi silebiliyordunuz

 

[ynmcan]

NO
ADI
SOYADI
BABA ADI
ANNE ADI
DOĞUM TARİHİ
TC KİMLİK NO
TELEFONU
İLİ
İLÇESİ

başlıklarını girip aktar dediniz mi kayıt sayfasına listeleme yapıyordu.Daha sonra isterseniz bunları silmeden düzeltebiliyor ya da arşive yolluyordunuz.Ya da bu listeden isimle çağırıp bu ismi silebiliyordunuz

3 Nolu mesaj daki lingi inceleyin.

 

[hepsi_ayni]

ynmcany arkadaşım evet buydu.Ama onda Değiştir ve sil butonları da vardı

 

[ormann]

http://www.excel.web.tr/attachment.php?attachmentid=107461&d=1301066190


Sayın Hepsi ayni sanırım bu dosyayı aramıştınız

 

[hepsi_ayni]

Arkadaşım evet bu..Fakat "değiştir" ve "sil" butonları işlev görmüyor?

 

[ormann]

Arkadaşım evet bu..Fakat "değiştir" ve "sil" butonları işlev görmüyor?

Sub Değiştir()
Dim ara As Range
If Worksheets("VERİ GİRİŞİ").Range("D5").Value = "" Then
MsgBox "LÜTFEN ÖNCE DEĞİŞTİRMEK İSTEDİĞİNİZ VERİYİ ÇAĞIRINIZ"
Exit Sub
Else
Set ara = Worksheets("KAYIT").Range("a2:a65536").Find(Worksh eets("VERİ GİRİŞİ").Range("d5").Value)
ara.Offset(0, 0).Value = Worksheets("VERİ GİRİŞİ").Range("d5").Value
ara.Offset(0, 1).Value = Worksheets("VERİ GİRİŞİ").Range("d6").Value
ara.Offset(0, 2).Value = Worksheets("VERİ GİRİŞİ").Range("d7").Value
ara.Offset(0, 3).Value = Worksheets("VERİ GİRİŞİ").Range("d8").Value
ara.Offset(0, 4).Value = Worksheets("VERİ GİRİŞİ").Range("d9").Value
ara.Offset(0, 5).Value = Worksheets("VERİ GİRİŞİ").Range("d10").Value
ara.Offset(0, 6).Value = Worksheets("VERİ GİRİŞİ").Range("d11").Value
ara.Offset(0, 7).Value = Worksheets("VERİ GİRİŞİ").Range("d12").Value
ara.Offset(0, 8).Value = Worksheets("VERİ GİRİŞİ").Range("d13").Value
ara.Offset(0, 9).Value = Worksheets("VERİ GİRİŞİ").Range("d14").Value
MsgBox "VERİ DEĞİŞTİRİLMİŞTİR", vbInformation, "VERİ DEĞİŞTİRME"
End If


End Sub



Sub Sil()
Dim ara As Range
If Worksheets("VERİ GİRİŞİ").Range("D5").Value = "" Then
MsgBox "LÜTFEN ÖNCE SİLMEK İSTEDİĞİNİZ VERİYİ ÇAĞIRINIZ"
Exit Sub
Else
Set ara = Worksheets("KAYIT").Range("a2:a65536").Find(Worksh eets("VERİ GİRİŞİ").Range("d5").Value)
ara.EntireRow.Delete
MsgBox "VERİ SİLİNMİŞTİR", vbInformation, "VERİ SİLME"
End If

End Sub


Yukarıda sil ve değiştir makrolarında kod bölümüne kırmızı ile işaretli yeri ekleyiniz düzelir

 

[hepsi_ayni]

Üstadım tamamdır.Düzeldi.Teşekkür ederim.

 

[ormann]

rica ederim.

 

[orkuncan5]

Arkadaşlar düzeltilmiş dosyayı ekleyebilirmisiniz,ben yapamadım.

 

[ormann]

http://www.excel.web.tr/attachment.php?attachmentid=107523&d=1301142297 ARADIĞINZ DOSYA BUYDU GALİBA SAYIN ORKUN5

 

[orkuncan5]

teşekkür ederim