• DİKKAT

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

Tarihe bilgileri kaydetme

M

mehmetfatih

Katılım
1 Ocak 2012
Mesajlar
75
Excel Vers. ve Dili
vba
Rapor alma..

Hazırlamış olduğum ekteki userformda kaydet butonuna bastığımda girdiğim tarihi bulup o satıra kaydetmesini nasıl yapabilirim, yardımcı olabilirmisiniz..
 

Ekli dosyalar

Son düzenleme:
mehmetfatih' Alıntı:
Hazırlamış olduğum ekteki userformda kaydet butonuna bastığımda girdiğim tarihi bulup o satıra kaydetmesini nasıl yapabilirim, yardımcı olabilirmisiniz..
Genişletmek için tıkla ...
Merhaba.
"Kaydet" butonu altında bulunan kodları aşağıdaki gibi değiştirerek deneyebilirsinz.
Kod: 
Private Sub CommandButton1_Click()
Set a = Sheets("VERİLER").Range("A3:A65536").Find(What:=CDate(ComboBox1.Value))
If Not a Is Nothing Then
bos_satir = a.Row
If Sheets("VERİLER").Cells(bos_satir, 2).Value <> "" Then
soru = MsgBox("seçtiğiniz tarihte kayıt var; değiştirsinmi?", vbYesNo)
If soru = vbNo Then
MsgBox "Değişiklik yapılmadı"
Exit Sub
End If: End If
For X = 2 To 19
Sheets("VERİLER").Cells(bos_satir, X).Value = Controls("TextBox" & X).Value
Next
MsgBox "Kayıt Başarı İle Yapıldı TEŞEKKÜR EDERİM ..."
Else
MsgBox "tarih bulunamadı"
End If
End Sub
 
Son düzenleme:
Teşekkür edrim eline sağlık biraz geç döndüm.. Bi eksiklik var oda şu seçtiğimiz tarihte kayıt var ise değiştirsinmi diye sorabilirmi? Kayıt yoksa direk kaydetsin..
 
Hocam öncelikle emeğine sağlık çok çok teşekkür tam istediğim gibi olmuş.. Güzel olunca insan hep daha güzelini istiyor eğer müsaitsen tabi ( eğer seçilen tarihte kayıt var ise direkt o kayıtları userforma getirse değişiklik yapmak istersek deiğiştirelim diye kayıt yoksa zaten boş oluyo)...
 
:) hocam el atarsan birde ekte açılan takvimde sürekli bugünü gösterme şansı varmı?
 
mehmetfatih' Alıntı:
Hocam öncelikle emeğine sağlık çok çok teşekkür tam istediğim gibi olmuş.. Güzel olunca insan hep daha güzelini istiyor eğer müsaitsen tabi ( eğer seçilen tarihte kayıt var ise direkt o kayıtları userforma getirse değişiklik yapmak istersek deiğiştirelim diye kayıt yoksa zaten boş oluyo)...
Genişletmek için tıkla ...
Şöyle olabilir.
Kod: 
Private Sub CommandButton1_Click()
Set a = Sheets("VERİLER").Range("A3:A65536").Find(What:=CDate(ComboBox1.Value))
If Not a Is Nothing Then
bos_satir = a.Row
n = Empty
For b = 2 To 19
If Sheets("VERİLER").Cells(bos_satir, b).Value > "" Then n = n + 1
If n > 0 Then
GoTo ss
Else
GoTo c
End If
Next
ss:
soru = MsgBox("seçtiğiniz tarihte kayıt var; formdakilerle değiştirilsinmi?", vbYesNoCancel)
If soru = vbNo Then
For nn = 2 To 19
Controls("TextBox" & nn).Value = Sheets("VERİLER").Cells(bos_satir, nn).Value
Next
MsgBox "veriler forma aktarıldı, Değişiklik yapılmadı"
Exit Sub
End If
If soru = vbCancel Then Exit Sub
If soru = vbYes Then GoTo c
c:
For X = 2 To 19
Sheets("VERİLER").Cells(bos_satir, X).Value = Controls("TextBox" & X).Value
Next
MsgBox "Kayıt Başarı İle Yapıldı TEŞEKKÜR EDERİM ..."
Else
MsgBox "tarih bulunamadı"
End If
End Sub

mehmetfatih' Alıntı:
ekte açılan takvimde sürekli bugünü gösterme şansı varmı?
Genişletmek için tıkla ...

Aşağıdaki kodu ekleyin.

Kod: 
 Private Sub UserForm_Initialize()
Calendar1.Value = Date
End Sub
 
Son düzenleme:
Hocam bukadar olur ... Süper oldu teşekkür hani bi söz var senin yanında küçük başkasında büyük olan varlıklarına şükret bu bilgiye sahip olmakta böyle bişey olsa gerek... Emeğine sağlık hocam...
 
HOCAM NAZARMI ETTİM NE HATA KODU VERİYOR..
Controls("TextBox" & X + 18).Value = ""
EKTE EKRAN ALINTISIDA GÖNDERDİM...
 

Ekli dosyalar

  • Ekran Alıntısı.JPG
    Ekran Alıntısı.JPG
    50.2 KB · Görüntüleme: 11
Hatanın nedeni b sütununda değer yoksa ve bizde userformda b sütununa değer girmeye çalışıyorsak hata veriyor ama b sütununda değer var ise ve bizde b sütununa değer giriyorsak ozaman tam istediğimiz gibi oluyor.. Umarım anlatabildim..
 
mehmetfatih' Alıntı:
Hatanın nedeni b sütununda değer yoksa ve bizde userformda b sütununa değer girmeye çalışıyorsak hata veriyor ama b sütununda değer var ise ve bizde b sütununa değer giriyorsak ozaman tam istediğimiz gibi oluyor.. Umarım anlatabildim..
Genişletmek için tıkla ...
Merhaba.
O bölümü şöyle değiştirin. (Önceki kodları değiştirdim.)

Kod: 
c:
For X = 2 To 19
Sheets("VERİLER").Cells(bos_satir, X).Value = Controls("TextBox" & X).Value
Next
MsgBox "Kayıt Başarı İle Yapıldı TEŞEKKÜR EDERİM ..."
Else
MsgBox "tarih bulunamadı"
 
Son düzenleme:
hocam denedim hata veriyor bende boş olan hücrelerin tamamını "0" yaptım sorun kalmadı şu an tam istediğim gibi çalışıyor.. teşekkür ettim hocam. müsaitsen raporlama bölümünde yardımcı olabilirmisin hocam?
şöyleki ; BİREYSEL SAYFASINDA A3 İLE A15 BİR DEĞER İLE İLK SATIRDA YAZILI OLAN 101,102,103,104,105 VE 106 DAN BİRİNİ SEÇTİĞİMDE USERFORM2DEKİ BİREYSEL BÖLÜMÜ BİREYSEL SAYFASINDAKİ İSTEDİĞİM DEĞERLERİ GETİRSİN? UMARIM ANLATABİLDİM HOCAM... YARDIMCI OLABİLİRSEN SEVİNİRİM DOSYADA EKTE GÖRMEK İSTERSEN.
 

Ekli dosyalar

Kodları Farklı Tabloda Kullanma

Merhaba;
Bu kodları ekte gönderdiğim tabloda nasıl kullanabilirim
Kendi tablomla alakalı konu açmayı düşünüyordum fakat tam istediğim gibi bir konu açılmış arkadaşın göderdiği tablo 2007 de hazırlanmış zannederim benim office 2003 olduğu için tabloyu inceleyemedim bana yardımcı olabilirmisiniz ?

Husgvarna' Alıntı:
Merhaba.
"Kaydet" butonu altında bulunan kodları aşağıdaki gibi değiştirerek deneyebilirsinz.
Kod: 
Private Sub CommandButton1_Click()
Set a = Sheets("VERİLER").Range("A3:A65536").Find(What:=CDate(ComboBox1.Value))
If Not a Is Nothing Then
bos_satir = a.Row
If Sheets("VERİLER").Cells(bos_satir, 2).Value <> "" Then
soru = MsgBox("seçtiğiniz tarihte kayıt var; değiştirsinmi?", vbYesNo)
If soru = vbNo Then
MsgBox "Değişiklik yapılmadı"
Exit Sub
End If: End If
For X = 2 To 19
Sheets("VERİLER").Cells(bos_satir, X).Value = Controls("TextBox" & X).Value
Next
MsgBox "Kayıt Başarı İle Yapıldı TEŞEKKÜR EDERİM ..."
Else
MsgBox "tarih bulunamadı"
End If
End Sub
Genişletmek için tıkla ...
 

Ekli dosyalar

Ekli dosyalar

Hocam teşekkür ederim çok güzel olmuş eline ve emeğine sağlık (extradan koyduğun butonların mantığını anlamadım ama önemli değil) aynı yoldan çıkarak aylık ve yıllık değerleride getirtebilirim herhalde..

Birde hocam aylık bölümünde sıralı formüllerin birisinde takıldım bakabilirseniz..
=büyük(bireysel!g3:bireysel!m3:bireysel!s3:bireysel!y3:bireysel!ae3:bireysel!ak3;1) bu hücrelerden en büyük olanı yazsın istiyorum ama ara hücrelerdekileride alıyor ben sade "g3 m3 s3 y3 ae3 ak3" bu 6 adet hücredeki en büyük değeri yazsın istiyorum..
 
Hocam birde textboxlarda para cinsinden yazma ve getirtebilme şansımız varmı..?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst