userformdan bilgi girme ve düzeltme

[ojibu]

okulda kullanabilmek için userformdan bilgi girisi yapmak için bir userform olusturdum. sorunum kaydet yapinca hep ayni yere yapiyor. yani listede dolu olan satirin altina nasil yazdirabilirim. ayrica bir userform olusuturarak nasil bul sil düzelt yapabilirim. tesekkürler

 

[udentr2002]

dosyanız ektedir inceleyiniz

dosyayı inceleyiniz lütfen

 

[ojibu]

hocam tesekkürler. peki bunun üzerinden silme düzeltme yapabilirmiyim

 

[udentr2002]

dosyayı inceleyiniz

dediklerinizin olabilmesi için formunuza bir combobox ve 3 adet buton ekledimekledim ve gerekli kodları yazdım ekli dosyayı inceleyiniz.

 

[ojibu]

tesekkurler... bence güzel oldu. bir inceleyin

 

[emrexcel123]

üstat bu çalışmada ki üstteki saati nasıl koydun bana da söyleyebilir misin saygılar...

 

[Seyit Tiken]

üstat bu çalışmada ki üstteki saati nasıl koydun bana da söyleyebilir misin saygılar...

Saati oluşturan ve çalıştıran kod aşağıdaki gibidir.

Private Sub UserForm_Activate()
On Error Resume Next
Do
UserForm1.Label8 = Format(Now, "dd mmmm yyyy dddd hh:mm:ss")
DoEvents
Loop
End Sub

 

[isarican]

Saati oluşturan ve çalıştıran kod aşağıdaki gibidir.

Private Sub UserForm_Activate()
On Error Resume Next
Do
UserForm1.Label8 = Format(Now, "dd mmmm yyyy dddd hh:mm:ss")
DoEvents
Loop
End Sub

bu kodları nereye yazacağız nasıl yapacağız birazdaha açarmısınız

 

[udentr2002]

sn isarıcan

userformun üzerine tıklayın açılan kod sayfasında sağ taraftaki yere tıklayın ve oaradan activate bölümünü seçin sub ve end sub arasına kosu yazın çalışacaktır

 

[udentr2002]

basit bi örnek

örneği incelerseniz daha iyi anlayabilrsiniz

 

[udentr2002]

özür

yine dosyyaıo eklemeyi unuttum

 

[isarican]

yine dosyyaıo eklemeyi unuttum

sağ ol yardımcı oldun tşk

 

[emrexcel123]

üstad çok sağol peki bunu (forma değil de) excel sayfasına nasıl koyabiliriz...

 

[udentr2002]

sayın emrexcel123

ekli dosyayı inceleyiniz,
denetim araç kutusundan sayfaya bir label yerleştir normal modül sayfasına içindeki kodu yaz sonrada sayfanın adı üzerinde sağ tıkla kod görüntüle yi seçip oarayada içideki kodu yaz
dosyayı açıp kapat tekrar çalışacaktır

 

[Seyit Tiken]

Sayfaya aşağıdaki gibidir.

Private Sub Worksheet_Activate()
On Error Resume Next
Do
Sheets(1).[a1] = Format(Now, "dd mmmm yyyy dddd hh:mm:ss")
DoEvents
Loop
End Sub

Bu şekilde bir saatin çalışması/olması, pek tavsiye edilmez, işlemleri aksattır.

 

[udentr2002]

seyit hocam

valla diyorsan elbetteki bi bildiğin vardır ben fazla profosyonel değilim burda sizin gibi üstadların sayesinde bir şeyler öğrendim. Yanlız dediğin kodu yaptıktan sonrada forma dönüp çalıştır demediğin müddetce çalışmıyor gerçi benim yaptığımda da labelin üzerine gelip bir defa tıklamak gerek öyle çalışmaya başlıyor sonuçta her ikisinde de sanırım sürekli bi arka planda bi makro çalıştığı için diğer işlemleri yapmaya olanak vermiyor ancak reset deyip makroyu durdurunca başka işlemler yapılabiliyor sonuçta haklısın kullanışlı bir şey olmuyor belki daha kullanışlı olan vardır ama ancak ben kurcalamakla bunu yapabildim. kendinize iyi bakın iyi geceler seyit hocam saygılarımla

 

[Zeki Gürsoy]

Ekteki gibi kullanılırsa pek zarar vereceğini sanmıyorum.

 

[adventurk]

tesekkurler... bence güzel oldu. bir inceleyin

dostum çok teşekkürler ellerine sağlık çok büyük bir problemim çözüldü..

 

[serdarinho43]

süper çalışma elinize sağlık

 

[gulevurgun]

Emeğine sağlık çok ihtiyacım vardı.