Sayfa Temizlemede sorun

[ahmett46]

Slm.
Private Sub CommandButton8_Click()
If ActiveSheet.Name = "EK3" Then
Sheets("EK3").Range("A1:B100").ClearContents
MsgBox "Sayfa temizlenmiştir."
Else
MsgBox "Bu Sayfada Bu işlem yapılamıyor"
End If
End Sub

kodlarını kullanarak A1:B100 arasını temizliyor. Ancak UserFormu kapatmadan A1:B100 aralığına listbox ta tıklayarak bilgi girdiğimde kaldığı yerden devam ediyor. Tekrar a1 den itibaren yazdırmak istiyorum. Koda ne eklemeliyim. Teşekkürler

 

[f_desat]

İşlem yapılmadan en baştan başlasın

Sheets("Sayfa1").Range("a1").Activate ' sayfa temizlendikten sonra _
list boxtan kayıt yapmadan herzaman a1 kontrole başlasın
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

 

[paranormal]

Slm.
Private Sub CommandButton8_Click()
If ActiveSheet.Name = "EK3" Then
Sheets("EK3").Range("A1:B100").ClearContents
MsgBox "Sayfa temizlenmiştir."
Else
MsgBox "Bu Sayfada Bu işlem yapılamıyor"
End If
End Sub

kodlarını kullanarak A1:B100 arasını temizliyor. Ancak UserFormu kapatmadan A1:B100 aralığına listbox ta tıklayarak bilgi girdiğimde kaldığı yerden devam ediyor. Tekrar a1 den itibaren yazdırmak istiyorum. Koda ne eklemeliyim. Teşekkürler

Selamlar.....
Bi Dosya ekleyebilirmisin....................................

 

[ahmett46]

Hocam ilginiz için teşekkürler uyguladım ama olmadı Listbox taki kodlaramı ekleyecez yoksa

 

[ahmett46]

Dosya ektedir

 

[f_desat]

the end

Sheets("Sayfa1").Range("a1").Activate ' sayfa temizlendikten sonra _
list boxtan kayıt yapmadan herzaman a1 kontrole başlasın
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

Sorun çözüldü dosyayı incelermisiniz

 

[paranormal]

Dosya ektedir

Dosyayi aldim ama, Formu açamiyorum....... hata veriyor.

 

[f_desat]

user formu kapat S.LİST sayfasındaki butona bas

 

[ahmett46]

Teşekkürler Hocam

 

[paranormal]

Teşekkürler Hocam

Evet, tekrar denedim, FORMAÇ butonuna bastim..... fakat dosya yine acilmadi.

 

[paranormal]

Sorun ya benim EXCEL de ya da sizde............saygilar............

 

[ahmett46]

Evet, tekrar denedim, FORMAÇ butonuna bastim..... fakat dosya yine acilmadi.

Bende sıkıntı yok hocam açılıyor

 

[ahmett46]

Sorun çözüldü dosyayı incelermisiniz

Sn. f_desat
Bu şekilde yeni bir sorunla karşılaştım. ListBox1 den öğrenci ismi seçiyorum. ListBox2 den kitap adı seçiyorum. Bir öğrenci birden fazla kitap okuduğu zaman kitaplar b sütununda alt alta sıralanacak mesela a1 deki öğrenci 3 kitap okuduysa 2. öğrenciyi seçtiğimde a4 eyazması gerekiyor. yani ListBox2 den aktarılan veriden sonraki satırdan başlayacak.

 

[ahmett46]

Sn Hocalarım yok mu bakan