• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri Kaydetme , düzeltme .

  • Konbuyu başlatan Konbuyu başlatan Galus
  • Başlangıç tarihi Başlangıç tarihi
Hocam sizin kodları aynen kopyalayıp farklı bir amaç için bir userform yapmaya çalıştım fakat arama yaptıktan sonra istediğim kişinin bilgilerini alamıyorum hep lfarklı kişilerin bilgileri geliyor. ayrıca kayıt üzerinde düzeltmede yapamıyorum sürekli aynı kayıt üzerinde değişiklik yapıyor . dosya ekte bakarsanız sevinirim.
 

Ekli dosyalar

nesur' Alıntı:
Hocam sizin kodları aynen kopyalayıp farklı bir amaç için bir userform yapmaya çalıştım fakat arama yaptıktan sonra istediğim kişinin bilgilerini alamıyorum hep lfarklı kişilerin bilgileri geliyor. ayrıca kayıt üzerinde düzeltmede yapamıyorum sürekli aynı kayıt üzerinde değişiklik yapıyor . dosya ekte bakarsanız sevinirim.
Genişletmek için tıkla ...

kodlarda problem yok problen a sütunu boş olmasından

Kod: 
For L = 1 To 9
If Controls("TextBox" & L).Text = "" Then
MsgBox "LÜTFEN  " & Sheets("YABANCI").Cells(1, L).Value & "  GİRİNİZ.", , "EXCEL.WEB.TR"
Exit Sub
End If
Next
[COLOR="Red"]son = Sheets("YABANCI").Range("a65536").End(xlUp).Row + 1[/COLOR]
For T = 1 To 9
Sheets("YABANCI").Cells(son, T).Value = Controls("TextBox" & T).Text
Next

kırmızı satır gördügünüz gibi a sütunu referans alıyor. düzeltme butonu ise problemsiz çalışıyor taşeronu (textbox3) referans aldığı için diğerlerini değiştirebilirsiniz.
 
hocam onlar doluydu ben boşaltıp yolladım size :)
yani doluyken denedim zaten . listede bir problem yok listeleme yapıyor . adı soyadından arama yaptığımzda sorun yaşıyoruz. düzelt dediğimiz zamanda isim kime ait olursa olsun 4. satırdaki kişi üzerinde değişiklik yapıyor.
 
nesur' Alıntı:
hocam onlar doluydu ben boşaltıp yolladım size :)
yani doluyken denedim zaten . listede bir problem yok listeleme yapıyor . adı soyadından arama yaptığımzda sorun yaşıyoruz. düzelt dediğimiz zamanda isim kime ait olursa olsun 4. satırdaki kişi üzerinde değişiklik yapıyor.
Genişletmek için tıkla ...

değiştir kodlarına bakalım,

Kod: 
For L = 1 To 9
If Controls("TextBox" & L).Text = "" Then
MsgBox "LÜTFEN  " & Sheets("YABANCI").Cells(1, L).Value & "  GİRİNİZ.", , "EXCEL.WEB.TR"
Exit Sub
End If
Next
[COLOR="Red"]Set ARA = Sheets("YABANCI").Range("C:C").Find(TextBox3)[/COLOR]
If Not ARA Is Nothing Then
For T = 1 To 9
Sheets("YABANCI").Cells(ARA.Row, T).Value = Controls("TextBox" & T).Text
Next
Else
MsgBox "FİLİMİN ORJİNAL İSMİ " & TextBox3.Text & "  VERİ TABANINDA BULUNAMADI.", , "EXCEL.WEB"
End If

kırmızı satırda gördügünüz gibi c sütununda textbox3'ü arıyor benzersiz bir kayıt olmalı taşeron birden fazla olduğundan en üstteki kayda uyacaktır bence a sütununda tc kimlik noya göre işlem yapın

Kod: 
Set ARA = Sheets("YABANCI").Range("a:a").Find(TextBox1)

gibi
 
Hocam düzeltme işini halletim sanırım ama haala arama yaptıktan sonra istediğim kişinin ismini ekrana alamıyorum.sürekli ana listedeki sıraya göre çağırıyor
 
ben düzelttim denedim listeden alma yeni kayıt düzeltme doğru çalışıyor.tc kimlik numarası listede birden fazla olan varmı bu önemli
 

Ekli dosyalar

hocam herkesin t.c kimlik numarası var
burdaki tek sorun farzedelimki d harfi ile başlayanları aradık ve d harfi ile başlayan herhangi birni tıkladığımızda listeye genel listenin o sırasındaki kişi geliyor.yani listenin üstündeki rama motorundan örneğin destan aslanı seçtiğimizde destan aslan listede çıkıyor fakat destan aslanı tıkladığımızda abdulaziz kanterin bilgileri geliyor.:)
 
nesur' Alıntı:
hocam herkesin t.c kimlik numarası var
burdaki tek sorun farzedelimki d harfi ile başlayanları aradık ve d harfi ile başlayan herhangi birni tıkladığımızda listeye genel listenin o sırasındaki kişi geliyor.yani listenin üstündeki rama motorundan örneğin destan aslanı seçtiğimizde destan aslan listede çıkıyor fakat destan aslanı tıkladığımızda abdulaziz kanterin bilgileri geliyor.:)
Genişletmek için tıkla ...

Konu anlaşılmıştır listboxun kodlarını alttakinlerle değiştirin

Kod: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set ara = Sheets("YABANCI").Range("a:a").Find(ListBox1.List(ListBox1.ListIndex, 0))
If Not ara Is Nothing Then
For l = 1 To 9
Controls("TextBox" & l).Text = Sheets("YABANCI").Cells(ara.Row, l)
Next
End If
End Sub
 
UserForm1 dan kayıt yaptıgım zaman otomatık olaran numara almıyor

Biraz kendime göre düzenledim ustalar

Bilgileri girdikten sorna
yeni kayıt tusuna asıldığı zaman no:girin diyiyor enson satırın nosunu otamatik olarak
alnasını istiyorum

site içinde arastırma yaptım derdime cara olaçak bir şey bulamadın onun için ustalara sormak istedim
 

Ekli dosyalar

beyaz34' Alıntı:
Biraz kendime göre düzenledim ustalar

Bilgileri girdikten sorna
yeni kayıt tusuna asıldığı zaman no:girin diyiyor enson satırın nosunu otamatik olarak
alnasını istiyorum

site içinde arastırma yaptım derdime cara olaçak bir şey bulamadın onun için ustalara sormak istedim
Genişletmek için tıkla ...

kaydetbutonuna alttaki kodu kullanın,

Kod: 
Private Sub CommandButton2_Click()
TextBox1.Text = WorksheetFunction.Max(Range("a:a")) + 1
For l = 1 To 6
If Controls("TextBox" & l).Text = "" Then
MsgBox "LÜTFEN  " & Sheets("YABANCI").Cells(1, l).Value & "  GİRİNİZ.", , "EXCEL.WEB.TR"
Exit Sub
End If
Next
son = Sheets("YABANCI").Range("A65536").End(xlUp).Row + 1
For T = 1 To 11
Sheets("YABANCI").Cells(son, T).Value = Controls("TextBox" & T).Text
Next
Call listele
End Sub
 
fedeal kardesime çok tesekkür ederim verdigi kodlar tam uydu ...
ıyı aksamlar..
 
fedeal' Alıntı:
kaydetbutonuna alttaki kodu kullanın,

Kod: 
Private Sub CommandButton2_Click()
TextBox1.Text = WorksheetFunction.Max(Range("a:a")) + 1
For l = 1 To 6
If Controls("TextBox" & l).Text = "" Then
MsgBox "LÜTFEN  " & Sheets("YABANCI").Cells(1, l).Value & "  GİRİNİZ.", , "EXCEL.WEB.TR"
Exit Sub
End If
Next
son = Sheets("YABANCI").Range("A65536").End(xlUp).Row + 1
For T = 1 To 11
Sheets("YABANCI").Cells(son, T).Value = Controls("TextBox" & T).Text
Next
Call listele
End Sub
Genişletmek için tıkla ...
------------------------------------------------------------------------------------
Bu kodları kullnarak excelle bilgileri kabdediyorum ama bir sorun cıktı .
Oda TextBox ları tek tek silmek zorunda kalıyorum kaydet tusuna bastıgım zaman girilen verileri TextBoxlardan silip boş olmasını iştiyorum ? ............

Yukarıda örnek çalışma vardır.....


-----------------------------------------------------------------------------------
Herkezin seker bayramını kutlarım. Saygılar
 
beyaz34' Alıntı:
------------------------------------------------------------------------------------
Bu kodları kullnarak excelle bilgileri kabdediyorum ama bir sorun cıktı .
Oda TextBox ları tek tek silmek zorunda kalıyorum kaydet tusuna bastıgım zaman girilen verileri TextBoxlardan silip boş olmasını iştiyorum ? ............

Yukarıda örnek çalışma vardır.....


-----------------------------------------------------------------------------------
Herkezin seker bayramını kutlarım. Saygılar
Genişletmek için tıkla ...

Merhaba, sizinde ramazan bayramınızı kutlarım kodları alttakilerle değiştirin.

Kod: 
Private Sub CommandButton2_Click()
TextBox1.Text = WorksheetFunction.Max(Range("a:a")) + 1
For l = 1 To 6
If Controls("TextBox" & l).Text = "" Then
MsgBox "LÜTFEN  " & Sheets("YABANCI").Cells(1, l).Value & "  GİRİNİZ.", , "EXCEL.WEB.TR"
Exit Sub
End If
Next
son = Sheets("YABANCI").Range("A65536").End(xlUp).Row + 1
For T = 1 To 11
Sheets("YABANCI").Cells(son, T).Value = Controls("TextBox" & T).Text
[COLOR="Red"]Controls("TextBox" & T).Text = ""[/COLOR]
Next
Call listele
End Sub

kırmızı satırı ekledim kayıt yapılan textbox siliniyor(mantıgını anlamanız için kırmızı olarak belirttim.)
 
excel korumada

excel korumada makro bölümün hiç mudahele edemiyorum 2 gümdür birde ecxel sayfalarındaki açıklama bölümleri çalışmıyor verdiginiz komutu kopyala yapıştır veye yazma yoluylada ilave edemiyorum. sayılar........
 
Sn fedeal hocam,

Filimleri programa anca girebildim. Dile kolay bin küsür filim. İşler süper kolaylaştı. Artık mükerrer filim indirme, filim arama derdim yok. Piyasadaki programlar gibi internetten veri de aramıyor. Kendim pişirip kendim yiyorum. Size bir kez daha şükranlarımı arz etmeği borç bildim.

Saygılar , teşekkürler...
 
Galus' Alıntı:
Sn fedeal hocam,

Filimleri programa anca girebildim. Dile kolay bin küsür filim. İşler süper kolaylaştı. Artık mükerrer filim indirme, filim arama derdim yok. Piyasadaki programlar gibi internetten veri de aramıyor. Kendim pişirip kendim yiyorum. Size bir kez daha şükranlarımı arz etmeği borç bildim.

Saygılar , teşekkürler...
Genişletmek için tıkla ...

Ricaederim, ne mutlu bana ki yardımcı olabilmişim.
Saygılar.
 
Hocam ,

Mükemmel derken bir hata ile karşılaştım. Filme bilgi ekleyip DÜZELT butonuna basınca filmin orjinal adını ararken bir önceki benzer yere kaydediyor. Umut filmini düzeltirken üst hücredeki Umutsuzlar filmini düzeltiyor. Aratırken kelimeyi içinde geçen harflere göre değil de birebir aynısını bulsurup düzelttiremez miyiz?

Saygılar..


Private Sub CommandButton1_Click()
For l = 1 To 6
If Controls("TextBox" & l).Text = "" Then
MsgBox "LÜTFEN " & Sheets("YABANCI").Cells(1, l).Value & " GİRİNİZ.", , "www.excel.web.tr"
Exit Sub
End If
Next
Set ARA = Sheets("YABANCI").Range("C:C").Find(TextBox3)
If Not ARA Is Nothing Then
For T = 1 To 11
Sheets("YABANCI").Cells(ARA.Row, T).Value = Controls("TextBox" & T).Text
Next
Else
MsgBox "FİLİMİN ORJİNAL İSMİ " & TextBox3.Text & " VERİ TABANINDA BULUNAMADI.", , "ww.excel.web.tr"
End If
Call listele
CVP = MsgBox(TextBox3.Text & " DÜZELTME İŞLEMİNİ ONAYLIYORMUSUNUZ?", vbYesNo, "www.excel.web.tr")
End Sub
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst