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]
[syntax=vbscript]Workbooks.Open ("C:\Users\Fransf\Desktop\TESTY\Klienci\... & nazwaklienta & ".xlsx")[/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()...
Podmień na [syntax=vbscript]NowaNazwa = ThisWorkbook.ActiveSheet.Range("A1").Val... & ".xlsm"[/syntax]
Jaka wersje Excel ? Jaky komunikat?
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...
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...
[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]
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
Witam np tak [syntax=vbscript] Range("B1") = Me.ComboBox1.Value If OptionButton1.Value = True Then Range("B2").Value = "tak" [/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ć...
[url=https://docs.microsoft.com/en-us/of...
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
[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...
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...
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:=...
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.
[syntax=vbscript]Sub ZapiszPDF() Range("A1:CP54").ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Wynik\" & [J6] & ".pdf" End Sub [/syntax]
Ustawienia lokalne są poprawnie skonfigurowane To jeszcze sprawdź "obracając" zapis z No niestety nie pomogło :-(
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.
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
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...
Witaj =SUMA(PRZESUNIĘCIE($C$15;0;0;B1))
Narzędzia -> Opcje -> [Zapisywanie] -|/|Zapisz informacje niezbędne do odcztania pliku co |_| min Pozdrawiam Lt.
Cześć. Jak w C# zrobić zapis do excel i txt z wyborem dysku i katalogu?? Po wcisnięciu "przycisku zapisz" wyskakuje okno z wyborem dysku i katalogu do zapisania. Pozdrawiam.
Przeciez masz komunikat ze jest tam Project VB Nie mam 2013, zrob zrzut ekranu VBA edytora
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
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...
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...
Rozumiem, że makro ma być w pliku PRE-ALERT? Jeśli tak, to przetestuj poniższy kod: [syntax=vb]Sub NowyArkusz() Dim wbkPrealert As Excel.Workbook Dim oWSShell As Object Dim strPath$ Workbooks.Add a = Now() b = Year(a) c = Month(a) D = Day(a) Set wbkPrealert = ThisWorkbook Set oWSShell = CreateObject("Wscript.Shell") strPath = oWSShell.SpecialFolders("Desktop")...
zmodyfikowany tylko 4 cyfry nie po to, aby zmienić kolejność arkuszy, nowe dodajemy na końcu
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.
Witam Aby zapisać w wskazanym katalogu i nazwą to spróbuj tak: [syntax=vbscript] ActiveWorkbook.SaveAs Filename:= _ "C:\Users\twojaNazwaUzytkownika\Document... [/syntax]
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.
Zmiana dysku do lokalizacji co otwarty dokument ChDrive ThisWorkbook.Path Zmiana folderzu do lokalizacji co otwarty dokument ChDir ThisWorkbook.Path
$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:
Pewnie dlatego, że w matematyce zapis X =X +1 jest błędny.:)
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 ;)
Jaki komputer?
Jeśli podasz liczbę jako tekst, to nie zmieni jej na inny zapis. Przed liczbą wpisz apostrof.
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)...
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...
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?
... 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.
Ok, ale na to trzeba wolnego czasu.
Jako ścieżkę i nazwę (z A1) podstaw[syntax=vb] Filename:= Environ("UserProfile") & "\Desktop\" & Range("A1") & ".pdf"[/syntax]
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
... 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...
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)
... 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...
Znalazłem niedozwolony znak w zapisie pliku - ukośniki :)
Excel zapis 1/1 może zrozumieć jako: styczeń 2001. Wydaje mi się, że tu należy szukać problemu. Możliwe, że zaplątała się gdzieś spacja lub tym podobne. Najlepiej wrzuć załącznik na forum (wytnij tylko ten interesujący nas fragment, zapisz w nowym pliku i podaj jako załącznik bez prowizji).
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...
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
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 :)
Przy pomocy przeniesienia do notatnika zapisu do txt, otwarcia w Excel i transpozycji
Poproszę linijkę bez komentarza, bo powyższy zapis jest błędny.
Zmień z [syntax=vbscript]ActiveSheet.UsedRange[/... na [syntax=vbscript]Sheets("baza zamówień").UsedRange[/syntax]
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...
W pełni legalny
Zdarza się, że Excel nie trawi zapisu 'C:C' i trzeba podać zakresy precyzyjniej...
Chodziło mi o wyświetlenie okna wyboru. Chciałbym tak samo tylko w stronę zapisu.
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...
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ć...
Przykład w załączniku. Utwórz folder 'raporty' tam, gdzie znajduje się ten plik.
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.
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)
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...
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.
Spróbuj zamiast przecinków użyć jako separatora dziesiętnego kropki ( zamiast 0,1 napisz 0.1) excel może Twój zapis analizować jako tekst a nie liczby
Witam, Czy udało sie rozwiązać problem z zapisem? Od kilku dni u mnie wystepuja identyczne objawy.
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.
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"...
win 7, program adobe, excel, word
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
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ł
[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]
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...
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,...
To szukaj kopii zapasowej w lokalizacji zapisu odzyskiwania.
W złym miejscu miałeś to dopisane. Przecież to chodziło o metodę GetSaveAsFilename, a nie o SaveAs. [syntax=vbnet]Private Sub CommandButton1_Click() Dim plik plik = Application.GetSaveAsFilename(Sheets("il... & ".xls", "pliki excel (*.xls), *.xls") If plik <> False Then ActiveWorkbook.SaveAs plik End Sub[/syntax]
Witam Poszukuję pomocy ze stworzeniem makra dla zapisu plików w excelu. Mianowicie chodzi mi o to żeby plik excela który otwieram z pulpitu po jego wypełnieniu i kliknięciu w dyskietkę (zapisz), zapisywał się automatycznie z datą w docelowym folderze. Może ma ktoś już podobne makro które mógłbym wykorzystać ?
zapisz przez "zapisz jako"
Może kolumna pomocnicza z pobranymi znakami początkowymi i na jej podstawie sortowania? W tej chwili Excel traktuje zawartość jako tekst i dlatego masz taki wynik.
Witam, Podczas pracy na pliku Excel miałem możliwość edycji i zapisu. lecz po pewnym czasie nie mogłem edytować(nie mogłem ani nic wpisać do komórek, ani nic skasować) i zapisywać. Po upływie 10 min Excel tak jakby się odblokował(mogłem wszystko już robić). Co może być przyczyną i jak pozbyć się tego problemu na przyszłość. Z góry dzięki za odpowiedź.
excel wyświetla mi okno do zapisu makra Zapisz skoroszyt jako plik z obsługą makr (xlsm).
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...
Chciałbym się podpiąć pod pytanie. Chciałbym jednam żeby mój plik z makrem po zakończeniu procedury zamknął się?? czy to w ogóle możliwe?? Kończę swoje makro poleceniem: ActiveWindow.Close SaveChanges:=False Zamyka mi się jednak wszystko ale sam excel (bez otwartego żadnego pliku) jest otwarty.
Tak, tylko urządzenie które miało by czytać z takiego pliku niekoniecznie jest jak by to powiedzieć - komputerem. Chodziło mi tu bardziej o to by nawet takowe jak np. Atmega działająca pod kontrolą języka C mogła zczytać plik z USB i dokonać na nim operacji. Z plikami tekstowymi problemów nie ma. Z Excelem przyznam że chyba jeszcze nikt nie działał...
Jeśli to polska wersja Excel'a, to przecinek, nie kropka. Nie liczysz warunkowo (LICZ.JEŻELI), tylko mnożysz jeśli warunek spełniony: =JEŻELI(A5<=3;A2*0,35;"") Warto czasem zerknąć do pomocy. Funkcje są dobrze opisane i zwykle poparte przykładami.
[syntax=vbscript] Public Sub pobierz() Dim lang As String Dim URLStr As String, DLPath As String, UName As String, PWD As String, DontOverWrite As Boolean Dim zakres As Range Dim Lastrow As Integer Lastrow = ActiveSheet.Range("A1").CurrentRegion.Ro... Set zakres = Range("A2:A" & Lastrow) kat = Dir(Environ("USERPROFILE") & "\Downloads\karty\", vbDirectory)...
Mogę jeszcze poprosić o pomoc A co mam zrobić :)
Czy może wypisywać pracowników po kolei bez pustych komórek? :D Owszem można, ale każdy z Twoich warunków (po kolei, bez pustych) to poważna komplikacja formuły :please: Może wystarczy Ci zapis bez pustych :spoko: 1010494
Jeśli nadzorowane zmiany mają być w Arkuszu2, to procedura Worksheet_Change powinna być umieszczona w module Arkusza2. W tej procedurze można odwoływać się do Arkusza1 bezpośrednio (przez nazwę kodową) albo pośrednio przez kolekcję Worksheets jako Worksheets(1) albo Worksheets("Arkusz1"). Przykładowy kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal...
ActiveCell.FormulaR1C1 = _ "=VLOOKUP( RC ,' tu masz błędny zapis
For i = 0 To UBound(PATH) Folder = Folder & PATH(i) & "\" If PATH(i) = "" Then CheckDir = Dir(FullPath & "Nowy" & Date, vbDirectory) If CheckDir <> "" Then MsgBox CheckDir & " - taki folder już istnieje" Else MkDir FullPath & "Nowy" & Date MsgBox "Utworzono nowy folder " & FullPath & "Nowy" & Date End If...
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...
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...
Ok zapoznałem się z powyższymi funkcjami. Nigdy nie tworzyłem makr ale myślę że sobie jakoś poradzę z pomocą internetu. Mam tylko pytanie czy w funkcji on time jest możliwość powtarzania w zakresie Hz lub nawet Mhz? Oraz jak zapisać otrzymywane wyniki?
zapis excel zapis pliku excel excel automatyczny zapis
schemat podłączenia włącznika światła zmywarka dłużej zmywa przewod ethernet
zmywarka wirpool mikrokomputer cobra1
Schemat bezpieczników Volkswagen Sharan 1.9 TDI 2002 – rozmieszczenie, wartości, opis skrzynek Zablokowany bęben w pralce Bosch, LG, Samsung – przyczyny, diagnostyka, naprawa