Soru Genel hücre tanımlama

Katılım
15 Mayıs 2015
Mesajlar
518
Excel Vers. ve Dili
Microsoft Office 2019
Altın Üyelik Bitiş Tarihi
26/06/2023
Ben bazı hücreleri sürekli kodlarımda kullanıyorum
Sürekli tekrarlamak istemiyorum
Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
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.
 
Üst