Witam! Możesz wykorzystać kod: :spoko: [syntax=vbscript]Public Sub zapisz() Dim Wb_Name As Variant Wb_Name = Application.GetSaveAsFilename If Wb_Name <> False Then ActiveWorkbook.SaveAs Filename:=Wb_Name End If End Sub [/syntax]
Jaka wersje Excel ? Jaky komunikat?
[syntax=vbscript]Sub PDFy() s = "C:\PlikiPDF\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=s & "Excel.pdf" Set Wrd = CreateObject("Word.Application") a = s & "Excel.pdf " For x = 1 To 2 Set Doc = Wrd.Documents.Open(s & x & ".docx") p = s & "Doc" & x & ".pdf" Doc.SaveAs p, 17 a = a & " " & p Doc.Close Next Wrd.Quit q = Shell(s & "pdftk.exe...
Może tak? Private Sub CommandButton14_Click() Dim newFile As String, fname As String fname = "nowy plik" newFile = fname sFName = Application.GetSaveAsFilename If sFName <> False Then ActiveWorkbook.SaveAs Filename:=fname End If End Sub
Podmień na [syntax=vbscript]NowaNazwa = ThisWorkbook.ActiveSheet.Range("A1").Val... & ".xlsm"[/syntax]
[syntax=vbscript] Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _ (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Const MAX_PATH As Long = 260 '~~> Change this where and how you want to save the file Const FlName = "C:\MyWorkbook.txt" Sub Sample() Dim tmpFile As String Dim MyData As String, strData()...
[syntax=vbscript]Workbooks.Open ("C:\Users\Fransf\Desktop\TESTY\Klienci\... & nazwaklienta & ".xlsx")[/syntax]
W której komórce masz datę i w której kolumnie w pliku csv jest data do porównania? Dam Ci przykład. Jeżeli w komórce A1 jest data i chcesz ją porównać z datą, która jest w pliku csv, w kolumnie 3 (na trzecim miejscu po średniku), to: [syntax=vb] If Cells(x, 1) = a(2) Then Cells(x,2) = a(3) End if[/syntax] Rozumiesz powyższy zapis?
Dobra, więc tak. Do Excela nie zapiszesz, skoro nie wiesz jak wykonać taką operację. Potrzeba zewnętrznych płatnych bibliotek, żeby zapisać plik w formacie Excela, ewentualnie jest wymóg, żeby na komputerze z tym programem był zainstalowany Excel - to się da. Ale... Możesz zapisać po prostu plik tekstowy w formacie CSV. A w jaki sposób? var lines =...
arkusz i zapisał go w tym samym skoroszycie ale pod nazwa wzięta z komórki. Następnie zapisał by plik w określonym miejscu z nazwa rownież z określonej komórki. Napisz do wyjaśnienia adresów tych komórek. Ponadto sciezku dla zapisu Dodano po 1 [syntax=vb] Sub Kolejny_dzen() Sciezka = "D:\tmp\" '- to dopasuj do swoich potreb plik = Sciezka & Format(Int((Date...
Przeciez masz komunikat ze jest tam Project VB Nie mam 2013, zrob zrzut ekranu VBA edytora
[url=https://docs.microsoft.com/en-us/of...
Nie precyzujesz co ma być zapisane w nowym pliku. Zakładam, że arkusz "dane". Wklej kod do modułu standardowego, zdefiniuj ścieżkę zapisu i podepnij pod przycisk [syntax=vb]Sub Zapis() sc = "C:\" 'wpisz path jako string, koniecznie z ukośnikiem na końcu nazwa = Range("B1") If Cells(1, 2) & Cells(2, 2) <> Empty Then With Sheets("dane2") ostWrs...
Witam np tak [syntax=vbscript] Range("B1") = Me.ComboBox1.Value If OptionButton1.Value = True Then Range("B2").Value = "tak" [/syntax]
Narzędzia -> Opcje -> [Zapisywanie] -|/|Zapisz informacje niezbędne do odcztania pliku co |_| min Pozdrawiam Lt.
Jaki komputer?
[syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then w = Target.Row ok = Cells(w, Columns.Count).End(xlToLeft).Column nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Range(Cells(w, 1), Cells(w, ok)).Copy Destination:=Range("A" & nw) Cancel = True End If End Sub [/syntax]
Nagraj sobie makro zapisywania. Poniżej zarejestrowane (bez korekty) dwa: "Zapisz jako" oraz Ctrl+s (zwykłe zapisz) http://obrazki.elektroda.pl/3841968300_1... i wybierasz z listy. Aby oprogramować komórkę/zakres potrzebujesz procedury zdarzeniowej [url=http://dzono4.w.interiowo.pl/kurs/d... Tu należy warunkowo wywołać...
... efekt istnieje tylko w office 2003 ... Pytanie skąd się wziął ? Domyślnie w 2003 standardowa szerokość kolumn to 8,43 a tu skądś wzięło się 0. Sprawdź swoje makra, może one coś gdzieś rzeźbią, samo się to nie zrobiło, a szkoda by było stracić wyniki swojej pracy, przez być może drobnutki błąd w zapisie kodu.
Tak to wiem ale nie mam zielonego pojęcia od czego zacząć z pisaniem takiego kodu. Excel będzie uruchomiony ciagle bo będzie używany jako przekazywanie statystyk na monitor tylko chciałbym żeby w między czasie tam przykładowo o godz 23 robił sobie taki jakby dobowy zapis.
Co Ty się tak uczepiłeś ChDir i ChDrive? Masz Localization = ThisWorkbook.Path i tego się trzymaj i tę zmienną użyj do zapisu pliku dokumentu.
Ustawienia lokalne są poprawnie skonfigurowane To jeszcze sprawdź "obracając" zapis z No niestety nie pomogło :-(
ma byc xlTextPrinter(=36) lub xlPrinter(=2, jak w makro)? Dodano po 4 With ActiveWorkbook .Unprotect Workbook to nie jest arkusz, tylko skoroszyt Dodano po 5 P.S. xlPrinter zapisze plik .SLK, nie .PRN
W załączniku jest pokazany przykład. Zależy mi na takim zapisie adresu komórki, aby dla kolejnego parametru np. K=3,4,5,6,7 do zakresu komórek B2:B5 wkopiowywano by kolejno zawartość komórek C2:C5, D2:D5, … ,G2:G5. Prosiłbym o opis jak działa procedura (jak jest skonstruowany adres komórki), a nie tylko suchy zapis.
Zrobiłem tak, jak to zwykle robią zawodowcy ;) 1. Nagrałem sobie makro przy zapisywaniu. Wyszło takie coś: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Adam\Desktop\Zeszyt1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=...
To wina Office, zobacz trzeci post w tym watku: http://answers.microsoft.com/en-us/offic... Office podczas zapisywania tworzy nowy plik zamiast modyfikowac otwarty.
Pewnie dlatego, że w matematyce zapis X =X +1 jest błędny.:)
Jeśli podasz liczbę jako tekst, to nie zmieni jej na inny zapis. Przed liczbą wpisz apostrof.
Widzę, że lubisz chyba jak się Ciebie ciągnie za język. :D Chętnie bym się w tym temacie doedukował jak coś wskażesz. Jak dla mnie śp. pamięci "kozak vba" "Charles Pearson" http://www.cpearson.com/excel/optimize.h... ps widzę że nie którzy stosują zapis np. [A1] łatwiejszy zapis ale jak piszą wolniejszy.
Do tego nie jest Ci potrzebna żadna pętla. Najpierw musisz sobie określić pierwszy wolny wiersz w arkuszu Inkrementacja jest zbędna przecież (kod pod przyciskiem)... 1. Wywal pętlę. 2. W miejsce a=a+1 wpisz powyższą linię i ciesz się działaniem.
Chodziło mi o wyświetlenie okna wyboru. Chciałbym tak samo tylko w stronę zapisu.
Musisz zadecydować kiedy data ma być zapisywana do komórki. Komórka z datą ani nie może być wynikiem funkcji, ani działania makra. To Ty masz zdecydować jakie zdarzenie zapisze datę prania w kolumnie z datami prania. a mi zależy na dniu, w którym kod kreskowy będzie zeskanowany No właśnie do tego zdarzenia dodaj zapis daty prania...
Przykład korzystania z okna zapisywania z filtrem ZapiszJako = Application.GetSaveAsFilename(fileFi... Excel (*.xls), *.xls") I jeśli domyślna ścieżka i nazwa z komórki to sciezka = Application.DefaultFilePath & "\" nazwa = Range("A1").Value ZapiszJako = Application.GetSaveAsFilename(Initia...
Można ręcznie wpisywać datę, ale można też wcisnąć jednocześnie Ctrl i ; (klawisz Ctrl i znak średnika). A makrem Sub dzisiejsza_data() ActiveSheet.Range("A65536"... 0) = Date End Sub
Witaj =SUMA(PRZESUNIĘCIE($C$15;0;0;B1))
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
Znalazłem niedozwolony znak w zapisie pliku - ukośniki :)
No, nie wiem... Moim zdaniem wystarczy użyć funkcji IsDate() do sprawdzenia, czy wpisana wartość zostanie przez Excela rozpoznana jako data. jak pisałem, wtedy fromat DD.MM.YYYY nie zostanie jako taki rozpoznany (co innego: DD-MM-YYYY). W tym kodzie co masz teraz za "poprawny" zostanie uznany np. taki zapis: 99.99.9999
Tym razem nie napiszę gotowca, lecz pół;) [syntax=vbscript]Function KolejnyNumerPliku(Katalog As String) As Integer Dim Plik As String Plik = Dir(Katalog & "*.xlsx") x = 1 While Plik <> "" n = Val(Plik) If n > x Then x = n Plik = Dir Wend KolejnyNumerPliku = x + 1 End Function Sub Test() MsgBox (KolejnyNumerPliku("C:\PlikiExcela\")) End...
zmodyfikowany tylko 4 cyfry nie po to, aby zmienić kolejność arkuszy, nowe dodajemy na końcu
Przy pomocy przeniesienia do notatnika zapisu do txt, otwarcia w Excel i transpozycji
Można też utworzyć nazwy i przypisać im wartości. Trzeba by jedynie inaczej rozwiązać zapis tych samych cyfr.(10;10;10;10, itp)
$B$1:$2000 z arkusza 1 czyli Arkusz1!B$1:$2000 Excel nie rozumie Twojego błędnego zapisu :cry: Jak wpiszesz =Arkusz1!$B$2:$B$2000 to będzie wiedział o co chodzi :please:
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
ActiveCell.FormulaR1C1 = _ "=VLOOKUP( RC ,' tu masz błędny zapis
Dzień dobry Muszę się uporać z poniższym zadaniem Mam zadane wartości (zmienne) - AG4:AJ7 ( liczba szt danego artykułu) - AF5:AF7 (udziały %) Wartości Ag4:Aj7 trzeba rozrzucić w tabelach A, B, C ( patrz tabela wynikowa) w taki sposób aby - spełniły warunek udziału %-wego dla poszczególnych tabel zapisane w - AF5:AF7 - formuła musi omijać pola ( czerwone)...
Poproszę linijkę bez komentarza, bo powyższy zapis jest błędny.
Nie wiem w czym masz problem. Wydziel minuty i podziel przez 60 (sformatuj komórkę wynikową jako zwykłą liczbę). Docelowo do wydzielonych godzin dodaj wydzielone minuty podzielone przez 60 i masz "swój" zapis.
Plik *.RAR ląduje na poczcie e-mail. Muszę go zapisać na dysku, rozpakować (plik *.CSV) - otworzyć plik, przerobić dane (formatowanie, usuwanie niepotrzebnych kolumn) zapisać jako *.CSV - o odpowiednim kodowaniu i zapisać na dysku FTP. Jeśli korzystasz z poczty przez outlooka to wszystkie te rzeczy, można nawet w excel vba zrobić.
Nie znam niczego co bym mógł polecić, najlepiej poszukać na google. W załączniku umieściłem przykład z jakiegoś mojego projektu jakbyś chciał rozwiązanie podpatrzeć. Mimo że jest to plik .xml, zapisuję go jako .xls, dzięki temu ikona wygląda jak excel ;)
Witam, Zielony z makro szukam pomocy :-) Uprościłem pytanie, poszukuję makra które uruchamiałoby się automatycznie po wprowadzeniu zmiany w arkuszu dane C3, makro powinno zapamiętać i zapisać poprzednią wartość C3 do arkusza zestawienie C5, przy kolejnym wpisie do C3 w danych, kolejny zapis w C6 w arkuszu zestawienie itd. Mógłby ktoś pomóc w stworzeniu...
:arrow: Maciej - naprawdę sprytne :) , nie pomyślałem o tym wcale choć niedawno to "odkryłem". A wiesz może jak po wykonaniu kolejnych operacji i powrocie do komórki w której "zrobiło się" wcześniej F9 wrócić do funkcji źródłowej (by pokazało się A1:A11 - oczywiście gdy nie zmienia się zapisu) ?
To szukaj kopii zapasowej w lokalizacji zapisu odzyskiwania.
... W mojej ocenie makro zapisujące powinno na końcu czyścić wpisy poprzedniej zmiany ... Słuszna uwaga ... ale nie za każdym razem, czyli kod w innym miejscu. Czyścić powinno się komórki tak, by wykonała to ostatnia zmiana, która będzie tam coś wpisywać, tak aby przed swoim wpisem miała informację o tym, że poprzednicy w ogóle coś wpisywali (bo może...
Dim XlApp As Object '(...) Set XlApp = GetObject(, "Excel.Application") Szanuję cię adamas_nt za twoje makra i nie chciał bym byś mnie źle zrozumiał. Wszystko ładnie, ale nie rozumiem czemu w Excelu używać obiektu do "Application" (ActiveX)? Standardowo w VBA wszystkie obiekty z ActiveX programu na którym bazują są dostępne od ręki (chyba że inaczej...
plik podzielony miałem z 5 zeszytów po ok 830 wierszy. testowo zaznaczyłem całość po zarejestrowaniu makra i w połowie zawiesił pamięć chciał kończyć lub debugować. Kolejno puściłem po około 100 wierszy rekordów excela i poszło ok. Niestety nie znam się VBA, nie znam w ogóle zapisów.
Właśnie wpadłem na takie rozwiązanie, miałem właśnie prosić o opoinię czy jest to poprawne rozwiązanie: ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, Notify:=False If ArkRoboczy.ReadOnly = True Then Set ArkRoboczy = ThisWorkbook ArkRoboczy.Activate End If Dzięki za zainteresowanie, proszę jeszcze tylko o odpowiedz czy konieczne jest : Application.DisplayAlerts...
[syntax=vbscript]Sub ZapiszPDF() Range("A1:CP54").ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Wynik\" & [J6] & ".pdf" End Sub [/syntax]
Spróbuj tak: [code][syntax=vbscript] Sub ZapiszIUsuń() Dim Plik As String Plik = ThisWorkbook.FullName ThisWorkbook.SaveAs Filename:="C:\NowaŚcieżkaDoPliku\" & ThisWorkbook.Name Kill Plik End Sub [/syntax] W cudzysłowie trzeba podać ścieżkę docelową andie
sprawdź . . .
Poprawiłem makra. Kod przycisku uprościłem dla jasności. Przeanalizuj zapis dot. co dokąd jest kopiowane, zawsze będziesz mógł sobie zmienić...
Witam Aby zapisać w wskazanym katalogu i nazwą to spróbuj tak: [syntax=vbscript] ActiveWorkbook.SaveAs Filename:= _ "C:\Users\twojaNazwaUzytkownika\Document... [/syntax]
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
Witam mam taki nietypowy problem. Chciał bym aby excel sprawdzał mi czy wpisana fraza występuje w danej tabeli. A dokładniej: Mam listę składników leków. Kopiuje z netu skład rozdzielony kropkami. Robię z tego wiersz pojedynczych wpisów i chciał bym by excel sprawdził czy każda z tych pozycji występuje w mojej głównej liście składników na innej zakładce....
=JEŻELI(C6<>"";MAX(ADR.POŚR("a1:a"... Tylko przetransponuj sobie adresy odpowiednio. To sprawdzony zapis.
Twój problem można uprościć do tego zapisu: Jeżeli A4>500 -> 0.95*A4, w przeciwnym wypadku 0.975*A4 W zapisie w excelu formuła będzie wyglądała tak: =JEŻELI(A4>500;0,95*A4;0,975*A4)
Czy uruchomiłeś kod w pliku z załącznika, czy w swoim skoroszycie? Jeśli w swoim skoroszycie, to czy dodałeś arkusz o nazwie "Ostatni"? Te komunikaty wskazują, że ze skoroszytu próbuje się usunąć wszystkie arkusze. Wtedy przy usuwaniu ostatniego pojawiają się takie komunikaty.
... potrzebuję wyciągnąć wszystkie unikaty, które znajdują się w kolumnie A i zapisać je do kolumny B. Na necie znalazłem formułę, która to wykonuje, niestety ma jeden minus, w przypadku gdy danych w kolumnie A będzie mniej niż zakres w tej formule, formuła wywala błąd. Wystarczy usunąć "g" z komórki A28 i wszystko znika. Jeśli ktoś ma jakiś patent...
Zmiana dysku do lokalizacji co otwarty dokument ChDrive ThisWorkbook.Path Zmiana folderzu do lokalizacji co otwarty dokument ChDir ThisWorkbook.Path
Rozwiązanie można znaleźć tu: http://excelforum.pl/topics1/zapisywanie...
W jaki sposób przesyłać dane z czujnika podłączonego do Arduino do PC przez Bluetooth? Koniecznie musi być zapis do formatu odczytywanego przez Excel, czyli CSV, XLS lub XLSX.
Zastanawiam się, co da zablokowanie przycisku x? Przekonasz się. Albo jakiś inny patent na uniemożliwienie nadpisania pliku arkusza. Sprawdź. ps. poprawka niżej
Ok, ale na to trzeba wolnego czasu.
Chodzi to, że nie możesz stosować zapisu Ai(n) wiem o co ci chodziło bo to jest zapis matematyczny ale Excel go nie rozumie...
Witam! Wpisując formułę w arkuszu popełniasz gdzieś błąd, którego z oczywistych względów Tobie nikt nie wskaże nie widząc fizycznego wpisu formuły w arkuszu Excela. Równanie podstawowe funkcji zostało już napisane wyżej przez Kolegę Quarz , więc nie będę się powtarzał. Uzupełnię je jednak o przypadek przesunięcia fazowego: u = Um*sin((2*pi*f*t)±φ)....
Tu masz schemat kopiowania danych do innego pliku. Procedura sprawdzona, działa i jest używana. Wystarczy dostosować co ma być kopiowane i już. [syntax=vbnet] Private Sub Zapisz() Dim Src As Workbook, Dst As Workbook Dim S As String S = Application.ActiveWorkbook.Path & "\Braki-" & Format(Date, "yyyymmdd") Set Src = Application.ActiveWorkbook Src.Sheets(1).Range("A1:E"...
Funkcja ADR.POŚR pobiera dane tylko z otwartego pliku, więc tu raczej się nie nada. W Excelu można to zrobić odpowiednim makrem, ale dostosowanym do konkretnego problemu. Twój zapis formuł wskazuje jednak, że to nie jest Excel. Podaj dokładnie jakiego programu chcesz użyć i więcej szczegółów o tych danych (czy to są pojedyncze komórki z każdego pliku,...
Witam. :arrow: Korek_123 Ponieważ Excel >=2007 zapisuje w formacie xml, następnie ukrytych wierszy i kolumn dla każdej linii ponad milion jest zapis "ukryte = 1 " i jest coś innego. Spróbuj zapisać w formacie binarnym. Ale różnica jest mała. P.S. Osobiście używam Excel97, maksymalno 2003. W każdym razie mój projekt, inny Excel otworzy. Edit: Ale spójrz...
Wyszło mi coś takiego sprawdż czy ci pasuje Musisz tylko zmienić sposób zapisu godziny czasu wymaganego kontaktu na taki jak w przykładzie bo inaczej nie będzie liczył
Błędnie składasz string dla zapisywana. Spróbuj [syntax=vb]Sub WklejDoWorda() Dim oWord As Object, a As String Set oWord = CreateObject("Word.Application") oWord.Documents.Add oWord.Visible = True 'możesz usunąć a = Selection.Row Range("D" & a).Select With oWord With .Selection .Font.Size = 11 .Font.Name = "Arial" .TypeText Text:="xyz" End With End...
Witam, Czy udało sie rozwiązać problem z zapisem? Od kilku dni u mnie wystepuja identyczne objawy.
Proszę bardzo. DDE to mechanizm wymiany informacji między aplikacjami wprowadzony, jak podaje Wiki w 1987, w Windows 2.0. Ja go pamiętam z początku lat 90tych i Windows 3.0/3.1. Począwszy od Win95 zastępowany przez COM, gdzieś w okolicach roku 2000 niemal zanikł. NetDDE to autorski pomysł Wonderware, włączony do Windows bodajże w wersji WfW 3.11, definitywnie...
Zdarza się, że Excel nie trawi zapisu 'C:C' i trzeba podać zakresy precyzyjniej...
trochę wywrotowo, ale czy nie warto byłoby zainstalowac np. OpenOffice T7?? słownik, nowa wersja, dobra pomoc... no i zapis jako XLS :-)
Zakładając, że komórka A4 zawiera nazwę "STR2", a komórka B4 nazwę "RAPORT", to tak: [syntax=vbscript]Sheets(Array(range("A4"... te nazwy są w innym arkuszu niż aktywny, to można dodać kwalifikator.
Mam problem z makrem, które zapisuje dany zakres arkusza do pdf. Na początku zapisuje ono plik jako "ogólny plik", który jest wysyłany do klientów, a następnie zapisywany jest w celu archiwizacji pod daną nazwą z komórki. Mam problem z tym drugim zapisem. Przy kompilacji pokazuje mi błąd zapisu tego drugiego pliku. Problem pojawia się po określeniu...
Odblokowano na wniosek autora tematu,
Przede wszystkim dziękuję za pochylenie się nad moim problemem :) Co do zapisywania pliku z samą godziną, bez minut i sekund (czyli samo hh w formacie) - zrobiłam to celowo. Plik użytkuje wiele osób, jest wielokrotnie otwierany w ciągu dnia. Taka nazwa nie generuje błędu przy kolejnym zapisie w tej samej godzinie, jak pisałeś, natomiast powoduje nadpisanie...
[syntax=vb]Sub zapisz1() numer = InputBox("Podaj numer kolejny") NewFilename = numer & "-2015 " & ".xls" ActiveWorkbook.SaveAs Filename:=NewFilename End Sub[/syntax] lub [syntax=vb]Sub zapisz2() ActiveWorkbook.SaveAs Filename:="FORMULARZE" & ".xls" End Sub[/syntax]
W pełni legalny
Potrzebuję napisać makro w Excelu, które: przy wyłączaniu Excela zapisze wszystkie otwarte dokumenty w jakichś plikach po włączaniu otworzy je.... Pomocy, potrzebuje to na wczoraj :)
Witam Mam wielki problem. Mam plik Excela w nim jest makro. Problem jest taki że jak otworze plik z danymi i nie zapisze danych lub zapisze to plik znika z folderu. Nie można odnaleźć gdzie on podzial. Gdzie jest problem? Excel wersja2007.
Witam. Mój problem wygląda następująco: Posiadam zewnętrzny program w którym pojawia się okno zapisu. Chciałbym aby excel wklejał ze swojej kolumny wartość jednej komórki do okna zapisu i klikał ok aby zapisać plik następnie, kopiować kolejną komórkę i czekać aż otworzy się kolejne okno zapisu aby wkleić wartość (pętla) W tym zewnętrznym oknie mam największy...
Musi być wpisana wartość komórki nawet jeśli to ma być 0 wtedy excel sortuje. Dla Ciebie, rozwiązaniem będzie nadanie nagłówków nad każdą kolumną, klasycznie 1,2,3... przeciagnij, bez zbędnego zastanawiania się nad tym, wtedy funkcja sortowania "pomyśli" że pusta kolumna pod nagłówkiem jest wypełniona "0" i zadziała. Po sortowaniu przed zapisem pliku...
Kolego Piotrze, coś chcesz nas zaczarować, bo to co piszesz jest mocno nieprecyzyjne. Formuła, którą zacytowałeś może działać tylko jako formuła tablicowa. W Excelu 365 formuły tablicowe zostały zastąpione formułami dynamicznymi, które zatwierdza się samym Enter, ale nie zmienia to ich tablicowej natury. W nowym Excelu każda formuła jest domyślnie traktowana...
Czy w Wordzie, Excelu, ogólnie w Officie istnieje możliwość automatycznego zapisu dokumentu do osobnych plików, tak żeby nie stracić swojej pracy, ale by także móc wrócić do jakiegoś wcześniejszego etapu? W tej chwili jedynym znanym mi sposobem "awaryjnego" zapisu jest ustawienie automatycznego zapisu na krótki czas, jednakże zapis jest w postaci nadpisywania...
Jako ścieżkę i nazwę (z A1) podstaw[syntax=vb] Filename:= Environ("UserProfile") & "\Desktop\" & Range("A1") & ".pdf"[/syntax]
Otwórz plik na komputerze na którym działa. Jak się otworzy wciśnij Alt+F11 Jeżeli po prawej stronie nie widzisz okienka eksplorera projektów wciśnij Ctrl+R Odszukaj tam VBAproject(personal.xlsb) Naciśnij obok niego plusik (rozwinie się projekt) Otwórz "folder" modules "złap myszką" moduł w którym są twoje makra i przeciągnij na projekt twojego pliku...
Ale jak wyjaśnić że działało tyle lat? I zawsze zapisywałem w formacie 97-2003 odkąd pamiętam, jak zapisze jako xlsx jest ten sam problem, może kolega który przesiadł się na WIN10 teraz podsyła pliki w których ten system coś miesza. Sam nie wiem, sprawdzałem na 3 kompach i wszędzie to samo, mam wrażenie jakby jedna komórka czy kilka jakiegoś "chorego"...
zapis pliku excel excel automatyczny zapis excel makro zapis
mikrofon komputera wzmacniacz ustawić temperatura klimatyzacja oleju skrzyni biegów sharan
traktorek silnik briggs traktorek silnik briggs
LED4202 CV9292H-A39 brak 12V VCC_PANEL i BL_ON – diagnostyka zasilania Brak zasilania 12V na module LC500DUE-SFR1 w TV LED4202 – diagnoza i typowe usterki