Verileri bağlantı yapıştır şeklinde getirmek...

[sinan05]

Herkese merhabalar, iyi çalışmalar. Hocalarım yardımınızı rica edebilirmiyim. Aşağıdaki kodlarla kapalı dosyalardan veri getiriyorum. Değerleri yapıştır yerine bağlantı yapıştır kodlarını ekleyebilirmiyiz?

.................
.................
For i = 1 To dosyam.Sheets.Count
For x = 3 To 23
If dosyam.Sheets(i).Range("k25") = "" Then
If dosyam.Sheets(i).Cells(x, "h").Text <> "" Then
dosyam.Sheets(i).Range("g" & x & ":q" & x).Copy
kitap.Sheets("VERİLER").Range("a" & Son).PasteSpecial xlPasteValues
Son = Son + 1
End If
End If
Next x
Next i
dosyam.Close False
.............