chcę aby było sprawdzane potwierdzenie we wszystkich wierszach Chyba nie potrafisz jasno sprecyzować założeń swojego projektu :cry: Zamieść na forum konkretne pliki i powiązany z nimi szczegółowy opis co chcesz osiągnąć :?: Wybrałeś błędnie funkcję wyszukaj pionowo do przeszukiwania kolumn w której powtarzają się jakieś "potwierdzenia" - to "z definicji"...
Uruchom rejestrację makr Zrób co chcesz aby zrobiło makro Formułę musisz wpisać do komórki (a nie wklejać) Zatrzymać rejestrację i wejść w edycję makra Tam zobaczysz kod i formułę w takiej postaci jak chce VBA Dostosować makr do swoich potrzeb I tyle Mam nadzieję iż teraz jest to jasne.
Dalej jest źle bo nie to spakowałeś ale już stworzyłem sam. Na razie bez makro ale dodałem kolumnę pomocnicza D (Jak masz dane to prawy klawisz myszy na literę kolumny D i "Wstaw"
Domyślam się, że je po prostu prze-kleiłeś czyli zrobiłeś połączenie 2 plików które będzie działać jeżeli prześlesz oba pliki (word i excel) i znajdą się one w odpowiednich lokalizacjach. Aby załączyć wykresy Excela, tak aby po wysłaniu je edytować najłatwiej je osadzić tzn. w dokumencie programu Word kliknij wstaw obiekt -> Microsoft Excel Chart. dwuklik...
Zaznacz (+Ctrl) zakresy B1:B7, D1:D21, F1:F26 - wstaw wykres, dodaj trend
Wstaw skoroszyt
Wstaw obiekt ==> Wstaw dokument Excel lub Wstaw dokument Word ==> Wybór arkusza Excel'a lub tabeli Word'a ==> Powrót do WordPad'a
Wstaw lipne dane i załącz plik
Wstaw załącznik.
Witam Wartości w arkuszu gdy chcesz je w jednakowej odległości na osi x musisz zapisać jako tekst. W komórce przed wartością wstaw apostrof " ' ". Pozdrawiam Jarek
Tak się nie da. Usuń sumy częściowej. Dodaj kolumnę pomocniczą z funkcją suma.jeżeli() w której warunek będzie "odbiciem" "warunku" dla sumy częściowej i według tej kolumny posortuj dane (jako pierwszy klucz). Dopiero wtedy wstaw ponownie sumy częściowe.
Wstaw tu przykładowy plik.
Znajdź sobie jakiś kurs... Bardzo uniwersalna odpowiedź. Pasuje do każdego tematu we wszystkich działach. :arrow:tang0 przeanalizuj następujący Sub wstawianie_iksow() ile = 3 'liczba iksów, pobierana z komórki lub pola tekstowego formularza kolumna = 1 'Nr kolumny 1 dla A, 2 dla B itd wiersz = 1 'Nr wiersza For wstaw = 1 To ile Step 1 wynik...
Może wstaw .xls
[syntax=vbscript]Sub WstawWiersze() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual x = 2 While Cells(x + 1, "D") <> "" y = x + 2 Rows(y).Insert Cells(y, "C") = Cells(x + 1, "C"): Cells(x + 1, "C") = "" Cells(y, "D").FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)" Range("D" & y).AutoFill Range("D" & y & ":I" &...
Zależy, jak chcesz żeby się makro wykonywało. Albo zarejestruj makro i kod wklej tam, albo wstaw przycisk i w zdarzeniu przycisku.
Używałem tej opcji ale tylko dla "zwykłych tabel" czyli komórek obramowanych itp. Jak w Excel mam wstawione table przez "wstaw tabele" to nie ma możliwości wykonywania operacji na więcej niż jednym arkuszu w obszarze tabeli (opcja wstaw kolumny jest nie aktywna).
ale jak to zrobić? jestem całkowicie zielony, jest to moja pierwsza styczność z excelem :/ Nazwy definiujemy w menu Wstaw->Nazwa->Utwórz (excel2000) W załączeniu przerobiony przykład z wykorzystaniem zdefiniowanych nazw.
jezeli bedzie to robic na na jednym i tym samym kompturze to pocelam scriptit, mam kilka "programow" w tym napisanych np: nowy word, wstaw ze schowka, wstaw date, ustaw drukarke oraz strone, wydrukuj ...
Funkcja taka to: "=JEŻELI(B4<50;B4+0,35*B4;JEŻELI(B4&l... zamiast 'B4' wstaw sobie komórkę w której masz daną
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
zobacz zamiast b2 wstaw e2
Tam robiło się to podobnie, tylko definiowałeś nazwę (wstaw->nazwa->definiuj czy jakoś tak)
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
Moja propozycja: jedna para przycisków +/- i przypisane do nich makr: [syntax=vb]Sub wstaw() Rows(ActiveCell.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(ActiveCell.Offset(1, 0).Row, "H").FormulaR1C1 = "=R[-1]C" End Sub[/syntax] i [syntax=vb]Sub usuń() Rows(ActiveCell.Row).Delete shift:=xlUp End Sub[/syntax] Przed przyciśnięciem...
Jak masz kłopot ze wstawieniem to spakuj to zipem A na temat zrób tak jak radzi paweliw wstaw hiperłącza odwołujace się do tego samego dokumentu i już
Może więc takie rozwiązanie jak w załączniku? Menu kontekstowe PPM jest zablokowane, ale jeśli nawet ktoś je wywoła, to nie może wykorzystać wklejania: http://obrazki.elektroda.pl/7679986700_1... Na wstążce zablokowane są funkcje przycisków: http://obrazki.elektroda.pl/8622171000_1... Cały czas jednak mam wrażenie, że takie całkowite...
Dzień dobry, Jeżeli położenie komórek jest stałe, to znaczy w kolejnych komórkach ma Pan tekst oryginalny (w przykładzie A1), wynik (w przykładzie B1) i położenie "X" w tekście wynikowym (w przykładzie C1) może Pan nadać nazwy swojej formule oraz jej parametrom (zgodnie z zasadami Excela). Można to zrobić w Menedżerze Nazw (Excel >= 2007) lub przez...
Proponuję na początek rozłożyć cały projekt na kilka etapów i poszczególne mechanizmy automatyzacji wprowadzać stopniowo :idea: zainstalowanie dni świątecznych z arkusza "DNI ŚWIATECZNE" do już wstawionego formatowania warunkowego Najłatwiejszy element :D można go wprowadzić tak jak na zrzucie :spoko: 1167764
Czerwonym się nie przejmuj. Wstaw w kod formularza (Private)... Wyżej masz załącznik z przykładem.
Lub otworz bez makrow i w editorze VBA (Alt+F11) najdz (Ctl+F, caly projekt) 'Application.Visible = False' i na poczatku tej linji wstaw apostrof '
W miejsce 'Sheets("Sheet2").Select' umieść wstawianie arkusza (Sheets.Add) i nadanie nazwy (Activesheet.Name). Jeśli wartości w kopiowanych komórkach nie są unikatowe, musisz najpierw sprawdzić czy arkusz z taką nazwą istnieje.
Napisałeś pętlę nieskończoną. Nie do końca łapię co chcesz zrobić. Może wystarczy licznik pętli przesunąć poza gałąź If Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = "" If Range("A" & i).Value = 37258 Then Range("A" & i + 1).EntireRow.Insert...
W takim razie załącz plik bez kodu, żeby można było dodać kod. P.S. Dlaczego kolumna A jest pusta? Skoro tak ma być, to prosimy o przykładowy plik...
Super. Kliknąłem podziękowanie :D. Dzisiaj w pracy przetestuję (nocna zmiana). Czy te makro dodajemy jakoś specjalnie do skoroszytu czy też normalnie na zasadzie makro/wstaw nowe?
Może masz w zakresie "puste"komórki. Najlepiej wstaw przykładowy plik.
To bylo tylko fragment makro Wstaw jak w Ciebie - 'On Error Resume Next' - gdy nie ma pustych komorek(xlCellTypeBlanks)
[syntax=vbscript]Sub Naglowki() If Application.CountIf(Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), [A1]) > 1 Then Exit Sub w = 2 While Cells(w, 1) <> "" n = w + 1 If Cells(n, 1) <> Cells(w, 1) And Cells(n, 1) <> "" Then Rows(n).Insert Range("A1:E1").Copy Cells(n, 1) w = w + 2 End If w = w + 1 Wend End Sub [/syntax]
To nie wklejaj tylko wstawiaj komórki. Prawy klawisz myszy "Wstaw skopiowane komórki..."
Wstaw plik xml
Wstaw co już zrobiłeś.
Nie chodzi o to żeby ją szukać, tylko żeby zliczyć ilość komórek w których ona występuje (w danej kolumnie). Kolejna prośba o instrukcję Zakres komórek od A1 do AS100 jeśli pusta komórka wstaw "0"
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
Wstaw arkusz z danymi.
Czy ktoś pomoże W LibreOffice można to zrobić w dwóch krokach przy użyciu wyrażeń regularnych :spoko: 1159078 1159079 W Wordzie zapewne też to można zrobić, ale Microsoft ma odmienne zasady tworzenia wyrażeń regularnych :cry:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Target.Offset(0, -2) = Date Target.Offset(0, -1) = Year(Date) & "/" & Target.Row - 1 End If End Sub
Przepraszam .... Cells(2, lCol).Offset(, 1).FormulaR1C1 = "=Sum(R4C" & lCol & ":R3000C" & lCol & ")"
Może wstaw jakiś załącznik.
Przeanalizują załącznik. Opcja szukaj w pomocy: "dodawanie dat", wynik powinien zwrócić ci: "Dodawanie liczby miesięcy do daty" Przetestowane na Office 2003
Ja po prostu nie wiem o co Ci chodzi.:)
[syntax=vbscript]Public ff As String Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then s = Replace(Target, ",", ".") Application.EnableEvents = False If Left(ff, 1) = "=" Then If s >= 0 Then Target = ff & "+" & s Else Target.Formula = "=" & s End If Application.EnableEvents = True End If End...
No to akurat rozwiązanie z kodem, ale skuteczne. :) Rozpakuj załącznik, otwórz Liczniki i naciśnij 'Importuj'.
Zmień kod np tak :spoko: : [syntax=vbscript]Sub Add_ret_Click() Dim rngTmp As Excel.Range Dim rngBlanks As Excel.Range Set rngTmp = Range("B24:C24") 'Tw?j obszar On Error Resume Next Set rngBlanks = rngTmp.SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If Not rngBlanks Is Nothing Then MsgBox "Uzupe?nij puste kom?rki" & vbNewLine & "pusta kom?rka...
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...
Musisz się zdecydować albo wpisujesz godziny jako tekst (wtedy w cudzysłowiu) albo jako liczby. Jeżeli chcesz to dalej np. sumować to proponuję konsekwentnie jako liczby. Z tym że trzeba pamiętać, że wpisane 8:00 to liczba równa 0,333.. a tylko prezentowana w formacie godzinowym. Czyli np. 12:00 to 0,5 (część doby), 6:00 to (0,25 część) doby. Do obliczeń...
Wstaw załącznik z plikiem
Wstaw plik jako załącznik.
Skorzystaj z funkcji POWT() podając jako drugi argument ilość znaków wymaganą do wstawienia. Jeżeli ilość ta jest zmienna a z tego co przeczytałem wynik ma mieć stałą ilość znaków wartość tą możesz obliczyć odejmując od wymaganej aktualną długość łańcucha zmierzoną za pomocą funkcji DŁ(). Obie w funkcjach tekstowych Excel-a. Edit: Można też mierzyć...
Super pewnie ale troszke nie wiem jak z tego skorzystać jak przekopiowuje do module to nie moge odpalic dacie jakas podpowiedz W swoim 'userform' musisz wywołać funkcje 'pastepicture' i w zależności od posiadanej wersji systemu będzie to win32 lub win64. (patrz co podał ci (at)adamas_nt chociaż on ładuje obraz do 'ramki')
[syntax=vb]For i = 1 To 1000 r = i * 4 ark.Range("B" & r).Formula = "=IF(B" & r - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r - 1 & ",'Lista pracownikow'!$D:$D,0),1))" ark.Range("B" & r + 1).Formula = "=IF(B" & r - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r - 1 & ",'Lista pracownikow'!$D:$D,0),8)&"" | ""&INDEX('Lista...
Wstaw plik to popatrzę.
co musze zrobic aby dopisac tekst w komorce A29 lub A48 i A32 i A51 To puste komórki makro określa, ile chcesz skopiować, ponieważ liczba wierszy jest różna w różnych arkuszach. Chyba że tam Wstaw komentarz.
Zobacz tak: [syntax=vbscript]Sub Kopiuj_MG() Dim x As Long, n As Long Application.ScreenUpdating = False Sheets("Arkusz1").Select x = 2 Do While Range("A" & x).Value <> vbNullString If Cells(x, "C") > 1 Then Range("A" & x & ":C" & x).Copy n = Range("C" & x).Value Range("A" & x & ":C" & x + n - 2).Insert xlShiftDown...
Z rysunku w pierwszym poście wynika, że chodzi o procedurę 'Sub Dodaj' (masz ją w module, uruchamiana jest przyciskiem [Dodaj]). [syntax=vbscript]Sub Dodaj() Administrator = UserForm1.CheckBox1.Value Kablowiec = UserForm1.CheckBox2.Value Kierowca = UserForm1.CheckBox3.Value Lp = UserForm1.TextBox1.Value stopien = UserForm1.TextBox2.Value Imie = UserForm1.TextBox3.Value...
Podałeś taki niestandardowy format z łącznikami między elementami czasu, zamiast dwukropków, więc zrozumiałem, że to jest istotne. Jeśli jednak chcesz mieć "prawdziwą" datę, to uzupełnij swój kod tak: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B1:C10")) Is Nothing...
W takim razie spakuj i wystaw tutaj. Potraktuj Zip'em lub Ra'rem i wstaw plik wynikowy.
NIE MA !!! Tak się kończy inwestowanie w prowizorkę JackuCZ, strasznieś nerwowy. Że Ty nie umiesz to nie znaczy że się nie da. Kolego jatoKacper, musisz sobie uzmysłowić do czego służy ta opcja. Gdyby nie dało się w kilku pracować na jednym pliku, jak sugeruje kolega JacekCZ, funkcja udostępniania skoroszytu nie miałaby kompletnie żadnego sensu. A...
Pytanie do autora tpiku Teraz zwróciłem na to uwagę. Jak zrobiłeś nazwy tabel "Czesci", "Glowna" itd. że edycja ich jest niemożliwa (W menadżerze nazw - szary ekran w adresie tabeli) Jak to osiągnąć? Dodane po chwili ----------------------------------------... Już wiem: wstaw tabelę, a potem w menadżerze nazw zmiana nazwy.
Tak to jest, jak się zmienia koncepcja w trakcie pisania kodu.:) [syntax=vbscript]Sub Sciezki() Sheets("Archiwum").Select q = 3 nw = Sheets("Sciezki").Cells(Rows.Count, "A").End(xlUp).Row + 1 While Cells(q, "T") <> "" a = Split(Cells(q, "T"), ";") If UBound(a) > 0 Then For y = 0 To UBound(a) Range("A" & q & ":T" & q).Copy Sheets("Sciezki").Range("a"...
A jak by można to zapisać jeśli kolumny nie są obok siebie ? Nie są ABC tylko MPT. W przypadku mojej formuły wystarczy wpisać właściwe komórki. W przypadku proponowanym przez Kolegę cbrman najprościej w nieużywanym miejscu arkusza zrobić tablicę wpisując obok siebie odniesienia do właściwych komórek i ukryć ten obszar lub wyłączyć wyświetlanie w tym...
Był błąd w kodzie. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then r = Target.Row If Cells(r, 3) = "" Then Cells(r, 3) = Now & " - " & Target & " - " & Environ("Username") Else Cells(r, 3) = Cells(r, 3) & vbNewLine & Now & " - " & Target & " - " & Environ("Username") End If End If End Sub [/syntax]
Dane docelowe będą bardziej skomplikowane, ale na podstawie "szablonu" sam będę próbował dostosować do moich potrzeb. Potrzebuję wsparcia na start, bo VBA jeszcze nie wchodzi jak trzeba Jeśli dobrze odczytuję Twoje zadanie :?: - uzyskanie efektu takiego jak na zrzucie 1144985 To na początek możesz wypróbować makro z załączonego pliku Protraport.xlsm...
To dokładnie tak jak napisałem : (Alt +F11) - pojawia się okno VBA. Wskazujesz po lewej (klikasz 2 razy) na nazwie arkusza, w którym chcesz zrobić taką zależność. i tutaj zrobiłem (przyznaje się) mały błąd. Kod umieściłem w This Workbook - a nie w konkretnym arkuszu. Kod w arkuszu (np. w Arkusz1) wyglądać ma tak: [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal...
Myślę, że najlepsze wyniki czy nie od końca, ale od początku [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, r As Long, c As Long Application.ScreenUpdating = False i = 2 r = i While Cells(i, 11) <> Empty If Cells(i, 11) <> Cells(i + 1, 11) Then Rows(i + 1).Insert For c = 5 To 7 Cells(i + 1, c + 3) = Application.WorksheetFunction.Sum(Range(...
Druga część warunku pętli to przerwanie w razie powtórnego uruchomienia. Wiersz(e) należy wstawić o jeden niżej (Range("A" & i + 1).EntireRow.Insert) oraz (i = i + how_many + 1) Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = ""...
Zazwyczaj funkcja powinna zwrócić wartośc Spójrz w pomocy VBA przykład funkcji(Help - Writing a Function Procedure) Twoja funkcja nie zwraca żadnej wartości.
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
Najpierw makro, które wstawi przecinki.
Wstaw/Hiperłącze (Alt+Ctrl+h)
w przykładzie zeszyt3 [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 1).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub[/syntax] A tu kod z nazwą - ale nie...
Spróbuj z kopiowaniem w pętli. Przykład w załączniku. Edit: Zacznij od Range.Clear (po With), przeoczenie...
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
Poprzedni plik i funkcja, to były przykłady. W tym pliku masz gotowca.
Do takich celów lepiej wykorzystaj kreator korespondencji seryjnej utwórz formularz w Wordzie i wstaw pola bazy danych jako bazę danych wykorzystaj arkusz Excela i wtedy możesz automatycznie generować dokumenty seryjne.
Przykładowe rozwiązanie z funkcją HIPERŁĄCZE w załączniku.
W miejsce funkcja w moim przykładzie wstaw całą swoją funkcję, z pominięciem znaku = . W pierwszym przypadku musisz ją powtórzyć dwukrotnie. Swoją drogą to jeśli to jest funkcja, to nie powinna mieć średników zamiast przecinków oddzielających argumenty??
Oczywiście, że można Myślałem, że już to zrobiłeś to sam
Przyjąłem Twoje rozwiązanie bez wymyślania nowych lepszych. Popatrz jak działa funkcja warunkowa JEŻELI . Zwróć też uwagę na adresowanie bezwzględne =$L$7 Poprawiony z grubsza plik w załączniku. Z resztą chyba sobie poradzisz?
Witaj [syntax=vb] Sub InsSubtot() Dim bs As Range Set bs = ThisWorkbook.Sheets(1).Cells Dim r&, rp& ow = bs(Rows.Count, 8).End(xlUp).Row r = 2: rp = 2 While bs(r, 8) <> Empty r = r + 1 If bs(r, 8) <> bs(r - 1, 8) Then bs.Rows(r).Insert bs(r, 5) = "SUMA" bs(r, 6) = Application.Sum(Range(bs(rp, 6), bs(r - 1, 6))) bs(r, 5).Resize(1,...
?? Weź może wstaw plik żeby było jaśniej :)
Zrobiłem coś takiego i dalej nic, a co gorsza nawet nie ma żadnego błędu a baza msql dalej nie posortowana. Proszę dodarcie coś mądrego co tu może być nie tak. Połączenie z bazą działa na 100% bo dodaję i usuwam rekordy Nie gorączkuj się, nie wiem jak sprostać Twojemu wyzwaniu dodania czegoś mądrego, ale szczerze mówiąc "problem" jest tak prozaiczny,...
zdecydowanie początkujący Ale pomoc podręczna mimo wszystko jest dostępna ... :-) A z tym poniżej, jak działa ? [syntax=vba]Option Explicit Private Sub Workbook_Open() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets(Array("Inne", "Beton, pompy", "Stal", "Elementy murowe i zaprawy", "Kruszywa", "Szalunki", "Sprzęt", "Żurawie", "Kontenery",...
Nad opisami netto, vat, brutto wstaw sobie funkcję =SUMY.CZĘŚCIOWE(109;C6:C123) i będziesz miał sumy poszczególnych wartości w zależności od filtra :)
Jednym z rozwiązań jest zmiana formatu wyświetlanych liczb na niestandardowy z typem: [syntax=text]rrrr-mm-dd;;;[/syntax] albo formuła (przykład dla komórki I6 arkusza "pełne dane"): [syntax=text]=JEŻELI(CZY.PUSTA(wczasy!C5...
Dzień dobry, Nie wiem czy o to Panu chodziło, ale rozwiązanie wydaje się dość proste. Po zastosowaniu formuł jak w przykładzie puste wiersze można zamaskować filtrem (tak chyba najprościej).
do C1 wstaw JEŻELI(CZY.PUSTA(A1);"";B1) i ukryj kolumne B, było tutaj też: http://www.elektroda.pl/rtvforum/topic12...
Najprostsze co można zrobić (i najmniej odporne na "sabotaż" ze strony użytkownika). Działa w sumie jak zautomatyzowana funkcja wyszukiwania. Wszystko dzieje się w obrębie danego skoroszytu. W przypadku pobierania danych zewnętrznych należy się zastanowić w jaki sposób ma je pobierać (otwarcie zeszytu z danymi w tle, ado, querytables, inne). W skanerze...
Użyj formuły JEŻELI. =JEŻELI(A1>10;"i";"... Przy czym w kolumnie B ustawiasz czcionkę Webdings w kolorze czerwonym.
[syntax=vb] Sub karty() Dim src As Worksheet, r&, c& plk = Application.GetOpenFilename If plk = False Then Exit Sub Workbooks.Open plk Set src = ActiveWorkbook.Sheets(1) ThisWorkbook.Activate r = 2 With src While .Cells(r, 1) <> "" For c = 1 To 8 x = .Cells(r, c) If x <> "" Then For i = 1 To Len(x) Cells(c * 3 + 2, i) = Mid(x, i,...
Zdaje się, że dla każdego powiatu musisz mieć osobne procedury dla przycisków. W przykładzie makro "orientuje się" po nazwie miasta wpisanej w komórce zakrytej przyciskiem.
excel makro wstaw excel makro wstaw wiersze excel makro wstaw wiersz
picasso benzyna kontrolki zmywarka amica silnik subwoofer półka
moduł komfort termet quadral wzmacniacz
VN02H STMicroelectronics – zamiennik, czym zastąpić inteligentny high-side switch Visteon 281077 (Renault R & GO) 32-Pin Connector Pinout, CAN Bus, Speaker Wiring, Security Pairing