windows activate

VBA - Kopiowanie stałego zakresu z wielu arkuszy do nowego skoroszytu

A tak trochę od siebie, nie łaska? [syntax=vb]Sub Polacz() Application.ScreenUpdating = False Zeszyt = ActiveWorkbook.Name sciezka = "C:\PlikiExcela\PlikDoImportu.xls" Workbooks.Open Filename:=sciezka Plik = Mid(sciezka, InStrRev(sciezka, "\") + 1) For x = 1 To Sheets.Count Windows(Plik).Activate Sheets(x).Select Range("A1:F1").Select Selection.Copy...

Jak dostosować makro VBA do plików z różną liczbą wierszy?

Poprawiony Twój kod (używając jednej zmiennej 'ow');): [syntax=vbscript]Columns("H:H").Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:= _ "C:\Users\imie.nazwisko\Desktop\WYSYŁKA MASOWA\Lista.csv",...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

[EXCEL] Jak użyć zmiennej dla nazwy pliku w VBA Excel?

Zamiast nazwa = ThisWorkbook.Sheets("zam_od_han... 4).Value // tutaj chciałem przypisac do zmiennej nazwę pliku, jest inna od Application.ScreenUpdating = False // nazwa_pliku ze wzgledu na potrzebny format Set plik = Workbooks.Open(Filename:= _ nazwa_pliku) Sheets("dyl").Select Windows("wzorzec_zamowienia.xls...

[VBA] - Makro do kopiowania danych z innego pliku.

[syntax=vb]Private Sub CommandButton1_Click() Zeszyt = ActiveWorkbook.Name Workbooks.Open Filename:="C:\Users\mm\Desktop\Nowy_fold... Range("A:A").Copy ThisWorkbook.Activate Sheets("Arkusz2").Activate Range("B1").Select ActiveSheet.Paste Workbooks("wsad.xlsx").Close Windows(Zeszyt).Activate End Sub[/syntax]

Dlaczego nowy SSD Goodram Iridium Pro 240GB wyświetla dwa dyski?

Dyski w porządku. Moja rada to utworzenie na SSD-zie "GPT" (bo masz Bios UEFI) i instalacja "czystego" Windows-a. :idea: https://support.microsoft.com/pl-pl/help... https://www.microsoft.com/pl-pl/software...

Jak przyspieszyć i zmodyfikować obsługę skoroszytu w lokalizacji sieciowej i lokalnej

A co niby "innego" takie makro może zrobić? Sub Start() Windows("Interface.xls").Activate Sheets("Arkusz1").Select Workbooks.Open Filename:="\net.CRTCAMRYRWTPPR_ccpMagazy... Windows("Zeszyt.xls").Activate ChDir "\net.CRTCAMRYRWTPPR_ccpMagazyn" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "Zeszyt.xls"...

Excel VBA nie widzi plików .csv w folderze - jak to naprawić?

Jeżeli ten kod też nie zadziała, to szukaj problemu w zabezpieczeniach. [syntax=vb]Sub PobierzCSV() Sheets("Arkusz1").Select Dim Katalog As String, Plik As String, Zeszyt As String, s As String, nw As Long Katalog = ActiveWorkbook.Path & "\" Application.Calculation = xlCalculationManual Application.EnableEvents = False Application.ScreenUpdating...

VBA/EXCELL - Kopiowanie danych z arkusza o nazwie dzisiejszej daty

[syntax=vb]Sub PobierzDzisiejszeDane() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String a = ActiveWorkbook.Name Sciezka = ThisWorkbook.Path p = Date & ".xls" Plik = Sciezka & "\Dane\" & p If Dir(Plik) = "" Then MsgBox "Brak pliku z dzisiejszą datą." Exit Sub End If Workbooks.Open Filename:=Plik Sheets("Dzisiejsze dane").Select...

VBA - Funkcja Dir() nie zwraca nazwy pliku w folderze

Po pierwsze to w pierwszym przykładzie masz błąd w nazwie zmiennej. Po drugie to spróbuj takiego polecenia: [syntax=vbscript]Windows(Dir(SciezkaStar... & "\")).Activate[/syntax] W drugim kodzie analogicznie jak podałem powyżej.

Excel - importowanie wielu plików excel do 1 pliku

Każdy plik ma 1 arkusz Ja widzę 2.;)

Czy jeden klucz Windows może obsłużyć dwa urządzenia?

nie chce też ponosić kosztów związanych z kupnem licencji Pozostaje wyposażenie się w darmowe oprogramowanie. co się stanie gdy komuś zechciałbym udostępnić klucz, ponieważ mało korzysta z komputera Licencja jest jednostanowiskowa, inny użytek jest nielegalny wraz z konsekwencjami (były przypadki blokowania kluczy.) Można rzucić okiem, zwłaszcza na...

Makro dzielące plik na zakładki - błąd przy braku miasta w zestawieniu

Proszę: [syntax=vbscript]Sheets("START").Select Range("B2").Select Wiersz = ActiveCell.Row KOLUMNA = ActiveCell.Column Do While Cells(Wiersz, 3) <> "" plik = Cells(Wiersz, 3) FILTR = Cells(Wiersz, 2) Workbooks.Add.SaveAs Filename:=ThisWorkbook.Path & "\" & plik Windows("DaneScalone.xlsx").Activate KOLUMNA = 4 Do While Cells(Wiersz, KOLUMNA)...

[VBA] Optymalizacja kodu VBA kopiowanie danych z pliku.

Witam, Mam małe doświadczenie w pisaniu makr. Napisałem coś prostego co pozwala mi kopiować dane z pliku x do pliky y zastanawiam sie jednak czy można ten kod jakoś zoptymalizować? a jeśli tak to czy może ktoś mnie pokierować. Dziekuję. [syntax=vbscript]Sub Kopiowanie_Danych_PC() ' ' Kopiowanie_Danych_MC Makro ' ' Application.Calculation = xlManual...

EXCEL - VBA - Przeciąganie funkcji + tabela przestawna

Zmień żeby ostatnia komórkę pobrało np. z kolumny 1 lub najpierw niech wstawi nowe kolumny później OstSpend [syntax=vb] Windows("tabela").Activate Columns("D:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove OstSpend = Cells(Rows.Count, 6).End(xlUp).Row Range("D1") = "KolumnaX" Range("E1") = "KolumnaY" Range("D2:D" & OstSpend).FormulaR1C1...

MS Excell - makro wyszukujące dane w kilku folderach

Otwierając plik i kopiując uzyskałem zgodnie z poniższym, nie wiem jednak jak zmodyfikować aby nie było konieczności wprowadzania danych plików ręcznie: Windows("Lista.xlsm").Activate Windows("Sprzedaz_styczen.xlsx").Activat... Windows("Lista.xlsm").Activate Windows("Sprzedaz_styczen.xlsx").Activat... Windows("Lista.xlsm").Activate Range("A2").Select Selection.Copy...

Excel - VBA, makra, corpo, drukowanie za pomocą makr

Rozwiązałem swój problem w nast. sposób: Sub drukowanieprawidlowe() ' ' drukowanieprawidlowe Makro ' ' Dim i As Integer i = InputBox("Numer wiersza") Workbooks.Open Filename:="C:\Users\Dominik\Desktop\Zesz... Application.Left = 1 Application.Top = 1 Application.Width = 720 Application.Height = 780 Windows("Zeszyt1.xlsm").Activate Cells(i, 1).Select...

Jak skopiować dane z Excela do trzeciego pliku VBA?

Myślałem, że da się zrobić coś w stylu: Windows("*prd*"). Activate lub Windows ("C:\Users\Przyklad\Desktop\Scalanie\" & "prd*" & "/" & " .xlsx").activate.

Excel - Jak stworzyć losowy test z 15 pytań i odpowiedzi?

Moje pierwsze w zasadzie makro VBA w wordzie (pisałem kilka makr w Excelu, ale swój poziom szacuję na podstawowy). Tak więc trochę mojego niechlujnego kodu: Const ilePyt = 50 Const ileOdp = 4 Const pytWTescie = 15 Należy ustawić odpowiednio ilość wszystkich pytań, ilość odpowiedzi na każde z pytań, a także z ilu pytań ma się składać test. Dokument źródłowy...

Windows7 błąd 0xC004E003 podczas próby aktywacji Produktu

http://support.microsoft.com/kb/950755/p... aktywuj telefonicznie http://windows.microsoft.com/pl-pl/windo... Sterowniki z można pobrać z www.asrock.com a płytę pominąć.

[EXCEL] Jak uruchomić makro w tle w Excelu bez przerywania pracy?

Spróbuj wyłączyć odświeżanie: Application.ScreenUpdating=False za linią z Windows(rap).Activate. Włącz na końcu =True Jeśli nie zadziała można przerobić kod tak, żeby nie było potrzeby "biegania" po arkuszach (bez activate, select, etc)... Np fragment z sortowaniem (nie odwołuj się do okna instancji, tylko do konkretów). W przykładzie przypisanie i...

Excel VBA - Kopiowanie arkuszy z listy w arkuszu Podsumowanie

Spróbuj [syntax=vb]Sub Makro_kopiowanie() ' This macro will import a file into this workbook PathName = Range("D3").Value Filename = Range("D4").Value ControlFile = ActiveWorkbook.Name wrs = 5 'nazwy arkuszy od "D5" Workbooks.Open Filename:=PathName & Filename Windows(ControlFile).Activate With Sheets("Podsumowanie") Do While .Cells(wrs, 4) <>...

Makro VBA - Automatyczne odblokowywanie edycji pliku Excel podczas kopiowania danych

Niestety nic nie działa. Prosze o wsparcie. Próbowałem formuł jak poniżej: Jak widzę takie kody to ... Dodaj sobie pętle sprawdzającą i jak coś będzie zablokowane to odblokuje. Coś ala [syntax=vbscript]For Each w In Application.ProtectedViewWindows w.Edit Next Windows("20230725_INT.xls").Activate Application.WindowState = xlNormal Range("A:L").Select...

Windows 10 64bit - Kupno systemu do nowego laptopa

329zł z dużego sklepu: https://www.proshop.pl/System-...Licencj... Dzięki bardzo. A tak przy okazji instrukcja z w/w strony: " Aktywuj klucz licencyjny systemu Windows, wyszukując w menu startowym Windows hasło "Activate Windows" lub "Aktywacja Windows"... Sprzedaje duży sklep poniżej tych 500-700zł. i ta instalacja/procedura nie...

VBA: Błąd przy kopiowaniu danych między arkuszami Excel

Siema, Mam napisane makro vba, żeby kopiowało mi dane z komórki zawartej w aktywnym pliku excel do drugiego aktywnego. Pisałem to na dwa sposoby i za każdym razem wywala mi błąd. Poradźcie proszę. Będę wdzięczny za każdą pomoc! 1. Tutaj wywala błąd - Compile Error: Sub or Function not defined. Sub screen() ' ' screen Macro ' ' Workbook(cale.xls).Activate...

[VBa Excel] - Makro do scalania arkuszy z wielu skoroszytów

Pozwolę sobie wtrącić swoje 3 grosze.;) [syntax=vb]Sub ImportujPliki() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, SN As String Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") With ThisWorkbook While Plik <> "" Set wb = Workbooks.Open(Katalog & Plik) SN = Mid(Plik, 1, InStrRev(Plik, ".") - 1) wb.Sheets(1).Copy...

Makro pobierające dane z pliku - Pobieranie danych z Pliku do odczytu za

Dodano po 23 To już plików historia nie ma?;)

Windows XP - "Niepoprawny klucz produktu" z naklejki

Zaineteresuj sie 76447OEM, drugi post z tego watku -> https://answers.microsoft.com/en-us/wind...

EXCEL - VBA - Automatyczny wybór pliku miesięcznego w Case

: ) ... a z właściwej strony tam zaglądasz ... : ) ? ... np. z ustawieniami "na sztywno": [syntax=vbscript]Sub abc() Dim msc, mscS$, schmt$, otwarty As Object msc = Trim(InputBox("Wprowadź numer miesiąca z przedziału 1-12", "Podaj miesiąc", "1")) msc = Abs(Fix(Val(msc))) If msc < 1 Or msc > 12 Then Exit Sub mscS = Choose(msc, "Styczeń", "Luty",...

VisualBasic - Makro VBA przestaje działać po ponownym otwarciu pliku

Witam, mam pewien problem nagrałam macro w VBA, jednak po zamknięciu pliku i ponownym jego otworzeniu już nie działa. To moje pierwsze pytanie. Kod z nagrania wygląda tak: [syntax=vb] Sub aaaaaa() ' ' aaaaaa Macro ' ' Workbooks.Open Filename:= _ "C:\...\redy\zlaczone.xlsx" Range("A2:H800").Select Selection.Copy Windows("MAKROCopy.xlsm").Activate Range("A4").Select...

Makra - Kopiowanie kolumn z kilku plików do głównego arkusza

Witam Nie znam się zbytnio na Makrach, a postawiłem sobie cel - stworzenie makra.. który nie mogę osiągnąć. Problem polega na tym że mam 9 plików, w którym koledzy wpisują co tydzień informacje. Ja chciałbym co tydzień otwierać swój plik i klikając "AKTUALIZUJ" ściągać informacje jakie oni wpisali w jeden zbiorczy plik. Stworzyłem makro, które to robi...

[VBA-Excel] Deklaracja zmiennej nazwy pliku źródłowego

Windows(strNameNA).Activate

[Excel 2007] - makro do pobierania danych z innych plików *.xlsx

Poprawiłem błąd... [syntax=vb]Sub ImportujPlikizWieluLokalizacji() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, x As Integer, y As Integer, NowyWiersz As Long Dim NazwaPliku As String, Zeszyt As String, i As Integer Dim ArkuszWejsciowy As String, ObszarWejsciowy As String, KolumnaGdzieWkleic As String ArkuszWejsciowy = Sheets("Parametry").Range("B1")...

[Excel] VBA wyszukiwanie wartości komórek i ich zamiana

Tak na szybko masz tu makro, które chyba robi to co chciałeś. założenia - pliki są w katalogu C:\dane - pobierasz nazwę do szukania z komórki B3 - szukasz takiego produktu w kolumnie B - w obu plikach arkusze nazywają się Dane - zakres poszukiwania w kolumnie B jest ograniczony do 30 - wartość dotycząca szukanego produktu jest pobierana z komórki sąsiedniej...

VBA Excel - makro kopiujące kolejno z wielu plików

"Czy można udoskonalić makro" - no jasne że można. Zamiast : Windows("plik_01.xls").Activate Piszesz: Windows(s+".xls").Activate Gdzie s to zmienna typu string do której podstawiasz dowolny tekst z dowolnego źródła (tabeli, arkusza, bazy danych, pliku tekstowego ... co tylko wyobraźnia podpowie).

Win 8 Pro - Orginał Win 8 nie chce się aktywować - klucz używany ?

Aktywuj telefonicznie. http://support.microsoft.com/kb/950929/p... http://windows.microsoft.com/pl-pl/windo...

Excel - wyszukaj pionowo dla tekstu w jednej komorce

Chciałbym wrzucić ten plik na nasz dysk Google Nic, co można powiedzieć. Nie używam dysk Google. że lista.xls zamyka się bez pytania o np zapisanie zmiany Zmiany chranione po zamykani. Jak nie trzeba zamykac, usun to lista.Parent.Parent.Close True skorzystać z czegoś w stylu - Windows("lista.xls").Activate Aktywacja nie jest konieczna, tylko otwarty....

VBA - Przypisanie do zmiennej ścieżki do pliku + nazwa arkusza

Niestety pomysł z odejmowaniem jednego dnia nie sprawdzi się gdyż sobota (zazwyczaj) i niedziela są dniami wolnymi od pracy. Dochodzą przypadki że np we wtorek jest święto i potrzebny jest w środę plik z poniedziałku a nie z wtorku. na forum znalazłem kod [syntax=vb]Sub test() Dim fDialog As Office.FileDialog Dim varFile As Variant Set fDialog = Application.FileDialog(msoFileDialogFile...

Jak napisać program do sortowania danych z plików txt do xls?

Witam poradziłem sobie z VB w Excel Mam tylko jedno pytanie, bo nigdzie nie mogę znaleźć odpowiedzi lub po prostu źle szukam. Program działa tak, że otwiera mi jakiś plik kopiuje dane wprowadza zmiany i zapisuje w formacie xls. Tak jak wspomniałem mam ok 60 plików. Mam problem z tym, że chciałbym, żeby móje makro nie sypało się gdy nie znajdzie pliku...

VBA - pętla dla arkuszy RD1-RD10, kopiowanie komórek do pliku zbiorczego

Dzień dobry. Napisałam (a właściwie wygenerowałam za pomocą rejestrowania makr) kod dla jednego arkusza i potrzebuję, żeby wykonał on się dla kolejnych arkuszy. Chodzi o przekopiowanie wybranych komórek z arkuszy do jednego zbiorczego pliku o nazwie dane. Arkusze mają nazwę od RD1 do RD10, czasami tych arkuszy jest więcej, (mam więcej takich plików)...

Legalność systemów Windows 10 do 400 zł - działa po zmianie płyty głównej?

https://www.windowscentral.com/how-re-ac...

Excel-makro-kopiuj i wklej do nowo utorzonego arkusza jeśli suma >20

... Udao mi si kopiowanie, do pierwszej sumy 20, ale wyrzuca mi Excela jak ma otworzyć nowego Excela :( Pytania / uwagi: [syntax=vba] Sub Kopiuj_wklej_jeśli_20_1() Dim a As Variant 'dlaczego Variant ? Dim p As Long 'dlaczego Long ? Dim n As Variant 'dlaczego Variant ? 'gdzie Suma As CośTam ? '... Windows("Truck.xls").Activate 'po co - nie jest może...

Makro VBA do kopiowania danych z plików Excel: Dane1, Dane2 do Wyniki co piątek

hey dałem sobie rade troche w inny sposób [syntax=vb]Sub kopiowanie() ' ' kopiowanie Makro ' Windows("pierwszy.xlsx").Activate Range("A3:Q10").Select Application.CutCopyMode = False Selection.Copy Windows("KW 47 Zestawienie zbiorcze.xlsm").Activate Range("A1").Select ActiveSheet.Paste Windows("drugi.xlsx").Activate Range("A3:Q10").Select Application.CutCopyMode...

Excel - Automatyczne pobieranie danych z wielu plików i arkuszy

Pobaw się tym. Chyba nie masz problemu, jak skopiować komórkę z pliki źródłowego do docelowego. Jeżeli tak to podpowiedź: [syntax=vb]Sheets(ArkuszWejsciowy).Selec... Range(ObszarWejsciowy).Select Selection.Copy Windows(Zeszyt).Activate Sheets("Import").Select [/syntax] dopisz: [syntax=vb]Sheets(ArkuszWejsciowy).Selec... Range(ObszarWejsciowy).Select p4...

VBA Excel - błąd Metoda pastespecial klasy range przy pierwszym uruchomieniu

Witam, po uruchomieniu poniższego kodu, występuje błąd Metoda pastespecial klasy range nie powiodła się (na etapie pierwszego wklejania). Gdy puszcze drugi raz makro, błąd nie występuje. O co chodzi? ActiveSheet.Name = "dfe.xlsm" Range("b16:b28").Select Selection.Copy Windows("abc.xlsm").Activate Worksheets("1").Activate ActiveSheet.Unprotect Password:="xxx"...

Metoda Select z klasy Range nie powiodła się - makro Excel

Witam, Dziękuję bardzo za podpowiedź. Zrobiłem tak jak Pan sugerował, tylko dołożyłem linię ścieżki do pliku i teraz. Jeśli uruchamiam makro jako makro - działa bez zarzutu. W chwili gdy podpiąłem je pod przycisk ponownie wyskakuje ten sam błąd w piątej linijce kodu: Range("E2").Select Sub CommandButton1_Click() Range("A3").Select Selection.Copy Workbooks.Open...

[VB] Jak napisać makro otwierające pliki z listy w Excelu?

Witam, Proszę o pomoc - jak powinno wyglądać makro czytające (otwierające) kolejne pliki wg listy (tekstowej lub excela - to obojętne). Wiem tylko tyle, że wyrażenie Windows("plik1.xls").Activate trzeba zastapić wyrażeniem Windows(s+".xls").Activate gdzie s to zmienna typu string do której podstawiamy dowolny tekst z dowolnego źródła (tabeli, arkusza,...

VBA Excel makro kopiujace dane z wielu plikow do jednego arkusza

Winna była spacja. Dzięki. Skupiałem się na sprawdzaniu nazwy pliku, sciezki a spacja mi się nie rzucała w oczy. Masakra ... Teraz mam coś takiego : Sub Makro3() ' ' Makro3 Makro ' ' Dim i As Integer For i = 1 To 10 ChDir "D:\wodociagi\dane z ankiet\zbiorcze" Workbooks.Open Filename:="D:\wodociagi\dane z ankiet\zbiorcze\za15.xlsx.xlsx" Dim zbiorcze...

Porównanie i podstawienie wartości w VBA Excel: pesele i daty przyjścia, przeniesienie numeru klasy

[syntax=vbscript]Sub Porownanie() Application.ScreenUpdating = False Set bb = ThisWorkbook Set b = bb.Sheets(1) Set aa = Workbooks.Open(ThisWorkbook.Path & "\a.xlsx") Set a = aa.Sheets(1) owa = Cells(Rows.Count, "D").End(xlUp).Row Windows(bb.Name).Activate owb = Cells(Rows.Count, "E").End(xlUp).Row For x = 2 To owb s = Application.Match(Cells(x,...

Exvel VBA Wyszukaj.Pionowo - Wyszukaj pionowo w excelu dla całej kolumny

hmm na linii Windows("PickerBuilder.xlsm").Activate pojawia mi się "Runtime error 424, Object required".

vba - Makro zatrzymuje się na 467 wierszu przy kopiowaniu arkuszy

Hey Proszę o pomoc lub poradę co jest nie tak. Mam na dysku arkusz do którego poprzez makro lądują dane ( tylko do pierwszego wiersza (A1:X1) . Każdy nowy zestaw danych leci do osobnego arkusza w tym skoroszycie teraz mam ( 480 arkuszy ). Inny arkusz kopiuje te wiersze wkleja jeden pod drugim. Czyli po skopiowaniu powinienem mieć 480 wierszy pluj wiersz...

VBA Excel - Pobieranie ścieżki pliku oraz podgląd w oknie

[syntax=vb]Private Sub CommandButton1_Click() Dim wb As Workbook Dim wbOtwarty As Boolean Dim wbNazwa As String wbOtwarty = False wbNazwa = "excel.xls" For Each wb In Application.Workbooks If wb.Name = wbNazwa Then wbOtwarty = True End If Next If wbOtwarty = False Then MsgBox "Otwórz plik (..\excel.xls)!", vbOKOnly Exit Sub End If If TextBox1.Text =...

VBA-Excel kopiowanie danych z Excela do z formularza i z powrotem

Napisanie takiego makra nie jest czymś szczególnie trudnym, tylko ono będzie się dość długo wykonywać. Moja propozycja zmierzała do przyspieszenia tego. [syntax=vbnet]Sub kopiowanie2() ' ' kopiowanie Makro ' Dim r As Range Dim wkcalc As Worksheet Application.ScreenUpdating = False ' Workbooks.Open Filename:= _ "U:\Nowy folder\Arkusz B.xlsx" Set wkcalc...

Excel: Makro do wyszukiwania po fragmencie tekstu i zmiany wartości ujemnych na dodatnie

Wartości ujemne: Najlepiej skorygować przy imporcie, wystarczy kilka poprawek w istniejącym makro[syntax=vb]Sub kopiuj_z_pliku() Dim kom As Range Windows("plik importu.xlsm").Activate 'wskazane wybranie właściwego arkusza Range("A2:K1000").Select Selection.Copy Windows("rozliczanie palet.xlsm").Activate Sheets("Import").Activate 'dodałem Range("A3").Select...

Laptop Presario CQ62 Notebook PC (SYSTEM WINDOWS 7)

Activate Windows now Do użycia.

VBA - Skopiowanie kilku skorosztytow do jednego ( tylko skoroszyty z danymi).

[syntax=vb]Sub ImportujPliki() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, Zeszyt As String Zeszyt = ActiveWorkbook.Name Katalog = CreateObject("WScript.Shell").SpecialFol... & "\Dane\" Plik = Dir(Katalog & "*.xls*") While Plik <> "" Workbooks.Open FileName:=Katalog & Plik Sheets("1").Select...

VBA - Jak scalić kolumny z wielu skoroszytów do jednego pliku?

Najprościej policzyć ilość kolumn/wierszy. Usuń (zaapostrofuj) przed pętlą przypisanie zmiennej 'ObszarWejsciowy', podmień zawartość pętli i wypróbuj: [syntax=vbscript] Workbooks.Open FileName:=Katalog & Plik Sheets(ArkuszWejsciowy).Select kolumn = Range("A1").End(xlToRight).Column wierszy = Range("A1").End(xlDown).Row ObszarWejsciowy = Range(Cells(1,...

Excel - Wyszukaj pionowo - makro zwraca błędne wartości po uruchomieniu

Witam, Nagrałem makro w którym wyszukiwane są dane z innego pliku za pomocy funkcji wyszukaj pionowo. Podczas nagrywania funkcja znalazła dane i wstawiła do innego pliku, po zapisania makra i ponownym uruchomieniu formuła zwraca zupełnie inne wartości. Może ktoś sprawdzić kod i powiedzieć co jest źle? Poniżej przesyłam kod: [syntax=vb]Windows("1.xls").Activate...

Automatyczna wymiana arkuszy pomiędzy 2 skoroszytami

W moim przypadku "Wrzesień.xls". A ja bym chciał, by Page kopiowane było z równolegle otwartego excela o dowolnej nazwie Możesz odwołać się do numeru skoroszytu. Excel Analityczny oraz druga kopia z Nowym miesiącem do analizy. Czyli jak otworzysz pierwszy Analityczny a drugi "kopia z Nowym miesiącem do analizy." to wtedy zamiast "Windows("Wrzesień.xls").Activate"...

VBA - kopiowanie danych z kilku skoroszytów do jednego

Witam, Jeśli chodzi o makra i VBA jestem laikiem i moja wiedza w zasadzie kończy się na rejestrowaniu makra. Mam oto takie makro, które zarejestrowałem i zaczytuje ono dane z 3 przykładowych skoroszytów do jednego. Makro wykonuje się na otwartych plikach. [syntax=vb] Sub ROBOCZO() ' ' ROBOCZO Makro ' ' Windows("KGP12017 - Raport rozliczenia - 05.xlsx").Activate...

Excel 2010 - Makro do kopiowania danych z wielu plików do jednego pliku B

Wygląda to w ten sposób, że 1. Otworzyłem plik B 2. Otworzyłem plik A1 3. Zaznaczyłem obszar danych i skopiowałem 4. Wkleiłem do pliku B i kliknąłem kolejną komórkę w wierszu poniżej 5. Powtórzyłem dla plików A2-A4... [syntax=vb]Sub Makro2() ' ' Makro2 Makro ' ' ChDir "C:\Documents and Settings\Wojtek\Desktop" Workbooks.Open Filename:= _ "C:\Documents...

EXCEL - makro - kopiowanie zaw. kom. do innego pliku w pętli

Witam, łamię sobie głowę jak napisać makro, aby kopiowało mi kolejno komórki z jednego pliku do innego. Otóż w pliku Zeszyt1 mam kolumnę cyfr A1:A100. W pliku Zeszyt2 mam w komórce D1 formulę przykładowo =C1*100. Potrzebuję utworzyć takie makro, które pobierało by kolejno wartości z Zeszytu1 kolumny A1:A100 i kopiowało do pliku Zeszyt2 komórka C1. Następnie...

Serwer Windows 2016 - zdalny pulpit po sieci wewnętrznej LAN

A aktywowałeś: https://docs.microsoft.com/en-us/windows... ?

[VBA] - zaznaczenie niezależnych komórek do innego pliku xls

hmmm niestety kody zarówno od Marcina, Adama ani od mah111 nie działają, być może wynika to innych linijek kody. Tak czy inaczej dziękuję za próbę pomocy. Zdaje sobie że moja wersja jest mocno nieprofesjonalna ale program wykonuje to co chciałem. Poniżej zamieszczam: kod: Workbooks(nazwa & ".xls").Activate i = 10 For i = 50 To...

Jak wyłączyć Msgbox w Excel VBA?

PRL - jeżeli to o zakładaniu nowego konta było do mnie, to nietrafione. To jest pierwsze. Nie jestem znawcą VBA - makro stworzyłem poprzez nagrywanie. Okienka o których mowa wyskakują z automatu - moje makro otwiera cztery pliki, każdy obrabia, wyniki wrzuca do piątego, cztery zbędne potem zamyka - bez zapisywania, bo potem miałbym błędy przy kolejnym...

Optymalizacja kodu VBA do importowania danych z wielu plików Excela

(at)ElektrodaBot Popraw poniższy kod, żeby działał szybciej. [syntax=vbscript]Sub ImportujPlikizWieluLokalizacji() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, x As Integer, y As Integer, NowyWiersz As Long Dim NazwaPliku As String, Zeszyt As String Dim ArkuszWejsciowy As String, ObszarWejsciowy As String, KolumnaGdzieWkleic...

Excel VBA: Jak napisać makro działające na dwóch otwartych plikach?

Przykłady które podałeś, otwierają zeszyt2, wpisują wartość, zapisują i zamykają zeszyt2. Moje pliki są zawsze otwarte i nie chcę ich zamykać, chce jedynie aby po włączeniu makra w zeszyt1, fokusował mi się zeszyt2 tam wykonywało się makro, po czym fokusował się zeszyt1 Gdyby oba dokumenty otwarte były w jednym pliku wówczas wystarczyłoby makro w stylu:...

Jak usunąć wiele kolumn po nazwach nagłówków w VBA?

Jeśli będę mieć otwarty plik o nazwie dokumenty2025.xls to poniższy kod również zadziała. Czyli chodzi mi o to żeby była brana pod uwagę tylko nazwa dokumenty a rok ma nie być brany pod uwagę. W poniższym kodzie w miejsce roku wstawiłem gwiazdkę ale to nie działa. On Error Resume Next If Windows("dokumenty*.xlsx").Activate = False Then MsgBox "Not open...

Windows XP - PC zwalnia po kilku minutach od uruchomienia, restart pomaga

Widac to w logach: Error: (02/26/2016 11:13:17 PM) (Source: Windows Product Activation) (EventID: 1009) (User: ) Description: You have not activated Windows within the grace period. To activate Windows, contact a customer service representative by telephone. Wyglada na to, ze bedziesz musial wprowadzic klucz.

Kopia arkusza z jednoczesną - zmianą formuł na wartości

Witam! Nie zaglądałem do Twojego Skoroszytu, ale na podstawie przedstawionego kodu widać, że jest on nieprawidłowy dla pożądanego zadania. Spróbuj raczej kodu typu: [syntax=vbscript]Range("A1:F17").Select ' zaznaczasz obszar Arkusza1 Skoroszyt1 do skopiowania Selection.Copy Windows("Skoroszyt2.xlsx").Activate ' otwierasz istniejący drugi skoroszyt Sheets("Arkusz1").Select...

VBA Kopia zakresu danych tylko dla wierszy <>"" w konkretnym prz

Ostatecznie zrobiłem coś takiego i wygląda, że działa - muszę to jeszcze trochę po testować ale jak narazie wygląda ok. Chyba, że może coś jeszcze można tu usprawnić/ ulepszyć? [syntax=vbscript] Sub Makro2() ActiveSheet.ListObjects("Tabela1").Range... Field:=1, Criteria1:= _ "<>" Range("Tabela1").Select Selection.Copy Workbooks.Open fileName:="\\D:\pliki\plik...

Jak zwiększyć ilość danych do pobrania w makro VBA z 3 do 4 lub 5?

Problem jest kiedy zamiast kiedy chce zwiększyć ilość danych do pobrania z 3 do 4 lub 5 Zmienna "r" to zmienna "pośrednio" wskazująca ilość "pobieranych danych". Jest to numer wiersza, od którego zaczyna się pobieranie danych z zeszytu "Dane.xlsx". Naturalnym jest to, że jeśli przy 20 wierszach, zaczniemy pobierać je od ... np.: r = 10 ... to pobierzemy...

VBA – jak połączyć dane z dwóch plików na podstawie nr_id, nr_konta i daty?

[syntax=vb]Sub Polacz() Application.ScreenUpdating = False Dim p1 As String, p2 As Workbook p1 = ThisWorkbook.Name Dim Plik As String, Katalog As String Katalog = "C:\PlikiExcela\" Plik = "Zeszyt2.xlsx" Set p2 = Workbooks.Open(Katalog & Plik) ow2 = Cells(Rows.Count, "A").End(xlUp).Row Windows(p1).Activate ow = Cells(Rows.Count, "A").End(xlUp).Row For...

Odwrócenie działania wejścia słuchawkowego w Dell Vostro 15 3510 - dźwięk z miksera na mini jack

W tym IN1 to L IN2 to R, a tak naprawdę to w komputerze (programie) ustawiasz jak ma być. Możesz kupić coś bezobsługowego w typie np. ESI U24XL, ale w Behringerze masz przełącznik LIN/MIC i regulację poziomu, dlatego może być bardziej uniwersalny. Co do jednokanałowego to przeczytaj UM2 Win 10 Stereo input solved I'm surprised this problem persisted...

EXCEL - Importowanie danych z wielu plikow excel w roznych folderach sieciowych

[syntax=vb]Sub ImportujPliki() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, Arkusz As String, x As Integer, k() As String Dim lw As Long, nw As Long Sheets("Sciezki").Select lw = Cells(Rows.Count, "A").End(xlUp).Row ReDim k(lw - 1) For x = 0 To lw - 1 k(x) = Cells(x + 1, 1) Next Sheets("Import").Select nw = Cells(Rows.Count,...

VBA Excel - Kopiowanie danych między plikami o zmiennej nazwie i zawartości

Witam Nie ukrywam że nie znam się na VBA a problem który przedstawie zapewne jest banalnie prosty jednak nie znalazłem podobnych tematów Zadanie Posiadam dwa pliki Exel (Ewidencja jedynek i formatka klienta). Chciałbym przekopiować wybrane dane z formatki klienta do pliku ewidencja jedynek na koniec wolnego wiersza jednak plik formatka będzie zmieniał...

VBA - Optymalizacja długo wykonującego się makra

Witam, Napisałem właśnie swoje pierwsze makro, ale jak widać żaden ze mnie programista. Makro działa długo, a na razie tylko 2 pliki podpiąłem pod nie. Czy jest ktoś w stanie pomóc mi tak, żeby działało szybciej, a przy tym żebym się połapał o co chodzi?:) Chodzi tu generalnie o to, żeby kopiowało z każdego pliku i każdego arkusza w każdym pliku wszystkie...

Windows XP Professional – brak ID instalacji, aktywacja niemożliwa po wymianie dysku

Zadzwoń na infolinię i wyjaśnij jaka jest sytuacja. Konsultant powinien wiedzieć, jakie mogą być ewentualne przyczyny i rozwiązanie (bądź stanowisko firmy Microsoft ;)). System instalowany z płyty dołączonej do laptopa, czy z "jakiegoś" XP Pro? Czasem zdarza się, że wersja z płyty nie pasuje do klucza. Wtedy albo wywala się przy wpisywaniu klucza (nieprawidłowy...

Excel VBA - Błąd w Range(Cells) przy formatowaniu daty

Sub GetAUM() Dim m As Long Dim LastRowDB As Integer Dim LastRow As Integer Dim FirstRow As Integer Dim i As Integer Dim n As Integer Dim Col As Variant Dim ColSet As Variant If ActiveWorkbook.ReadOnly Then MsgBox "Nie masz uprawnień do modyfikacji tego pliku. Procedura zakończona.", vbInformation Exit Sub Else Windows(WbAuto).Activate Sheets(ShAUMdb).Select...

Excel - jak wyszukać i zliczyć dane z wielu skoroszczytów w jednym katalogu?

Popatrz na makro z załącznika i pobaw się: [syntax=vb]szt = Application.Sum(Range(Cells(11, 9), Cells(ow, 9))) kpl = Application.Sum(Range(Cells(11, 10), Cells(ow, 10))) Windows(Zeszyt).Activate Sheets("Import").Select Cells(NowyWiersz, 1) = szt Cells(NowyWiersz, 2) = kpl [/syntax] P.S. Chcesz sumować wszystkie WZ z każdego pliku do jednej wartości,...

[Excel] Makro - kopiowanie tabeli z kilku plików do jednego

Witam ponownie Dzisiaj proszę o pomoc w zwiazku z tematem, który czesciowo rozwiazalem. Mam kilkanascie plikow o nazwie: litera alfabetu.xlxs, czyli: a.xlxs, b.xlxs, ... W nich sa zapisane wartosciami 3 kolumny: A B C Z tych kolumn potrzebuje skopiowac kolumny B i C (jedno pod drugim)do nowego pliku, w ktorym mam przycisk i do niego przypisane makro....

[Excel] - makro kopiowanie z komórki z jednego Zeszytu do drugiego

Mam dwa zeszyty excel, jeden jest bazą z jakimiś danymi a drugi jest eksportowany z jakiegoś programu. Mój cel to skopiować z eksportowanego pliku dane do zeszytu z bazą. Z tym że eksportowany plik posiada komórki w których dane są udzielone enterem(może to nie chr10 ale makro tak wypisuje nie wiem) tzn. alt+enter, a ja chce z tej komórki pobrać zawartość...

[Visual Basic] Makro Office 2003 nie działa z Office 2007

A czy do tego momentu makro wykonuje kolejne polecenia? Uruchom krokowo w edytorze (klawisz F8. Podmień może Windows(nazwa_pliku).Activate na Documents(nazwa_pliku).Activate W nawiasach kwadratowych jest tylko informacja, która nie wpływa na nazwę pliku...

Jak zamknąć pliki Excel w makro bez pytań o zapis i schowek?

Można nagrać makro Sub Makro1() ' ' Makro1 Makro ' ' Workbooks.Open Filename:="C:\Users\Adam\Do... Range("A1:A3").Sel... Selection.Copy Windows("Zeszyt3").Act... Range("A1:A3").Sel... ActiveSheet.Paste End Sub I nieco je zmodyfikować Sub proba()...

Błąd aktywacji Windows 8.1 Pro 64-bit, kod błędu 0x8007267C - jak naprawić?

Np.: https://support.microsoft.com/pl-pl/kb/2... http://answers.microsoft.com/en-us/windo... Zakładam, że skoro język polski Panu kłopoty sprawia (co najmniej w piśmie), to z angielskim nie powinno być problemu. Zwłaszcza, że wystarczy...

Excel 2003 VBA - Jak sprawdzić istnienie pliku na serwerze przed makrem?

Witam mam działające makro które pobiera dane z serwera (wycinek kodu) Workbooks.Open Filename:="http://xxxxx.pl/... Windows("dane.xls").Ac... Sheets("Arkusz1").Sele... i chodzi o to żeby przed wykonaniem makra najpierw został sprawdzony url czy jest tam baza dane.xls (jeżli nie ma to wiadomo...

Excel - makro kopiujące kolumnę z pominięciem pustch komórek do nowego pliku

W tym przykładzie (pobrano z http://www.elektroda.pl/rtvforum/topic14... [syntax=vb]Sub Makro3() 'polecenie tworzące nowy plik Range("A1:U37").Select Range("U37").Activate Selection.Copy Windows("plik.xls").Activate ActiveWindow.SmallScroll Down:=-6 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...

VBA - kopiowanie danych do arkusza z innej lokalizacji

Robie tak jak mówisz i otrzymuję coś takiego Sub Makro3() ' ' Makro3 Makro ' ' Range("A2:F2").Sel... Range(Selection, Selection.End(xlDown)).Selec... Selection.Copy Windows("Zeszyt1.xlsm")... Range("A2").Select ActiveSheet.Paste End Sub

Aktywacja Windows Server 2003 w 2019 - czy to możliwe? [Legalna kopia]

Tak. W wypadku jakich problemów proszę rzucić okiem np. na ten: https://support.microsoft.com/pl-pl/help... tekst. Tu: https://support.microsoft.com/pl-pl/help... zaś jest ciut informacji dot. tego, kóre...

Excel - Pobieranie danych z zamknietych plików z uzwględnieniem daty

Cześć Potrzebuję utworzyć takie makro które będzie kopiowało dane z podanego zakresu z innego skoroszytu do mojego ale z uwzględnieniem daty tj. od dnia dzisiejszego do 2 dwóch dni wstecz. Na chwile obecną mam taki kod ale on kopiuje cały zakres. Proszę o pomoc. Application.ScreenUpdating = False Workbooks.Open Filename:="F:\ATS\Ats 1.xlsx" Sheets("Spakowane").Select...

[Excel, VBA] kopiowanie danych z wielu plików do jednego zbiorczego

[syntax=vbscript]Sub ImportujPlikizWieluLokalizacji() ' Plik do którego importujemy musi zawierać arkusz 'Import', gdzie importujemy dane ' oraz arkusz 'Paramety', gdzie: ' w kolumnie A umieszczamy pełne nazwy ścieżek, np. C:\PlikiExcela\, \\NazwaKomputera\UdostepnionyUdzial\, ' w komórce B1 - nazwę arkusza wejściowego, np. Arkusz1, ' w komórce C1 -...

Jak naprawić skojarzenia plików exe na laptopie Toshiba z Win7?

Spróbuj tak: 1. Open Command Prompt by typing command in RUN dialog box. 2. Now provide following command: cd\windows 3. It'll activate Windows folder. Now provide following command to open Registry Editor: regedit 4. Now goto following key: HKEY_CLASSES_ROOT\.exe In right-side pane, change value of Default key to exefile 5. Now goto: HKEY_CLASSES_ROOT\exefile\shell\open\com...

VBA - automatyczne uzupełnianie nazwy pliku z miesiącami (nazwapliku_miesiąc)

Oświeciło mnie. Można to zrobić w prostszy sposób. Jeszcze raz to opiszę, mam dwa otwarte pliki, w jednym pliku jest to makro i nazwa tego pliku się zmienia natomiast ten drugi plik ma stałą nazwę więc może ona być na sztywno. Pomyślałem że można po prostu zastosować coś w stylu ThisWorkbook.Activate dla pierwszego pliku. Obecnie kawałek kodu wygląda...

VBA Excel - import wybranych plików *.dat do excela

Po mojemu powinno działać coś takiego (nie testowane)[syntax=vb]Sub Przycisk1_Kliknięcie() Dim path1 As String, path2 As String, plik As String Dim folder As Object, pfolder As Object Dim dta1 As Date, dta2 As Date, nazwaMin As String, nazwaMax As String Application.ScreenUpdating = False path2 = "\\Serwer\test" Set folder = CreateObject("Scripting.FileSystemObject...

Excel - makro - wstawianie wierszy jeśli suma>20

Udało mi się zrobić coś takiego i wstawia wiersz tak jak chcę. Zmieniłam jednak zakres n do 200, bo nie za bardzo wiem jak zrobić do pierwszej pustej :( Dodano po 5 Chyba się udało. Tak działa poprawnie [syntax=vbscript]Sub Wstaw_wiersz_jeśli_20() Dim p As Long Dim n As Long Windows("Truck.xls").Activate Sheets("AERO").Select p = 16 Suma = 0 Range("P1").Select...

Jak skopiować numery z pliku 1.xls do 2.xls od ostatniego numeru?

Tamto działa. Ale miałem błąd jeśli arkusz2 był pusty (a tak też może się zdarzyć) więc dodałem warunek, że jeśli pusta to cała kolumna, to kopiuje całą kolumnę, ale też coś nie działa... Sub Makro1() If (Range("A:A") = "") Then Sheets("Arkusz2").Rang... = Sheets("Arkusz2").Rang...

Jak napisać makro do kopiowania wierszy z plików xls zabezpieczonych hasłem?

Niestety ostatnie makro nie daje żadnego efektu końcowego. Jedyny problem jak przesunąć miejsce wklejania o jeden w dół. [syntax=applescript]With ActiveWorkbook Range("A2:D2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("Suma.xlsx").Activate 'tutaj trzeba by dodac zeby wybieral komorke pod ostatnia niepusta komorka kolumny...

Lenovo U310 - Brak połączenia WiFi po wymianie dysku na SSD i karty sieciowej

Znasz trochę angielski? Na necie jest sporo o tym modelu i jego problemach z wifi. https://forums.lenovo.com/t5/Lenovo-U-an... Zwróć uwagę na post użytkownika 'Nizmo6'. On tam wyjaśnia jak pozbyć się dokładnie takiego problemu jaki masz Ty. Podobno sprawa jest spowodowana aplikacją lenovo energy managment....

[Excel] Wyszukiwanie jednej wartosci w kilku plikach

Witam. Chciałbym stworzyć wyszukiwarkę produktów. Na razie korzystam z mało ciekawego rozwiązania. Wyszukuje produktu po ID za pomocą funkcji podaj.pozycje w innym pliku. Następnie za pomocą makra wyszukuje dany wiersz i kopiuje cały do arkusza. Niestety za każdym razem muszę modyfikować funkcję podaj.pozycję zmieniając nazwę pliku i skoroszytu. Plik,...

M.Office - jak zrobić makro które tworzy nowy plik .xls

Witam, Potrzebuję napisac makro ktore: 1 - stworzy nowy plik excela np. na dysku D:/ o nazwie np. "plik" 2 - z pliku z ktorego wykonuje makro, skopiuje zawartość arkusza (tylko wartosci i formaty), do nowo utworzonego pliku 3 - (ewentualnie zmieni nazwę arkusza z arkusz1 na "tabela" Początek mam taki, ale nie wiem jakie polecenie tworzy nowy plik: Sub...

EXCEL - Pobieranie danych z pliku TXT w tym samym katalogu.

Hejka, Dzięki za odpowiedź! Przyznam, że ogarniam teraz kilka rzeczy na raz ale postaram się wdrożyć :) 1. Generalnie nie ogarniam programowania w VBSie (zakładam, że to co dograło makro to banał gdyby robić to z palca acz... nie robiłęm tego wcześniej). Poczytam w wolnej chwili a potem dopytam :) 2. Tak jak w 1... pętlę będę tu pisał pewnie tydzień...