Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64067 Skopiuj do schowka dodanie do kolumny nazwy arkusza
Autor Wiadomość
brachu
Exceloholic


Pomógł: 1 raz
Posty: 220
Wysłany: 07-02-2019, 16:23   dodanie do kolumny nazwy arkusza

Witam

Mam takie macro:

Kod:
Sub OpenCloseWorkbook2()
Dim MonthlyWB As Variant
Dim FileName As String
 
MonthlyWB = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm", Title:="Open Production Report")
 
Workbooks.Open MonthlyWB
FileName = ActiveWorkbook.Name

Range("e2:h2000").Select
Selection.Copy
ThisWorkbook.Activate
Range("e65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlPasteFormats
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
Workbooks(FileName).Close SaveChanges:=False
End Sub


Chciałbym aby też dodawało do kolumny C nazwę arkusza przy kopiowanych danych.

Czy jest na to jakiś fajny sposób ?
ID posta: 362145 Skopiuj do schowka
 
 
dm 
Excel Expert


Pomógł: 402 razy
Posty: 1176
Wysłany: 07-02-2019, 21:13   

Po pierwsze unikaj selectów, zapisz to:
Kod:
Range("e2:h2000").Select
Selection.Copy
tak
Kod:
Range("e2:h2000").Copy


Cytat:
Chciałbym aby też dodawało do kolumny C nazwę arkusza przy kopiowanych danych
zrób tak jak z Filename
Kod:
 shName=ActiveSheet.Name
i wklejasz w wybrane miejsce shName
dm
ID posta: 362168 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe