Podszedłbym do tematu na dwa sposoby: - formatowanie wyświetlania - ustaw format niestandardowy komórki, a jako typ podaj: (at)"," - oczywiście w cudzysłowu zamiast przecinka może być cokolwiek innego - funkcja, która łączy tekst - zakładając, że kolumna A to Twoje wartości - w komórce B1 tworzysz funkcję: ZŁĄCZ.TEKSTY(A1;",") - po czym rozciągasz funkcję...
[syntax=vb]Sub Numeruj() ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If Left(Cells(x, 1), 1) = "*" Then n = Val(Mid(Cells(x, 1), 2)) While Left(Cells(y + x, 1), 1) <> "*" If x + y > ow Then Exit Sub Cells(y + x, 1) = n & ":" & Cells(y + x, 1) y = y + 1 Wend End If x = x + y - 1 y = 1 Next End Sub[/syntax]
[syntax=vb]Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Value = ...[/syntax]
Jeśli numeracja ma się zmieniać, to formuła może być np. =WIERSZ(A1)&"|"&A1 gdzie A1 jest adresem pierwszej komórki. Ale Pan nie napisał, że numer ma się zmieniać.
Wystarczy chyba WYSZUKAJ.PIONOWO =WYSZUKAJ.PIONOWO(A1;Arkusz2!A:B...
Takie makro: [syntax=vbscript]Sub Makro1() ' Klawisz skrótu: Ctrl+q ActiveCell.Value = Range("X1") & ActiveCell.Value End Sub [/syntax]
Witam! Aby Excel zliczał waluty należy sformatować komórki w jako walutowe i wybrać z listy odpowiednią walutę (wtedy symbol dopisuje się sam). W przykładzie Kolegi Excel po dopisaniu symbolu traktuje zawartość komórki jako tekst, sygnalizując to dosunięciem do lewej krawędzi komórki. Zobacz mój przykład.
Czy to ma być coś takiego jak w załączniku? Uruchom makro Suma1000. Oczywiście dodatki musisz sobie dopisać. :cry:
Chciałbym żeby mój arkusz dopisał sobie wartości M wedle przyporządkowanych numerów. http://obrazki.elektroda.net/69_12720514... http://obrazki.elektroda.net/66_12720514...
Zrobiłby to w ten sposób: (dopisz formuły w szarze komorki)
Witam Mam wydaje mi się, że prosty problem odnośnie excela. Wszystkie pola textowe. Mam 2 arkusze: Arkusz 1 i Arkusz2 Arkusz 1 zawiera 4 kolumn w tym: nazwa i rodzaj Arkusz 2 zawiera 6 kolumn w tym: nazwa i magazyn I teraz jeśli nazwa z arkusza 1 występuje w arkuszu 2 to ma w arkuszu 1 w 3 kolumnie wpisac magazyn z arkusza 2. Będę wdzięczny za pomoc.
Najpierw doprowadź do ujednolicenia obu tabelek - obydwie powinny mieć takie same kolumny. Najlepiej importuj obydwa arkusze Excel do Ms Access - a potem z pomocą SQL stworzysz sobie co dusza zapragnie. Jeśli arkusze są używane (modyfikowane) - możesz wstawić je jako tabela z danymi zewnętrznymi, lub kwerendę. Jest też prostszy sposób - Excel - tabela...
Przed linijką: Do While art < zm + 1 dopisz linijkę: art = 2
Doinstaluj odpowiedni moduł do twojego pakietu Office. (Powyżej dopisałem przykład z autopsji).
Jak zrobić by excel sam wypałniał dni wolne ( soboty i niedziele) wstawiając automatycznie w te dni np. znak X na czerwono. Próbowałem zrobić to z listą wyboru jedna lista zawierała miesiace druga rok i jakoś mi nie idzie. Data się sama zmieniała ale juz sie poddałem. Pomoże ktoś? Bardzo prosz o dopisanie funkcji do załączonego pliku.
Kliknij na komórkę z wyborem roku i później: - Dane - Poprawność danych - Jeśli pojawi się komunikat, o braku ustawień sprawdzanie poprawności danych, wybrać Tak - w polu Źródło zakładki Ustawienia dopisać kolejne lata oddzielone średnikami
Jeśli są tylko te 2 możliwości, to można tam gdzie jest: [syntax=vbscript]Case "P2"[/syntax] dopisać K2 (po przecinku): [syntax=vbscript]Case "P2", "K2"[/syntax]
Marcin, w którym miejscu to dopisać?
Nie masz w zestawieniu zera. Trzeba dopisać...
zawartość komórki B1 do AH17 Dopisz [syntax=vbscript]Cells(17, 34) = .Cells(x, 2)[/syntax]
a co masz na myśli mówiąc "...podstawiać formuły w osobnej pętli"? Wstaw kolumny, wpisz ręcznie formuły sumowania i przepisz argumenty do makra. Po zakończeniu pętli wstawiającej kolumny i nagłówki (usuń linię z wstawianiem sum), dopisz następną wpisującą tylko formuły.
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
O Benek:) Jeżeli 'aktywujesz' to dopisz sobie [syntax=vbscript]MsgBox Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row[/syntax...
Zrób proszę formularz, dodaj na nim pole użytkownika, hasło i przycisk 'dalej'. W arkuszu wpisz przykładowe dane i prześlij na forum. Resztę będzie można dopisać.
ale zobacz: Posortuj najpierw... Albo nagraj makro sortowania i dopisz na początku procedury kolegi PRL
Witam tak to może być? dane - sprawdzanie wartości, można określić listę na niektórem arkusze tu je naprosto dopisane Przepraszam za gramatykę
Na szybko napisałem ci skrypt wyciągający daty ze stringów. Wyrzuca je w kolumnie "J". Na resztę na razie nie mam czasu, bo lecę w trasę. Jeśli chcesz aby dopisać resztę, to się odezwij. Będę we wtorek.
Tak jak wyżej - docelowo wykorzystaj formatowanie warunkowe. By łatwiej wprowadzać dane trzeba by było dołożyć formuły. Jeżeli sam sobie nie poradzisz to podaj wycinek twojej bazy (przykład) i opisz co i gdzie chcesz wprowadzać (czas koejnego dzwonienia, czy za ile dni ma się przypomnieć) a dopiszemy resztę.
Zrób makro. W Excel jest wizard, musisz wskazać co ma robić po uruchomieniu makra czyli w Twoim przypadku ściągnąć dane z innego pliku i dopisać w ostatnim wierszu +1.
Myślę, że sprawdzanie czy [syntax=vbscript]If Range("C1") = "" Then Range("C1") = Range("A1") Else ...[/syntax] jest tu niepotrzebne - pusta wartość C1 będzie potraktowana jako 0. Ja bym to widział nieco krócej: wersja "jednokomórkowa"[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And IsNumeric(Target.Value)...
Proszę o kod z #1 z dopisanym kodem z #2.
Daj plik to może ktoś Ci pomoże, dopisze formułę.
Zbyt dużo niewiadomych. Np "żeby go tam dopisał". Jeśli nie mam Twoich danych w mojej Bazie Klientów, to skąd biedny Excel ma je wziąć? No tak to zrozumiałem :) Przydałyby się oba przykładowe pliki w załączeniu + dokładniejsze wskazówki...
Dobry wieczór, Jeżeli makro działa poprawnie i jedynym problemem jest kopiowanie wartości, to powinno wystarczyć dopisanie w linijce po słowie PasteSpecial i spacji (pod koniec kodu) frazy [syntax=vb]Paste:=xlPasteValues[/syntax] Powodzenia.
Po to się daje załącznik, aby pokazać jak będą wyglądać dane i w jakim będą układzie. Poza tym istotne jest też, w której wersji Excela ma to działać. Też tego nie napisałeś. Jeśli w różnych wersjach, to proszę podać najstarszą. Jeśli to jest nowa wersja Excela, to wystarczy funkcję WYSZUKAJ zamienić na X.WYSZUKAJ, czyli dopisać 'X.' przed nazwą funkcji.
Napisałem parę linijek kodu do drukowania etykiet. Zmieniłem nieco wygląd strony ZAMÓWIENIA, usunąłem niektóre kolumny i wiersze oraz wprowadziłem kolumnę do wpisania ilości kpl w paczce. Analogicznie można dopisać kod na 10x etykiety oraz dopisać do etykiet inne dane np. datę, wagę itp.
Jeśli tak uparcie trzymasz swojego, to przed 'End If' dopisz [syntax=vb]Worksheets(ark).Range(Cells(3... 35), Cells(45, 10)).Interior.ColorIndex = xlNone[/syntax]
Dołączam załącznik 2 bo w tamtym nie dopisałem kolumny A Nie widzę różnicy między nimi. Uwaga: kolumna P używana do tymczasowo
Witam, spróbuj tak (w Excel 2007 lub nowszym): Zaznacz komórkę z datą następnego badania, kliknij: formatowanie warunkowe -> reguły wyróżniania komórek -> większe niż... -> w okienku, które się otworzy wskaż komórkę w której masz obecną datę i dopisz "+31" (bez cudzysłowów) lub taką wartość dni ile potrzebujesz. Czyli w tym okienku będziesz miał np....
Wyszukaj pionowo i do pierwszego arkusza dopisz pułapy promocyjne.
Dopisz przed tą linią: debug.print .Shapes(.Cells(w, 1).Text).name naciśnij Ctrl+g uruchom makro. I co tam wypisało?
Trzeba dopisać mnożenie przez frazę: [syntax=text]CZY.LICZBA(SZUKAJ.TEKST(D12...
Ja nie wiedziałem, do czego dokładnie chcesz używać tego kodu, więc zaproponowałem koncepcję, a szczegóły trzeba dopracować w docelowym pliku. Twój kod jest złożony, a ja nie mam w tej chwili czasu na analizowanie szczegółów jego działania. Takie poprawki powinien nadzorować autor koncepcji kodu, który wie co kod ma robić. Tu zauważyłem interakcję między...
Można bez makra. [url=http://excel.blox.pl/html/1310721,2... jest opis.
[quote="Andrzej59"]Zrobione w PQ[/quote Po dopisaniu do listy jednej lub dowolnej liczby pozycji trzeba arkusz zapisać i odświeżyć a tabele same się uaktualnią
Dopiero teraz zauważyłem przecinek, że chcesz sortować po dwóch polach. To spróbuj tak: [syntax=sql]ORDER BY art_info_gene.crayon, CASE WHEN sum(mqte) = 0 THEN 9999 ELSE (60*qstock_theorique) / sum(mqte) END[/syntax]I tam NIE MA tego T1, celowo go nie dopisałem.
Tak chyba najprościej będzie. W "Module2" masz wypełnianie listy. Na wzór wstawiłem pierwsze trzy (z ośmiu). Musisz sobie tylko dopasować szerokość kolumn w Initialize oraz dopisać pozostałe. Kolejność zostawiam Tobie. W moim przykładzie zaczyna się od "model", dalej "typ" i "chipset".
Proponuję takie makro: [syntax=vbscript]Sub Moduł_Kliknięcie() Dim kom As Range, form As String For Each kom In Selection If kom.HasFormula Then form = Application.Replace(kom.Formula, 2, 0, "ABS(") On Error Resume Next kom.Formula = Replace(form, "*", ")*", 1, 1) On Error GoTo 0 End If Next kom End Sub[/syntax]Przed użyciem makra należy zaznaczyć zakres...
Witam ThisWorkbook.Name zwraca nazwę + rozszerzenie (sciezka & ThisWorkbook.Name) Nie zmieniłeś przypadkiem na swoją nazwę? wtedy trzeba dopisać rozszerzenie :D
Można, najlepiej zostawić makro zrób_gwiazdki (aby można zaznaczyć istniejący tekst i przerobić go uruchomieniem makra) a dodatkowo zastosować makro takie jak w pierwszej odpowiedzi dbające o nowo dopisane komórki.
Tak jak pisałem przyczyną problemów były odwołania strukturalne do tabel Excela. Po zamianie tych odwołań na tradycyjne odwołania do zakresów, dane powinny być odczytywane z zamkniętych plików. Tam gdzie w kolumnach masz daty (w przeglądarce) w kodzie formatu dopisz sobie na końcu dwa średniki po dacie. To żeby nie wyświetlać zerowych dat. Tam gdzie...
Zamiast Range("C2").Value = "=SUMA(C4:C1441)" Range("C2").FormulaLoc... = "=SUMA(C4:C1441)" Dopisanie wartości do nazwy pliku: "D:\Analiza\" & Worksheets(1).Name & "-" & Range("C2").Value & ".xls"
Spoko wiem, dlatego dalej dopisze sobie prosty kod
a po drugie chyba mniej skomplikowane będzie usuwanie tych z zakresu drugiej ramki No, może odrobinkę. W załączniku są dopisane oba. Procedury znajdują się w kodzie arkusza. W makro wstawiania nie ingerowałem, nadmiarowe CheckBox'y wyrzuciłem.
Najprościej chyba INDEKS/PODAJ.POZYCJĘ. =INDEKS(B$1:B$70;PODAJ.POZYCJĘ... Dopisz warunkowe zero przy błędzie funkcji PODAJ.POZYCJĘ i powinno być OK
Może takie rozwiązanie jest wystarczające. Procedura jest dopisana do zdarzenia Change arkusza PLAN.
Wstaw w kod arkusza "Wydatki" i kliknij w "Zapisz" [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ostWrs As Long 'warunkiem działania makra jest adres scalonej komórki (tej z tekstem "Zapisz") 'zwrócony przez zmienną Target If Target.Address(0, 0) = "E18:E19" Then 'sprawdzamy, czy wymagane pola są wypełnione /przy okazji...
Skoro nagrało Ci się coś w rodzaju 'ActiveCell.FormulaR1C1 = "=TODAY()' to dopisz pod spodem 'ActiveCell = ActiveCell.Value' i po sprawie. To samo "bardziej po Bożemu": ActiveCell = Date Zamiast ActiveCell może być oczywiście dowolny Range(adres) lub Cells(wiersz, kolumna).
Witaj, Faktycznie nie dopisałem. Chodzi o kopiowanie wyfiltrowanych wierszy.
formuła ma wyszukać dany profil z listy i przemnożyć jego wagę przez ilość sztuk z komórki b1 W takim razie aż prosi się o WYSZUKAJ.PIONOWO. Dlaczego JEŻELI, czegoś nie dopisałeś?
Nie nie,mam kogoś dzienniczek i muszę pozmieniać w nim kilka danych(usunąć,dopisać swoje kryteria)
Jeśli ma to działać w jakimś jednym konkretnym arkuszu, to w module kodu tego arkusza umieść taką procedurę: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$B$2" Then Sheets("1").Activate Cancel = True End If End Sub[/syntax] A to co dopisałeś, to nie bardzo rozumiem. "Do poniższego...
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]
Dopisz do instrukcji: And Target.Count=1
Application.MoveAfterReturn = True aby rozwiązanie to działało tylko w 1 arkuszu ? Po co takie komplikacje? Mam już gdzieś wstawione Private Sub Worksheet_Change(ByVal Target As Range) do czegoś innego 1 z 2 się gryzie Co masz tam takiego wstawionego, że nie możesz tego pokazać? Bo może tam wystarczy dopisać linijkę.
Da się to zrobić? Spróbuj dopisać do linka #page=numer_strony
Istnieje, wpierw zapisz dane z tabeli 1 w pliku np. dane.xls a następnie odczytaj tabele drugą i dopisz dane do pliku dane.xls Przykład jak to zrobić [url=http://rmanimaran.wordpress.com/201...
Och, brakuje wyzerowania zmiennej na początku pętli. Tutaj ten fragment: [syntax=vb]With Sheets("forecast") For i = 1 To nUnique.Count ar = 0 '<<<to trzeba dopisać ileDane = WorksheetFunction.CountIf(wkSrc.Columns(... nUnique(i))[/syntax] Nie porównywałem tych danych "ręcznie", czy raczej "ocznie" :) Ale wszystko wyszło "do wprowadzania"....
To dopisz w nagłówku: Dim k As Integer :D
Mój kalkulator przelicznik Nm na IQ Nie jest może super precyzyjny ale bardzo ułatwia pracę. Dopasowany do ---- oczywiście EDC16 100ps VW touran. Zapomniałem dopisać czemu to służy. Jest to arkusz kalkulacyjny Excel za pomocą którego możną podejrzeć... przeliczyć wyniki logów dynamicznych grupy 008 wyświetlanych w Nm w wyniku otrzymujemy dawkę paliwa...
Ok teraz masz kryteria w tablicach w kodzie VBA w razie jakbyś chciał dodać kryterium, musisz zwiększyć tablicę o 1 i dopisać do tego dodatkowego elementu kryterium z gwiazdkami. Jak zobaczysz kod to chyba będziesz wiedział o co kaman. Dodałem też zabezpieczenie przed kliknięciem dwa razy na makro
a da sie zrobić ze po zeskanowaniu/wpisaniu w zółtym polu numeru narzędzia wprowadzany numer zniknie zeby nie trzeba bylo kasować recznie? Czytnik nadpisze wartość, ale jeśli musi być... Dopisz sobie po '.Select' '.Value=""': [syntax=vbscript] Else MsgBox "Nie ma w bazie" End If .Select .Value = "" 'to tutaj End If[/syntax]
Raczej nie zrobisz tego jedną prostą formułą. Wiersz pomocniczy, albo składanka z przeszukiwania wszystkich kolumn: [syntax=text]=JEŻELI(CZY.BŁĄD(WYSZUKAJ.P... ...tu wszyskie po kolei... & JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO(E12;H2:... Zakładam, że każda nazwa dnia kończy się spacją, jeśli nie - trzeba...
Witam Mam spis linków, adresów www w kolumnach. Mam ich około 100 adresów, które są w postaci zwykłego tekstu. Chciałbym coś zrobić, żeby excel czytał to jako linki... nie wiem co... Jak dopiszę nawet http:// na początek to dalej jest to zwykły tekst. Co zrobić?
Sprawdź w załączniku, czy o to chodziło. Dopisałem procedurę Workbook_Open, która tworzy kształt w arkuszu Arkusz1 (nazwa kodowa) przy otwieraniu skoroszytu (jeśli go nie było) lub zmienia kolor na biały (jeśli był). Dopasuj sobie jeśli ma być w innym arkuszu.
No dobrze ale w ten sposób moge wprowadzić dane tylko dla jednej kolumny. Jak wpowadzić dane dla kolejnych kolumn? Ewentualnie trzeba by coś dopisać do kodu, ale co ?
Tak ten harmonogram jest co jakiś czas archiwizowany, tzn. po skończonym temacie w odstępie powiedzmy miesiąca, dwóch zostaję "recznie" przenoszony do tzw. Archiwum ( inny plik excela). Mówiąc że się rozrasta miałem na myśli że każdego dnia dochodzi coś nowego do dopisania.
Można postąpić tak: Odblokować wszystkie komórki w arkuszu (a przynajmniej te, które mogą podlegać edycji). Włączyć ochronę arkusza. Do kodu arkusza wpisać procedurę obsługi zdarzenia Change: [syntax=text]Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End Sub [/syntax] Jeśli arkusz...
W obu przypadkach jest to aktywny arkusz aktywnego skoroszytu. Ale dla pewności dopisz: [syntax=vbscript]n.ActiveSheet.Name = "Nazwa"[/syntax] za instrukcją warunkową.
Dopisz jeszcze w jakim formacie te komórki, ile cyfr i czy ich ilość jest jednakowa (może wrzuć przykład w załączniku). Koniecznie formuła, czy może makro?
Aha i zapomniał bym, do końca strony w arkuszu "Raport" muszą być te linijki, gdybym chciał ręcznie dopisać na wydrukowanym jakieś ważne informacje.
Dopisanie " UCase(refka.Offset(, 1)) & ".pdf "" rozwiązało problem. Wszystko dzięki wspaniałej pomocy użytkownika clubs Dziękuję!
W załączniku przykład ze sprawdzaniem trzech znaków. W C1 formuła dla poprawności danych. Dopisz sobie wszystkie możliwe znaki, zaznacz kolumnę/zakres i wklej w pole "formuła" po wybraniu "niestandardowe": http://obrazki.elektroda.pl/6379597400_1...
Po wybraniu w okienku nazwy - chciałbym znać numer wiersza komórki w której znajduje się ta nazwa. Jak to dopisać w makro? Proszę o pomoc.
Zakres kategorii i kodow sie zmienia wiec musialbym za kazdym razem zmieniac zakres tabeli. Lista kategorii jest tak zrobiona ze uwzglednia jak sie cos dopisze do niej badz wykasuje.
Witam w nowym tygodniu, Musi Pan w swoim makro zdefiniować niestandardową obsługę błędów. Może to polegać na wpisaniu na początku kodu linijki: On Error Resume Next Dalej w kodzie testuje Pan zawartość obiektu Err. W Pana kodzie w linijce po instrukcji Name powinien Pan dopisać: If Err.Number = 0 Then Cell.Offset(0,3) = "OK" Else Cell.Offset(0,3) =...
A tak "na chłopski rozum"? Masz określone jakieś jasne zasady? Bo z opisu zrozumiałem na razie: jeśli jest zero, usuń. Jeśli nie ma, dopisz. Nie widzę w tym sensu :(
A nie dałoby się jeszcze ograniczyć tego zakresu kolumnami? Makro działa tylko w jednej kolumnie, czwartej (While Cells(wrs, 4 )). Doklej tylko te 6 linijek i dopisz warunek pętli 'Do'.
[syntax=vbscript]Sub SredniaDobowa() ow = Cells(Rows.Count, "A").End(xlUp).Row i = 1 y = 3 For x = 2 To ow d = Format(CDate(Cells(x, 1)), "yyyy-mm-dd") d2 = Format(CDate(Cells(x + 1, 1)), "yyyy-mm-dd") If d2 = d Then w = w + Cells(x, 5) i = i + 1 Else Cells(y, 8) = d If i > 0 Then Cells(y, 13) = w / i i = 0 y = y + 1 w = 0 End If Next End Sub [/syntax]...
W załączeniu Twój plik po małych zmianach. Jeden z Arkuszy nazwałem "BAZA". Tam w kolumnach A i B możesz dopisać dowolną ilość pracowników i numerów PESEL.
W A1 nie ma daty w formacie Excela... W A4 natomiast jest (dopisałem), chociaż na oko różnicy nie widać, po sformatowaniu.
Dzięki właśnie o to chodziło :) Dodano po 1 Dzięki dopisałem tę linijkę i działa .VotingOptions = "Tak;Nie" Dzięki
Poprawiłem trochę kod aktualizacji. Unieazleżniłem go bardziej od dodawania nowych arkuszy (chodzi o czyszczenie i autorozszerzanie) Ponieważ wiersz pierwszy jest inny w każdym z arkuszy trzeba było zrobić też trochę innych poprawek. Z wiersz + 2 też się trochę nie zrozumieliśmy, ale już wszystko działa. Zaznaczam że umowy E/2121... i podobne wylądują...
Czy da się zrobić, tak, że gdy te wartości z kolumny B będą odejmowane od A1 i gdy dojdzie do wartości "0" lub ujemnej to dopisze do ostatniej liczby w kolumnie B literkę "F" Ehe, da się :D , tylko przestanie Ci działać formuła z komórki E1 - na ogół Excel nie wykonuje działań matematycznych na wartościach tekstowych :sm31: Możesz zbliżony efekt uzyskać...
Pewnie by się dało, ale na fragmentach kodu wyrwanych z całości... Najprościej będzie napisać osobną procedurę, nie wiem, kopiowania arkusza z listą, przepisywania widocznych komórek i dopisać jej wywołanie w kodzie przycisku...
Może nie zauważasz :) Komputer za szybki? Zerknij do załącznika. :arrow: JVR - Zatrzyma się, gdy VBA "rozgrzeje się do czerwoności". Na różnych maszynach w różnych miejscach. U mnie Excel zawiesił się na amen.
ponieważ wiedziałem, że Twój pierwszy kod dotyczył całego arkusza to przed zastosowaniem wskazałem o którą kolumnę mi chodzi, potem dopisałem formatowanie, ale efekt jak pisałem wcześniej.
Nie będzie taki dobry wcale ;) Wszystko zależy, jak szeroki zakres operacji przeprowadzasz, czy faktury będą tylko krajowe, czy także walutowe, czy przewidujesz (a w zasadzie musisz) wystawianie korekt, czy będą faktury zaliczkowe i rozliczające... A o zachowywaniu nie wspomnę. Te wszystkie przypadki sprawiają, że programy okazują się lepsze. A są i...
Można do przycisku przypisać Np takie makro Option Explicit Sub cmdWstaw() Dim pozycja As Integer, numer As Integer Dim kom As Range pozycja = Sheets("Arkusz1").Rang... + 1 If pozycja = 77 Then MsgBox "Osiągnięto koniec zakresu w zestawieniu..." Exit Sub End If For Each...
Te błędy są spowodowane sposobem przeliczania arkuszy przez Excel. Mamy ograniczone możliwości sterowania tym. W tym przypadku można wprowadzić 2 uzupełnienia: 1) w formule 'oblicz' dopisać na końcu: [syntax=text]+0*LOS()[/syntax]Ta zmiana nie zmieni wartości wyniku, wymusi tylko przeliczenie formuły przy każdym przeliczeniu arkusza. 2) Ale to jeszcze...
dopisanie transpondera dopisanie pilota dopisanie kluczyka
silnik strugarka błąd toledo smród spalenizny
Nawigacja Mio nie świeci i nie ładuje map - przyczyny i rozwiązania Usterka w skrzynce bezpieczników lub łączu do BSI