Macro Cells.Find hatası

[search77]

Arkadaşlar merhaba,

Ekli dosya herkese faydalı olacak bir ingilizce sözlük dosyasıdır.

Fakat macro Cells.Find hatası vermekte, onu düzeltebilecek arkadaşlara şimdiden teşekkürler.

Syg.

 

[search77]

Arkadaşlar merhaba,

Ekli dosya herkese faydalı olacak bir ingilizce sözlük dosyasıdır.

Fakat macro Cells.Find hatası vermekte, onu düzeltebilecek arkadaşlara şimdiden teşekkürler.

Syg.

Dosyayı eklemeyi unutmuşum

 

[halit3]

Dosyayı eklemeyi unutmuşum

bu bölümde kırmızı renkli tırnakları silmek gerekiyor.

 Cells.Find(What:=[COLOR=red][B]"[/B][/COLOR]ran0[COLOR=red][B]"[/B][/COLOR], After:=ActiveCell, LookIn:=xlFormulas, _
             LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
      MatchCase:=False, SearchFormat:=False).Activate

Kodun UserForm_Initialize olayını aşağıdaki ile değiştirin kod sayfaların son dolu satırını algılamıyor.

Private Sub UserForm_Initialize()
sayfa1 = "ilk 2514 kelime  Dıc1"
sayfa2 = "İkinci 1127 kelime   Dıc2"
'dizi = Array(5, 2)
kelime = 1
If Option1 Then
    UserForm1.Caption = "2500 Kelimelik sözlük ile Öncelikli kelime testi"
Else
    UserForm1.Caption = "4000 Kelimelik sözlük ile Öncelikli kelime testi"
End If
turking = False
total = 0
cevap1 = 0
topkelime = 0
 
totalkelime1 = Worksheets(sayfa1).Cells(Rows.Count, "B").End(3).Row
totalkelime2 = Worksheets(sayfa2).Cells(Rows.Count, "B").End(3).Row
lblinfo.Caption = "Sözlükte " & CStr(totalkelime2 + totalkelime1) & " adet kelime var"
Sheets("Önsöz").Select
Application.ScreenUpdating = False
End Sub

 

[search77]

Halit bey,

Süpersiniz, harika olmuş, çok çok teşekkürler.

Syg.

 

[halit3]

Halit bey,

Süpersiniz, harika olmuş, çok çok teşekkürler.

Syg.

iyi çalışmalar