- 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
Burada dtfirma hücre gibi algılamıyor. tanımlaması değişiyor.
yardımlarınızı bekliyorum
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
yardımlarınızı bekliyorum