Soru Genel hücre tanımlama

[hlojan]

Ben bazı hücreleri sürekli kodlarımda kullanıyorum
Sürekli tekrarlamak istemiyorum

Public exk As Workbook, exs As Worksheet, exa As Worksheet, exh As Worksheet, bgln As Object, kyt As Object
Public site As String, database As String
Public kullanici As String, sifre As String, port As String
Public dtkod, dtfirma, dtadres, dtdosya As String
Sub tanimlama()

Set exk = ActiveWorkbook
Set exa = exk.Worksheets("Anasayfa")
Set exs = exk.Worksheets("Sertifika")
Set exh = exk.Worksheets("Hesaplama")
Set bgln = New ADODB.Connection
Set kyt = New ADODB.Recordset

site = "**"
database = "**"
kullanici = "**"
sifre = "**"
port = "**"

dtkod = exa.Range("hkod").Text
dtfirma = exa.Range("hfirma").Text
dtadres = exa.Range("hadres").Text

dtdosya = exa.Range("hdosya").Text

MsgBox dtfirma
dtmarka = exa.Range("hmarka").Text

dtmodel = exa.Range("hmodel").Text

dtseri = exa.Range("hseri").Text

dtmustno = exa.Range("hmustno").Text




End Sub

sub deneme()
 dtfirma = ""
 dtadres = ""
 dtdosya = ""
 

 

 dtfirma = kyt("sfirma")
 dtadres = kyt("sadres")
 dtdosya = kyt("dosya")
 
 end sub

Burada dtfirma hücre gibi algılamıyor. tanımlaması değişiyor.

yardımlarınızı bekliyorum

 

[turist]

dtfirma = exa.Range("hfirma").Text
satırında kullanılan hfirma hücre tanımını Ad Tanımlaması'nda kontrol edin. Değer bozulmuş, silinmiş vs. olabilir.