سلام دوستان
یک کد VBA برای باز کردن یک فایل اکسل در فایل اکسل دیگر دارم و میخوام چند موردش رو تغییر بدم.
1) وقتی از اکسل 1 فایل رو به اکسل 2 منتقل می کنم در شیتی که قبلا به اسم data ایجاد کردم کپی کنه
2) این کد می خواد که محدوده ای برای کپی انتخاب کنیم ولی من می خوام این کار رو انجام نده و هر چی در فایل اکسل هست رو منتقل کنه
3) در فایل مقصد میگه یک سلول برای مکان کپی انتخاب کن ولی می خوام بدون انتخاب سلول این کار رو بکنه
Dim wkbCrntWorkBook As Workbook
Dim wkbSourceBook As Workbook
Dim rngSourceRange As Range
Dim rngDestination As Range
Set wkbCrntWorkBook = ActiveWorkbook
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel ", "*.xlsx; *.xlsm; *.xlsa; *.xls"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Workbooks.Open .SelectedItems(1)
Set wkbSourceBook = ActiveWorkbook
Set rngSourceRange = Application.InputBox(prompt:="Select source range", Title:="Source Range", Default:="A:C", Type:=8)
wkbCrntWorkBook.Activate
Set rngDestination = Application.InputBox(prompt:="Select destination cell", Title:="Select Destination", Default:="A1", Type:=8)
rngSourceRange.Copy rngDestination
rngDestination.CurrentRegion.EntireColumn.AutoFit
wkbSourceBook.Close False
End If
End With
مرسی از همگی...
یک کد VBA برای باز کردن یک فایل اکسل در فایل اکسل دیگر دارم و میخوام چند موردش رو تغییر بدم.
1) وقتی از اکسل 1 فایل رو به اکسل 2 منتقل می کنم در شیتی که قبلا به اسم data ایجاد کردم کپی کنه
2) این کد می خواد که محدوده ای برای کپی انتخاب کنیم ولی من می خوام این کار رو انجام نده و هر چی در فایل اکسل هست رو منتقل کنه
3) در فایل مقصد میگه یک سلول برای مکان کپی انتخاب کن ولی می خوام بدون انتخاب سلول این کار رو بکنه
Dim wkbCrntWorkBook As Workbook
Dim wkbSourceBook As Workbook
Dim rngSourceRange As Range
Dim rngDestination As Range
Set wkbCrntWorkBook = ActiveWorkbook
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel ", "*.xlsx; *.xlsm; *.xlsa; *.xls"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Workbooks.Open .SelectedItems(1)
Set wkbSourceBook = ActiveWorkbook
Set rngSourceRange = Application.InputBox(prompt:="Select source range", Title:="Source Range", Default:="A:C", Type:=8)
wkbCrntWorkBook.Activate
Set rngDestination = Application.InputBox(prompt:="Select destination cell", Title:="Select Destination", Default:="A1", Type:=8)
rngSourceRange.Copy rngDestination
rngDestination.CurrentRegion.EntireColumn.AutoFit
wkbSourceBook.Close False
End If
End With
مرسی از همگی...