Makroya Hücreden Değer alma

[iayan]

selamlar

Aşağıdaki Makroda .REFERANSNUMARASI=A1 hücresindeki değer gelsin istiyorum

saygılar



Sub Makro8()
'
' Makro8 Makro
'

'
With Selection.ListObject.QueryTable
.Connection = Array( _
"OLEDB;Provider=SQLOLEDB.1;Password=Yar;Persist Security Info=True;User ID=sa;Initial Catalog=ImpexDB;Data Source=WIN-K8QGH7IV" _
, _
"TCF;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=IRFAN-PC;Use Encryption for Data=False;Tag w" _
, "ith column collation when possible=False")
.CommandType = xlCmdSql
.CommandText = Array( _
"SELECT [ImpexDB].[dbo].[DOSYALAR].DOSYANO, [ImpexDB].[dbo].[DOSYALAR].REFERANSNUMARASI,[ImpexDB].[dbo].[DOS" _
, _
"YALAR].TESCILNO,[ImpexDB].[dbo].[KALEMLER].KALEMSIRANO, [ImpexDB].[dbo].[KALEMLER].GTIP,[ImpexDB].[dbo].[KALEMLER]." _
, _
"FATURATUTARI FROM [ImpexDB].[dbo].[BEYANNAME1],[ImpexDB].[dbo].[DOSYALAR],[ImpexDB].[dbo].[DOSYACEVAP],[ImpexD" _
, _
"B].[dbo].[KALEMLER] WHERE [ImpexDB].[dbo].[BEYANNAME1].DOSYAID=[ImpexDB].[dbo].[DOSYALAR].DOSYAID " _
, _
"AND[ImpexDB].[dbo].[BEYANNAME1].DOSYAID=[ImpexDB].[dbo].[KALEMLER].DOSYAID AND[ImpexDB].[dbo].[DOSYALAR].GECERLITAR" _
, _
"IFECEVAPID=[ImpexDB].[dbo].[DOSYACEVAP].DOSYACEVAPID AND[ImpexDB].[dbo].[BEYANNAME1].REFERANSNUMARASI=A1 hücresindeki değer gelsin" _
)

.Refresh BackgroundQuery:=False
End With
End Sub