bul ve sil

[ahmett46]

Slm Arkadaşlar ve üstadlar
Sitemizde bul ve sil ile ilgili bir çok örnek var ama ben bunu dosyama uyarlayamadım.Bul İçin arkadaşların yazmış olduğu şu örneği ekledim çalışıyor ama istediğim sayfadan bulduramıyorum.
Private Sub CommandButton12_Click()
If TextBox1.Text = "" Then

MsgBox "LÜTFEN ÖĞRENCİ NO GİRİNİZ!!!"
Exit Sub
End If
For Each hucre In Range("a2:a" & WorksheetFunction.CountA(Range("a1:a65000")) + 1)
If StrConv(hucre.Value, vbUpperCase) = StrConv(TextBox1.Value, vbUpperCase) Then
hucre.Select
TextBox2 = ActiveCell.Offset(0, 1).Value
TextBox3 = ActiveCell.Offset(0, 2).Value
TextBox4 = ActiveCell.Offset(0, 3).Value
TextBox5 = ActiveCell.Offset(0, 4).Value
.
.
şeklinde devam ediyor.Öğrenci bilgileri sayfasından buluyor. Burda kullandığım bul butonuna not sayfasından bulmasını istiyorum. Sil butonu ile de bulduğu satırdaki d hücresinden sonrasını silmek istiyorum. Yardımcı olursanız sevinirim.

 

[udentr2002]

End If

For Each hucre In Range("a2:a" & WorksheetFunction.CountA(Range("a1:a65000")) + 1)

end if komutu satırından sonra aratmak istediğinizsayfayı seçtiriniz mesala öğrenciNo diye bir sayfaysa eğer
end if komuıtundan sonra
Sheets("öğrenciNo").Select
Komutunu ekle
o zaman istediğin sayfaya gidip ordan aratacaktır

 

[udentr2002]

Silmek için olanı unutmuşum özür
silmek içinde
satır = ActiveCell.Row
Rows(satır).Delete Shift:=xlUp
komutunu kullanınız

 

[ahmett46]

Teşekkür ediyorum
Peki bulunanı istediğim sütundan sonrasını nasıl silerim?

 

[ahmett46]

Arkadaşlar kod sayfasını açtığım zaman aktif olmuyor yazamıyor veya silemiyorum ACİL:yardim:

 

[udentr2002]

Dosyanı eklersen belki arkadaşlar yardımcı olmaya çalışır

 

[ahmett46]

Slm Arkadaşlar
Kod sayfasında işlem yapılmıyor. Acil :yardim:
Dosya ektedir Kullanıcı adı ve şifre tuğçe

 

[Seceren]

Makroları devre dışı bırak diyerek denedinizmi.

Bütün kod sayfalarına girdim ve hepsine "Kontrol edildi" olarak yazılar yazdım. Bir iki fazlalık vardı onları sildim, hatta biraz daha varda ilerde sen kendin bu burda fazla imiş der silersin.


Not:
Benim yazdıklarımı "Kontrol edildi" silerek başla, yoksa çalıştıramazsın.

 

[ahmett46]

Teşekkürler Seceren
Bir de kusura bakmazsanız istediğim satırı bulduktan sonra o satırın istenilen hücresinden sonrasını nasıl silerim? Cevaplarsanız sevinirim.

 

[Seyit Tiken]

Kodu deneyin.

Sub Düğme1_Tıklat()
ActiveCell.Offset(0, 5) = Empty
End Sub

 

[ahmett46]

Sayın Seceren
Kontrol edildi yazılarını sildim ama ondan sonra yine kod sayfasında düzeltme yapamıyorum Silme ekleme hiç bişey yapamıyorum neden kaynaklanıyor. Benim bilgisayardan mı yoksa

 

[Seceren]

Bunu dene bende çalışıyor. Kendi yazdıklarımı sildim, deneyin çalışmazsa bilemiyorum.

 

[ahmett46]

Sayın Seceren problemimi anlatamadım galiba program çalışıyor. Söylemek istediğim kod sayfasında hiç bir değişiklik yapamıyorum. Delete tuşu silmiyor yazamıyorum. Ama diğer örneklerimde kod sayfasında istediğim değişikliği yapabiliyorum.Aynı zamanda Excel sayfasında da değişiklik yapamıyorum. Teşekkürler

 

[Seceren]

Ben kod sayfasında istediğimi yapa biliyorum. Hatta 3 no lu modül'ün içine SN Seyit beyin modülünü yerleştirdim sırf denemek için. Sende niçin olmuyor bilemiyorum.

 

[ahmett46]

Sizin yaptığınız değişiklikleri gördüm. Ama bende Klavye bu dosyada iş görmüyor sadece kod sayfasında değil excel sayfasında da. Dosyayı X dan kapattığım zaman kaydetmek istiyormusunuz hayır dediğimde Out of memory diye bir uyarı çıkıyor ve belge kurtarma açılıyor.

 

[Levent Menteşoğlu]

Sorun userform6 daki saatten kaynaklanıyor, userformu kapatsanız bile saat çalışmaya devam ediyor. İşte bu sebeplerle ben hiç bir zaman aktif bir saat kullanılmasını önermem. Bunun yerine statusbar kullanabilirsiniz sadece saniyeyi göstermez. Mevcut hatayı gidermek için aşağıdaki değişiklikleri yapın.

Excele dön butonundaki kodu aşağıdaki ile değiştirin.

Private Sub CommandButton15_Click()
Unload Me
UserForm3.Show 0
End Sub

userform6nın ilgili olayınıda aşağıdaki ile değiştirin.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
If CloseMode = vbFormControlMenu Then
MsgBox "Buradan Kapatamazsınız...üzgünüm!"
Cancel = 1
End If
End Sub

Not: Bu arada resimdeki sanıyorum kızınız. Allah bağışlasın.

 

[Seceren]

Hocam böyle demişse doğrudur. Bende yazdıklarımı sildim.

 

[ahmett46]

Hocam çok teşekkür ediyorum. Resimdeki kızım.Allah razı olsun cümlemizin yavrularını bağışlasın