ActiveSheet Error

[xwyz1]

Selamlar ilgili içerikte yaptığım bir çalışmamda Cells komutuna ActiveSheet'e uyarlayamadım, hata veriyor onun haricinde çalışıyor şimdiden teşekkürler.

Bu arada Activate functionuna saat:dakika:saniye:salise hareketli olarak kodu varsa verirseniz iyi olur örnekleri saniyeye kadar

Düzeltme: Hatalar düzenlendi, eklemeler yapıldı.

 

[Orion1]

ilgili kodları siliniz onların yerine aşağıdaki kodarı yazın.
For ALP = TextBox2 To TextBox3
SATIR = [b65536].End(3).Row + 1
ActiveSheet.Range("A" & SATIR).Value = (TextBox1.Value)
ActiveSheet.Range("B" & SATIR).Value = ALP
ActiveSheet.Range("C" & SATIR).Value = (ComboBox1.Value)
ActiveSheet.Range("D" & SATIR).Value = "1"
MsgBox ("Yeni kupon başarıyla oluşturuldu.")
ActiveSheet.Range("A7").Select

 

[xwyz1]

waaow çok teşekkürler (=

Düzenlemeler:
- TabIndex düzenlendi.
- Boş veri varsa hata mesajı eklendi.

 

[Orion1]

waaow çok teşekkürler (=

Düzenlemeler:
- TabIndex düzenlendi.
- Boş veri varsa hata mesajı eklendi.

Sayfa sonunuda kontrol etmelisiniz.SATIR 65535 olduysa kayıt girilmeyip mesaj çıksın.Sayfa dolmuştur.Kayıt girilmedi.

 

[xwyz1]

Düzenlemeler:
- İşlem tamamlandı mesajı artık sadece tüm işlemlerin sonunda gözkecek.
- Sayı gereken kutulara artık sadece sayı girilecek, harf kabul etmeyecek.
- İlk No, Son No'dan büyükse hata verecek.
- Veriler sayfa sonuna ulaşmışsa uyarı verecek. (Evren bey dediğinizi tam yapamadım ancak 1. sayfada geçerli oldu ActiveSheet olarak uygulatamadım.)

Dipnot: Maalesef sitede şuan attach ekleme kısmı kaldırılmış sanırım upload etmekten başka çarem kalmadı :/ )

http://depositfiles.com/files/yklfojr47

 

[Orion1]

- Veriler sayfa sonuna ulaşmışsa uyarı verecek. (Evren bey dediğinizi tam yapamadım ancak 1. sayfada geçerli oldu ActiveSheet olarak uygulatamadım.)

SATIR = activesheet.cells(65536,"B").end(xlup).row+1

veya;
sayfa1 yerine istediğiniz sayfa adını yazabilirsiniz.

SATIR = sheets("Sayfa1").cells(65536,"B").end(xlup).row+1

 

[xwyz1]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Set myRange = Intersect(Range("A65536:Z65536"), Target)
If Not myRange Is Nothing Then
MsgBox "Daha fazla veri girişi yapılamaz!", vbCritical, "HATA: Sayfa Sonu!"
End If
End Sub

Aslında bahsettiğim şöyle birşeydi, bu sadece tek bir sayfada işe yarıyor tüm workbook'u kapsayanından bahsetmiştim neyse pek luzumu yok zaten. (=