dgdizayn
Altın Üye
- Katılım
- 7 Mart 2011
- Mesajlar
- 138
- Excel Vers. ve Dili
- OFFİCE 2019 EN
- Altın Üyelik Bitiş Tarihi
- 04-05-2028
Merhabalar,
Aşağıdaki Hdf.Sheets("Sheet1") kodda Sheet1 kısmını, açık olan sayfanın B37 hücresinden ismini alsın istiyorum. Bunun için bir çok kod denedim ama hata verdi. Yardımcı olabilir misiniz.
Teşekkürler.
Sub verikaydet()
Dim KynkSyf As Worksheet, Hdf As Workbook, HdfSyf As Worksheet
Dim Yol As String, Dosya_Adi As String, sonsatir As Integer
Application.ScreenUpdating = False
Set KynkSyf = ThisWorkbook.ActiveSheet
Yol = "\Yol\" 'Kapalı Dosyanın yolu
Dosya_Adi = "1.xlsx" 'Kapalı Dosyanın Adi
Set Hdf = Workbooks.Open(Yol & Dosya_Adi, False, False)
Set HdfSyf = Hdf.Sheets("Sheet1") 'Kapalı Dosyanın Sayfa adi
sonsatir = HdfSyf.Cells(Rows.Count, "A").End(3).Row + 1
HdfSyf.Range("A" & sonsatir & ":F" & sonsatir).Value = KynkSyf.Range("A37:F37").Value
Hdf.Close True
Application.ScreenUpdating = True
End Sub
Aşağıdaki Hdf.Sheets("Sheet1") kodda Sheet1 kısmını, açık olan sayfanın B37 hücresinden ismini alsın istiyorum. Bunun için bir çok kod denedim ama hata verdi. Yardımcı olabilir misiniz.
Teşekkürler.
Sub verikaydet()
Dim KynkSyf As Worksheet, Hdf As Workbook, HdfSyf As Worksheet
Dim Yol As String, Dosya_Adi As String, sonsatir As Integer
Application.ScreenUpdating = False
Set KynkSyf = ThisWorkbook.ActiveSheet
Yol = "\Yol\" 'Kapalı Dosyanın yolu
Dosya_Adi = "1.xlsx" 'Kapalı Dosyanın Adi
Set Hdf = Workbooks.Open(Yol & Dosya_Adi, False, False)
Set HdfSyf = Hdf.Sheets("Sheet1") 'Kapalı Dosyanın Sayfa adi
sonsatir = HdfSyf.Cells(Rows.Count, "A").End(3).Row + 1
HdfSyf.Range("A" & sonsatir & ":F" & sonsatir).Value = KynkSyf.Range("A37:F37").Value
Hdf.Close True
Application.ScreenUpdating = True
End Sub