Run-time error '1004': Method 'Range' of object '_Worksheet' failed

[mancubus]

Merhaba.

excel'de sudoku uygulamaları için araştırma yaparken mrexcel de açık kodlu bir dosya buldum.

indirip makroyu çalıştırdığımda bu hatayı verdi.

gerek forumdaki ilgili konular gerekse internette bulduğum çözümler konuyu çözmeme yardımcı olmadı.

kodlar çok kapsamlı olduğu için kişisel eğitimim amaçlı kullanmayı planlıyordum. ama daha kodu çalıştıramadan kaldım.

aşağıdaki kodun

strCell = CStr(Range("inputgrid").Cells(row, col).value)

satırında hata veriyor.

Private Sub GetGridFromSheet()

 Dim row As Integer, col As Integer
    Dim value As Integer, strCell As String
    Dim tval As Integer

    For row = 1 To 9
        For col = 1 To 9
            ' Allow blank to mean unknown.
            strCell = CStr(Range("inputgrid").Cells(row, col).value)
            tval = Val(strCell)
            If strCell = "" Or Val(strCell) < 1 Then
                strCell = "123456789"
            End If
            
            ' Parse strCell and add to the grid
            For value = 1 To 9
                If InStr(strCell, CStr(value)) <> 0 Then
                    ' found value
                    grid(row, col, value) = True
                Else
                    grid(row, col, value) = False
                End If
            Next
            
        Next
    Next
End Sub

yardımcı olabilecek bir arkadaşımız var mı?

 

[Ömer]

Merhaba,

İlgili satırı aşağıdaki gibi yazarak denermisiniz..

strCell = CStr(Range("InputGrid").Cells(row, col).value)

.

 

[mancubus]

çok teşekkürler...

umarım buradaki kodlar bana farklı hususlarda ilham verir.

 

[heavysharpa]

Private Sub TextBox23_Change()
TextBox23.Value = Sheets("ONTEKLIF").Range("D29")
End Sub


bu satırda debug hatası alıyorum eksik bir kod olabilirmi?

 

[Necdet]

Private Sub TextBox23_Change()
TextBox23.Value = Sheets("ONTEKLIF").Range("D29")
End Sub


bu satırda debug hatası alıyorum eksik bir kod olabilirmi?

Sayfa adının ONTEKLIF olduğundan emin misiniz?

 

[mancubus]

makro ile yeni tanışmış olduğum günlere gittim. :mrgreen:

maziye bak diyecektim ki, alt tarafı 3,5 sene geçmiş... :biggrin:



keşke yeni bir konu açsaydınız...