Mesaj Kutusu

[abhaz]

aşağıdaki kodlarla textboxlara yazdıklarımı kaydediyorum.

benim istediğim kaydettikten sonra mesaj kutusunda "kayıt işlemi tamamlanmıştır" şeklinde mesaj kutusu açılması. birde kaydettikten sonra textboxların temizlenmesini istiyorum.

bu kodlara nasıl ekleme yapmalıyım?

işte kodlar...

Private Sub CommandButton2_Click() 'kaydet
On Error Resume Next
Sheets("bilgi").Select
rw = Sheets("bilgi").Cells(65536, 2).End(xlUp).Row + 1

For i = 1 To 40
Cells(rw, i + 1).Value = Controls("TextBox" & i).Value

Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki gibi denermisiniz.

Private Sub CommandButton2_Click() 'kaydet 
On Error Resume Next 
Sheets("bilgi").Select 
rw = Sheets("bilgi").Cells(65536, 2).End(xlUp).Row + 1 

For i = 1 To 40 
Cells(rw, i + 1).Value = Controls("TextBox" & i).Value 
Controls("TextBox" & i).Value = ""
Next 
MsgBox "Kayıt işlemi tamamlanmıştır."
End Sub

 

[abhaz]

evet oldu.

birde kayıt yapılan sayfada sıralama yapmak için bir makro yaptım. ama ben bu makronun her kayıt işleminden yada kayıt silme işleminden sonra otomatik olarak çalışmasını istiyorum. bunun için ne yapmam lazım?

hazırladığım makro bu:

Sub Makro2()
'
' Makro2 Makro
' Makro Hakan TEKİN tarafından 17.03.2006 tarihinde kaydedildi.
'

'
Range("B3:AP101").Select
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B3").Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub CommandButton2_Click() 'kaydet
On Error Resume Next
Sheets("bilgi").Select
rw = Sheets("bilgi").Cells(65536, 2).End(xlUp).Row + 1

For i = 1 To 40
Cells(rw, i + 1).Value = Controls("TextBox" & i).Value
Sırala
Controls("TextBox" & i).Value = ""
Next
MsgBox "Kayıt işlemi tamamlanmıştır."
End Sub


Sub Sırala ()
Sheets("bilgi").Select
Range("B3:AP101").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B3").Select
End Sub

 

[abhaz]

bunu nereye kaydetmem gerekiyor? mesela kayıt makrosuna kaydedeceksem nasıl yapacam?

 

[Korhan Ayhan]

Selamlar,

En son mesajımdaki kodu bir Modüle kopyalarsanız istediğiniz gerçekleşecektir.

 

[abhaz]

arkadaşım ben bunu yaptım ama benim istediğim. bu kodun kayıt butonuna bastığımda yeni girilen kayıtları otomatik olarak sıralaması. yani bu sıralama için ek bir işlem yapmadan.

 

[Korhan Ayhan]

Selamlar,

İstediğiniz işlem aşağıdaki şekildemi acaba?

Kayıt tuşuna tıkladığınızda kayıt işlemini yapar ve verilerinizi sıralar.

Private Sub CommandButton2_Click() 'kaydet
On Error Resume Next
Sheets("bilgi").Select
rw = Sheets("bilgi").Cells(65536, 2).End(xlUp).Row + 1

For i = 1 To 40
Cells(rw, i + 1).Value = Controls("TextBox" & i).Value

Range("B3:AP101").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B3").Select

Controls("TextBox" & i).Value = ""
Next
MsgBox "Kayıt işlemi tamamlanmıştır."
End Sub

 

[abhaz]

ekli dosya

dosyayı ekliyorum.

benim istediğim
1. kaydettikten sonra otomatik sıralayacak
2.değiştirdikten sonra otomatik sıralayacak
3. sildikten sonra otomatik sıralayacak.
(B sütununa göre - ad)


birde textbox1 den textbox8 e kadar eğer bunlardan herhangi birisine veri girilmezse kayıt yapmasın ve mesaj kutusu ile uyarı versin, yani textbox1 den 8 e kadar tüm textboxlara veri girilmeli.

çok teşekkürler.

 

[abhaz]

arkadaşım dediğin gibi yaptım ama hatalı kayıt yapıyor. dosyayı gönderdim istediğim şeyleride yazdım.

bi incelermisin.