seckinb
Altın Üye
- Katılım
- 9 Aralık 2018
- Mesajlar
- 363
- Excel Vers. ve Dili
- Excel 2019 - 32 bit TR
- Altın Üyelik Bitiş Tarihi
- 10-06-2024
Merhaba,
değişkenim 2 olduğunda F2 hücresindeki adlandırmayı saveas özelliği ile dosyanın adına verip kapatmasını istiyorum
F & var olarak değişkeni tanımladım.
bunu string haline getirdim.
filename:= 'e yazdım. lakin bir türlü sonuç alamıyorum. saveas de takılıyorum.
değişkenim 2 olduğunda F2 hücresindeki adlandırmayı saveas özelliği ile dosyanın adına verip kapatmasını istiyorum
F & var olarak değişkeni tanımladım.
bunu string haline getirdim.
filename:= 'e yazdım. lakin bir türlü sonuç alamıyorum. saveas de takılıyorum.
PHP:
Sub yeni()
fname1 = Application.GetOpenFilename("Excel Files (*.xls*), *.xlsm", , "yeni - hedef dosyayı seçelim")
If fname1 = "False" Then Exit Sub
Dim VAR As Double
Dim sayi As String
Dim liste As Workbook
Dim hiper As Worksheet
Dim i As Byte
Dim wbstring As String
Dim FC As String
Set w3 = Workbooks.Open(fname1)
spath = ThisWorkbook.Path
sayi = "2"
ac = "a" & sayi
bc = "b" & sayi
cc = "c" & sayi
FC = "f" & sayi
wbstring = Range(FC).Text
'adı
Windows("hiper.xlsx").Activate
Worksheets("hiper").Select
Range(bc).Select
Selection.Copy
w3.Activate
Worksheets("Kimlik").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
w3.Worksheets("Formlar").Select
w3.SaveAs filename:=wbstring
w3.Close 0
End Sub