excel select

Znaleziono około 2211 wyników dla: excel select
  • Makro VBA nie zwraca wyniku w Excel - błąd Select Case

    Kod z załączonego pliku ma błąd logiczny, bo po przejściu przez wybór zmienna pk_select_case ma wartość, która nigdzie dalej nie jest wykorzystana. P.S. Mój kod działa, ale jest bez sensu właśnie ze względu, który opisałem. Powinno być tak, jak napisałeś [syntax=vbscript]this.Cells(i, 9) = "SEC"[/syntax]

    Programowanie Początkujący   15 Sty 2020 20:13 Odpowiedzi: 5    Wyświetleń: 348
  • Excel - Pobieranie danych z zamknietych plików z uzwględnieniem daty

    Najłatwiej za pomocą kwerendy do arkusza Excel SELECT * FROM `F:\ATS\Ats 1.xlsx`.`Arkusz1$` `Arkusz1$` WHERE (`Arkusz1$`.DataZ <= Date()) AND (`Arkusz1$`.DataZ >= Date()-2) DataZ - jest naglowek kolumny(data) wg ktorej chcesz dane

    Software serwis   27 Lut 2015 08:02 Odpowiedzi: 1    Wyświetleń: 663
  • Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

    Czekaj (1min)...
  • [EXCEL] [EXCEL][VBA] - Jak użyć zmiennej w SQL SELECT w Excelu?

    Coś takiego? [syntax=vb]sSQL = "SELECT * FROM odbiorcy WHERE [" & wyszukaj & "] = '" & wyszukaj_nazwa & "' " [/syntax]

    Programowanie Początkujący   17 Lis 2012 22:17 Odpowiedzi: 2    Wyświetleń: 2622
  • REKLAMA
  • [EXCEL] Jak odczytać wartość zaznaczonej komórki.

    Dim i As Integer i = ActiveCell Range("C6") = i Aby ustawić komórkę jako aktywną: Range("A2").Select

    Programowanie   05 Lut 2005 12:45 Odpowiedzi: 8    Wyświetleń: 16044
  • [VBA EXCEL] VBA Excel: Makro kopiujące dane do arkuszy według dni tygodnia w Excel 2010

    Jaky format w A1? Sprobuj Sheets(Range("A1").Text).Select

    Programowanie Początkujący   15 Lip 2015 09:08 Odpowiedzi: 5    Wyświetleń: 1971
  • REKLAMA
  • MS EXCEL 2010 - Makro odwołania przycisku do komórki w innym arkuszu

    [syntax=vb]Range("Arkusz2!C4").Select[/s...

    Programowanie Początkujący   31 Sty 2015 11:16 Odpowiedzi: 3    Wyświetleń: 1977
  • Excel 2003 VBA - Makro kopiujące formułę do pierwszej pustej w kolumnie B

    Podmień [syntax=vb]Range("A2:A500").Select[/synt... na [syntax=vb]Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Select[/syntax]

    Programowanie Początkujący   26 Paź 2013 17:06 Odpowiedzi: 7    Wyświetleń: 1458
  • [Excel VBA] Usprawnienie makra w Excel VBA - jak uniknąć powielania pętli For?

    [syntax=vb]For i = 3 To 31 Select Case i Case 3 To 7, 12 To 27, 30, 31 '[dzialanie] End Select Next [/syntax]

    Programowanie   26 Sty 2016 21:08 Odpowiedzi: 6    Wyświetleń: 957
  • REKLAMA
  • Excel - VBA/MAKRO Automatyczne wysyłanie mailem zakresu komórek

    Jeden wyżej, czyli r-1 po prostu ;) [syntax=vbscript]If c > 5 And r > 1 Then Range(Cells(r - 1, c - 5), Cells(r, c - 1)).Select[/syntax]

    Programowanie Początkujący   09 Paź 2018 08:35 Odpowiedzi: 4    Wyświetleń: 3798
  • VBA EXCEL - Wyznaczenie kilku zakresów z użyciem zmiennej.

    [syntax=vbscript]i_row = 6 Set rng1 = Worksheets("Arkusz1").Range("D1:D" & i_row & ",H1:H" & i_row) rng1.Select[/syntax]

    Programowanie   26 Sie 2018 15:56 Odpowiedzi: 4    Wyświetleń: 1146
  • Metoda Select z klasy Range nie powiodła się - makro Excel

    wyskakuje ten sam błąd w piątej linijce kodu: Range("E2").Select Jest to właśnie wynikiem wtłoczenia wszystkich poleceń do podprocedury "CommandButton1_Click". Chodzi o to, że wszystkie wywołania obiektów, bez jawnej deklaracji przynależności, odnoszą się do obiektu bieżącego, z którego są wywoływane, to swego rodzaju "dziedziczenie". Jeśli np. wywołujemy...

    Programowanie Początkujący   07 Kwi 2019 19:43 Odpowiedzi: 9    Wyświetleń: 4929
  • EXCEL VBA -Zaznaczanie zakresów danych w kolumnach (kilku na raz)

    Użyj metody [url=https://msdn.microsoft.com/en-us/li... [syntax=vb]Union(Range("a2", Range("a2").End(xlDown)), Range("c2", Range("c2").End(xlDown))).Select[/syntax...

    Software serwis   23 Paź 2015 16:50 Odpowiedzi: 2    Wyświetleń: 3597
  • Excel VBA - Pętla For next w połączeniu z Select case - ustawienie parametrów

    Na pewno błąd jest w wierszu: [syntax=vbscript]Progresywne = Progres + Progres[/syntax] Nie zachowujesz dotychczas obliczonych składników, tylko ostatni pomnożony przez 2. Powinno być: [syntax=vbscript]Progresywne = Progresywne + Progres[/syntax]Nie wykluczam, że mogą być też inne błędy, ale do dokładnej analizy potrzebny jest załącznik w pliku.

    Programowanie Początkujący   09 Mar 2020 11:16 Odpowiedzi: 5    Wyświetleń: 645
  • REKLAMA
  • VBA Excel – makro do wyszukiwania tekstu i zaznaczania całej kolumny z wynikiem

    Z czym dokładnie masz problem? Nie napiszemy całego skryptu za Ciebie. Pokaz, co już masz, a wtedy doradzimy. Kolumnę zaznacza się tak: [syntax=vb]Columns(2).Select[/syntax]

    Programowanie Początkujący   13 Lut 2015 23:57 Odpowiedzi: 4    Wyświetleń: 2523
  • EXCEL Kopiowanie wierszy z innego arkusza niż aktywny

    .. Nie wiem jak zmienić w pierwszej części programu aby kopiował z innego arkusza... [syntax=vb] Sheets("Arkusz1").Select Range("G20").Select Selection.Copy Sheets("Arkusz2").Select Range("G20").Select ActiveSheet.Paste[/syntax]

    Software serwis   11 Lip 2013 08:43 Odpowiedzi: 6    Wyświetleń: 1968
  • Excel VBA: Kod realizujący skrót Ctrl+Shift+Spacja na zakresie o zmiennej ilości wierszy

    (at)maciejgonet Zaciekawiło mnie Twoje rozwiązanie. Pozwoliłem je sobie uprościć i wyszła jedna linijka. [syntax=vbscript]Sub Zaznacz() Range("A1:D" & Columns("A:D").Find("*", SearchDirection:=xlPrevious).Row).Select End Sub[/syntax]

    Obsługa oprogramowania   24 Lis 2021 06:15 Odpowiedzi: 8    Wyświetleń: 309
  • Jak zaprogramować aby excel automatycznie po 3 polach w prawo cofał się na dół.

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Cells(Target.Row + 1, 1).Select End Sub [/syntax]

    Obsługa oprogramowania   12 Sty 2022 11:41 Odpowiedzi: 4    Wyświetleń: 213
  • Excel: Jak przerobić kod VBA do szychtownic z osobnymi arkuszami wzorów?

    To ten sam problem, co w przypadku copy-paste. Jesteś w kodzie arkusza i musisz kod przenieść do modułu, lub w tym przypadku co najmniej podawać nazwę obiektu nadrzędnego Range, Cells, Shapes, itp Sheets("Menu").Select Sheets("Menu").Range&#...

    Software serwis   20 Paź 2016 18:11 Odpowiedzi: 52    Wyświetleń: 12154
  • EXCEL - przycisk VBA wyrzucający wartość kolejnych komórek w kolumnie w innej

    Może to być Range("C3").Select

    Programowanie Początkujący   06 Lis 2019 03:50 Odpowiedzi: 5    Wyświetleń: 498
  • Jak w VBA otworzyć, skopiować dane i zamknąć plik o zmiennej nazwie?

    Problem w tym że nie odróżniasz nazwy pliku od samego pliku: [syntax=vbscript]Sub OpenClose() ChoiceFileName = Application.GetOpenFilename("Excel-files... 1, "Select One File", , False) If ChoiceFileName = False Then Exit Sub Dim wBook As Workbook Set wBook = Workbooks.Open(Filename:=ChoiceFileName, AddToMru:=False) Application.Wait (Now + TimeValue("0:00:05"))...

    Programowanie Początkujący   05 Kwi 2017 09:49 Odpowiedzi: 6    Wyświetleń: 1587
  • [Excel VBA] Jak zmienić komórkę na kolejną po restarcie?

    Nie wiem czy dobrze rozumiem, bo jakoś dziwnie to napisałeś, ale wydaje mi się, że potrzebujesz zmienić aktywną komórkę. [syntax=vbnet]ActiveCell.Offset(1, 0).Select[/syntax]

    Programowanie Początkujący   20 Lut 2024 13:20 Odpowiedzi: 4    Wyświetleń: 171
  • Makro Excel-SolidWorks: Dopisywanie konfiguracji z poprawnym formatem liczby

    W kodzie arkusza działa prawidłowo. Może spróbuj po wartości zamiast po długości:[syntax=vb]ItemNo = XlApp.Worksheets(1).Cells(LastRow, 1) Konf_o = Val(Right(ItemNo, 3)) Konf_n = Konf_o + 1 Select Case Konf_n Case 1 To 9 Konf_n_s = "00" & Konf_n Case 10 To 99 Konf_n_s = "0" & Konf_n Case Else Konf_n_s = trim(Str(Konf_n)) End Select[/syntax]

    Programowanie Początkujący   06 Wrz 2013 11:15 Odpowiedzi: 15    Wyświetleń: 2052
  • Jak stworzyć przycisk w Excel VBA, który zwiększa wartość komórki o 1?

    W wybranej w sensie we wskazanej w kodzie? [syntax=vba] Range("A1").Select ActiveCell.Value = ActiveCell.Value + 1[/syntax]

    Programowanie   29 Kwi 2018 21:40 Odpowiedzi: 5    Wyświetleń: 759
  • [VBA EXCEL] Selection.Replace - Błąd zmiany . => ,

    Witam Mam kod programu w którym występuje coś takiego [syntax=vb] Range("C2:" & "J" & LastW).Select 'LastW - to ostatni nie pusty wiersz w określonym zakresie Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False [/syntax] kod prosty, można rzecz standardowy...

    Programowanie Początkujący   26 Sty 2012 10:42 Odpowiedzi: 4    Wyświetleń: 2697
  • Makro Excel pobierz dane - Makro pobierające dane w odpowiednim porządku

    Problem polega na tym, że potrzebuję właściwie wskazać zakres do skopiowania https://docs.microsoft.com/pl-pl/previou...

    Obsługa oprogramowania   24 Wrz 2020 06:34 Odpowiedzi: 4    Wyświetleń: 954
  • Excel - VBA - Uruchamianie makra poprzez VBA na podstawie tekstu

    Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range If Not Application.Intersect(Rows(5), Range(Target.Address)) Is Nothing Then For Each Komorka In Target.Cells Select Case Komorka.Value Case "TAK": . . . End Select Next End If End Sub

    Programowanie Początkujący   09 Paź 2018 12:26 Odpowiedzi: 19    Wyświetleń: 2622
  • Excel: Makro do wyszukiwania tekstu i wklejania w inne komórki arkusza

    Co masz na myśli pisząc "karta"? Dla arkuszy skoroszytu można zagnieździć kod w kolejnej pętli For ark = 1 to thisworkbook.sheets.count ' lub liczbowo indeksy Np 2 To 4 sheets(ark).select 'kod Next

    Software serwis   19 Sie 2009 11:42 Odpowiedzi: 10    Wyświetleń: 2617
  • Excel - Makro - kopiowanie wierszy do jednego pliku

    1. Wyrzuć "górne" r=r+1, ustaw (u góry) r=2 jeśli... sam już nie wiem. Wypróbuj. 2. Nie ta metoda. Musiałbyś copy-paste i wybierając (select) wiersz (zakres) docelowy. P.S. Zmykam. Dobranoc ;)

    Software serwis   14 Lut 2014 00:31 Odpowiedzi: 22    Wyświetleń: 2448
  • Jak skopiować wiersze z jednego pliku Excel do innego za pomocą VBA?

    Range("k:k") Range(k:k) - bez "" Dodano po 10 Przepraszam za błąd, winno być np.: Rows(k).Select

    Software serwis   21 Lut 2007 10:26 Odpowiedzi: 8    Wyświetleń: 22489
  • Jak zaznaczyć zakres wierszy w Excel VBA używając zmiennych?

    Potrzebujesz jeszcze podstawić Nr kolumn. Zapis: Range(Cells(wiersz,kolumna),Cells(wiersz... Oczywiście tak: p = "A" & 1 k = "B" & 15 Range(p, k).Select lub: p = 1 k = 15 Range("A" & p, "B" & k).Select też działa.

    Software serwis   02 Lut 2009 13:37 Odpowiedzi: 5    Wyświetleń: 4954
  • excel - najczęściej występujący tekst w filtrowanej tabeli

    Select txtcol, count(txtcol) from tabela group by txtcol Oops, zapomniałem, w Excelu ma być... a to jednak nie baza danych.

    Programowanie Początkujący   20 Kwi 2023 23:10 Odpowiedzi: 8    Wyświetleń: 525
  • EXCEL VBA - powrót do komórki przed włączeniem makra

    A jak to makro uruchamiasz, przyciskiem, skrótem? Wystarczy: [syntax=vbscript]Sub qq() Dim r As Range Set r = Range(ActiveCell, ActiveCell) Range("A1").Select MsgBox "Wybrałem A1." Range(r, r).Select MsgBox "Wybrałem poprzednią komórkę." End Sub [/syntax]

    Obsługa oprogramowania   14 Lis 2018 13:05 Odpowiedzi: 4    Wyświetleń: 882
  • [Excel] - Makro podświetlające aktywny wiersz i kolumnę

    Myślałem, że Pan odkładanie z powrotem swój kod [syntax=vb] Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'Step 1: Declare Variables Dim strRange As String 'Step2: Build the range string strRange = Target.Cells.Address & "," & _ Target.Cells.EntireColumn.Address & "," & _ Target.Cells.EntireRow.Address...

    Software serwis   06 Lip 2014 21:30 Odpowiedzi: 4    Wyświetleń: 1518
  • [VBA EXCEL] Zmiana nazwy wykresu i automatyczne nazywanie po skopiowaniu

    Albo tak: :D [syntax=vbscript]ActiveSheet.ChartObject... 2").Activate ActiveChart.ChartArea.Copy Range("B18").Select ActiveSheet.Paste ActiveSheet.Shapes(ActiveSheet.Shapes.Co... = "Chart 3"[/syntax]

    Programowanie Początkujący   26 Wrz 2018 21:33 Odpowiedzi: 3    Wyświetleń: 540
  • Excel VBA – jak scalić i obramować komórki kodem w programie magazynowym?

    Ten plik działa prawie poprawnie. Jedyne, co mi się rzuciło w oko to brak nazwy magazynu na arkuszu. Powód: Range("J1").Select ActiveCell.FormulaR1C1 = x Range("H1:M1").Sel... "x". Wyszukiwanie arkuszy OK.

    Software serwis   04 Mar 2014 10:41 Odpowiedzi: 116    Wyświetleń: 28388
  • Excel - Jak ukryć wiersze 60-70, gdy pierwsza komórka ma wartość 0?

    Może coś takiego: [syntax=vb] Sub ukryjWiersze() Dim i As Integer Dim selRange As String For i = 60 To 70 selRange = "A" & i If range(selRange).Value = 0 Then range(selRange).Select Selection.EntireRow.Hidden = True End If Next i End Sub [/syntax]

    Software serwis   23 Kwi 2015 10:54 Odpowiedzi: 2    Wyświetleń: 1308
  • Excel VBA - Jak stworzyć schemat magazynowy z gradacją papierów?

    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]

    Obsługa oprogramowania   08 Gru 2018 09:13 Odpowiedzi: 19    Wyświetleń: 1953
  • Excel-makro-kopiuj i wklej do nowo utorzonego arkusza jeśli suma >20

    A cóż to ma być: Range( "n+1:n+1" ).Select ? ;)

    Programowanie Początkujący   20 Wrz 2017 09:13 Odpowiedzi: 26    Wyświetleń: 2448
  • Excel- Kopiowanie listy z inego arkusza i jej numerowanie

    Po pierwsze, nie sprawdzaj czy jest aktywna komórka w kolumnie "C" - jeśli ma być tam aktywna to ją uaktywnij bez sprawdzania, np. Application.WorksheetFunction.CountA(Col... , o ile kolumna jest ciągłą i nie zawiera przerw, to pierwszym wierszem z wolną komórką będzie o 1 większy niż zwróci to funkcja tzn. [syntax=vb]wiersz=Application.WorksheetF...

    Software serwis   24 Sty 2013 21:59 Odpowiedzi: 8    Wyświetleń: 2343
  • Excel VBA - Makro do generowania wpisów z inkrementacją o 10

    Podepnij sobie następujący kod pod przycisk i przetestuj [syntax=vb]Dim lLstRw& Dim sLiczba$ lLstRw = Cells(Rows.Count, 7).End(xlUp).Row Select Case lLstRw Case Is = 1 Cells(lLstRw, 7).Offset(1, 0).Value = Cells(2, 3).Value & "_xyz_1" Case Is = 2 Cells(lLstRw, 7).Offset(1, 0).Value = Cells(2, 3).Value & "_xyz_10" Case Is > 2 sLiczba = Mid(Cells(lLstRw,...

    Programowanie Początkujący   17 Lip 2013 10:29 Odpowiedzi: 4    Wyświetleń: 1134
  • Jak napisać makro Excel, aby działało po zmianie nazwy arkusza?

    Musisz jakoś wskazać z którego arkusza chcesz usunąć dane. Excel (makro) to nie jasnowidz. Albo ustawisz stałą nazwę abo jak radził kolega walek wykorzystasz indeks arkusza (lub jego nazwę w VBA) Czyli zastąp Sheets("1").Select Sheets(2).Select (ale wtedy arkusz z którego usuwamy musi być drugi w kolejności) lub Arkusz2.Select (Arkusz2 to nazwa obiektu...

    Software serwis   29 Gru 2011 19:51 Odpowiedzi: 7    Wyświetleń: 6067
  • Excel: Jak automatycznie generować i wypełniać arkusze według wzorca?

    .. jednak na coś mnie naprowadziłeś okazało się tylko że zamiast usuwać wiersz po stworzeni wydruku muszę go nadpisać nowym może być ctrlC,ctrlV .. Nie naprowadziłem, ale dokładnie Ci o tym napisałem :) Arkusz z poprzedniego posta ma nawet przycisk po ktorego nacisnieciu wykonuje cala operacje. A jak zamienisz pod przyciskiem na ten poniżej, to będziesz...

    Software serwis   26 Maj 2013 16:13 Odpowiedzi: 7    Wyświetleń: 1869
  • vba excel , pisanie makra ktore automatycznie tworzy funkcje right

    Np. coś takiego. [syntax=vbnet] Sub Makro1() Dim i As Integer Columns("F:F").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("E1").Select i = 0 Do While IsEmpty(ActiveCell.Offset(i, 0).Value) = False ActiveCell.Offset(i, 1).Value = "=right(E6,6)" i = i + 1 Loop Columns("F:F").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues,...

    Programowanie   21 Wrz 2017 07:08 Odpowiedzi: 3    Wyświetleń: 996
  • [VBA][Excel]Przesuwający się zakres komórek do wykresu

    (...) przesunięcia zakresu DataRangeOBAYield o 7 wierszy w prawo dla każdego z dwóch zakresów (...) Chodzi o wiersze w dół, czy kolumny w prawo? Można zastosować InputBox, gdzie wpisywane będzie przesunięcie: 0 - B1:H1,B31:H31 1 - o siedem wierszy/kolumn w z góry upatrzoną stronę itd, jeśli jest taka potrzeba Zmienną obiektową masz zadeklarowaną......

    Programowanie Początkujący   15 Sie 2012 12:36 Odpowiedzi: 2    Wyświetleń: 2531
  • EXCEL - makro wyszukujące kryterium i pokazujące zakres

    1) Lista musi mieć ciągły zakres. Najlepiej wykorzystać do tego osobny arkusz. Trochę można zautomatyzować (patrz załącznik). Założyłem, że nazwa firmy w Arkusz1 występuje co 13 wierszy. 2) W przykładzie wykorzystałem VBA (Select Case) i ukrywanie/odkrywanie wierszy 3) j.w.

    Software serwis   19 Lut 2010 11:42 Odpowiedzi: 9    Wyświetleń: 4199
  • Excel VBA - wyszukiwanie wartości powyżej 9 i poniżej -9 w kolumnie cena

    Przez przypadek wyłączyłem jedną linię kodu. Usuń pierwszy apostrof z tej linii: 'Worksheets("dane").Select

    Software serwis   28 Lis 2014 15:33 Odpowiedzi: 10    Wyświetleń: 3069
  • Jak zaznaczyć komórki od aktywnej do wiersza 3000 w VBA Excel?

    Na przykład druga linijka w instrukcji With [syntax=vbscript].Range(Selection, .cells(3000, Selection.Column)).Select [/syntax] Albo inaczej: [syntax=vbscript]Selection.Resize(3001 - Selection.Row).Select[/syntax]Z tym, że instrukcji Select możesz używać tylko w arkuszu aktywnym.

    Programowanie Początkujący   24 Lip 2020 06:28 Odpowiedzi: 4    Wyświetleń: 837
  • Excel VBA - Kopiowanie danych z kilku zakładek i wklejenie do zakładki zbiorczej

    A nie lepiej zamiast trzech przycisków w każdym arkuszu byłoby zrobić jeden przycisk w arkuszu "lista" uruchamiający mechanizm pobierania danych ze wszystkich pozostałych arkuszy? Druga kwestia, że do takiej operacji to nawet nie trzeba makra, wystarczy MSQuery i następująca kwerenda: [syntax=sql]SELECT * FROM [1$] UNION ALL SELECT * FROM [2$] UNION...

    Programowanie Początkujący   17 Lip 2013 10:40 Odpowiedzi: 4    Wyświetleń: 3273
  • Excel, VBA - makro uruchamiane przyciskiem powoduje błąd.

    Ja sprawdziłam na Excel 2010 i też jest dobrze. Może jednak w tej nieistotnej Twoim zdaniem części coś nie hula? Na marginesie - nie lepiej ten Select zastąpić Activate?

    Programowanie   26 Wrz 2020 21:56 Odpowiedzi: 10    Wyświetleń: 825
  • Excel 2010 - jak stworzyć funkcję do klasyfikacji danych na podstawie wartości?

    Wpisać w cudzysłowach te słowa. Function test(k, m) Select Case True Case k > 38 And m < 35 test = "slowo1" Case k > 38 And m > 34 test = "slowo2" Case k < 39 And m < 35 test = "slowo3" Case k < 39 And m > 34 test = "slowo4" End Select End Function

    Software serwis   14 Wrz 2014 14:53 Odpowiedzi: 5    Wyświetleń: 1179
  • Excel 2007 - Jak formatować kształty w zależności od wartości liczbowej?

    Musisz napisać instrukcję warunkową If...Then...Else, lub Select Case. Coś na wzór, jak w załączniku. Formatowanie warunkowe nie obejmuje tego typu obiektów...

    Software serwis   02 Paź 2012 13:27 Odpowiedzi: 18    Wyświetleń: 7035
  • VBA Excel &#8211;array w makrze - VBA Excel &#8211;array w makrze

    Jeżeli wszystkie arkusze, to: [syntax=vbscript]Sub Zaznacz() For x = 1 To Sheets.Count Sheets(x).Select False Next End Sub [/syntax] Jeżeli tylko do n-tego, to zamień Sheets.Count na 'a'.

    Obsługa oprogramowania   21 Maj 2020 11:50 Odpowiedzi: 2    Wyświetleń: 375
  • VBA Excel - Zaznaczenie pierwszej komórki nieukrytego wiersza

    [syntax=vb]ActiveWindow.VisibleRange(1, 1).Select[/syntax]

    Programowanie   09 Mar 2015 11:41 Odpowiedzi: 1    Wyświetleń: 987
  • Excel - Jak usunąć niepotrzebne wiersze i komórki?

    Witam, chyba raczej chodzi ci o excel'a - prawy przycisk myszki, select co cie interesuje (np.kolumne) i wybieramy Hide. Pozdrawiam

    Obsługa oprogramowania   21 Lut 2023 15:34 Odpowiedzi: 4    Wyświetleń: 699
  • Excel - Stworzenie złożonej funkcji, która przyjmie jeden z 4 argumentów

    O wiele prościej i elastyczniej masz tu: [syntax=vb]Function Zlozonosc(Wartosc As Integer) As String Wartosc = Int(Wartosc) Select Case Wartosc Case 0 Zlozonosc = "niemożliwe" Case 1 To 2 Zlozonosc = "niska" Case 3 To 4 Zlozonosc = "średnia" Case 5 To 6 Zlozonosc = "wysoka" Case Else Zlozonosc = "brak" End Select End Function Function Zakres(Wartosc...

    Programowanie   11 Kwi 2013 07:12 Odpowiedzi: 11    Wyświetleń: 2559
  • VBA Excel - jak uniknąć błędu 1004 przy przeklejaniu danych?

    Do czego to służy: [syntax=vbscript]Selection.End(xlDown).S...

    Programowanie   30 Mar 2020 10:15 Odpowiedzi: 11    Wyświetleń: 669
  • Excel VBA: Rozbudowa kodu dla przycisków ActiveX i ukrywania kolumn

    Zdaje się, że kolega Aldrin wskazuje dobry kierunek. Zginiesz z tymi checkboxami :) Proponuję pętlę sprawdzającą stan ukrycia kolumn, przypisanie argumentów w bloku Select Case i właściwa pętla działająca na kolumnach. Przykład w załączniku.

    Software serwis   25 Wrz 2011 20:29 Odpowiedzi: 12    Wyświetleń: 3307
  • Excel 2003 - Makro i funkcja konsolidacji danych oraz import pliku i arkusza

    Witaj And (MyWorksheet.Name <> "RAZEM") = dla wszystkich arkuszy niezależnie od ich ilości, z wyjątkiem arkusza RAZEM 2. plik = Application.GetOpenFilename("File excel ,*.xls*", , "Select file") drugie okienko utworzyć formularz z pola listy lub pola kombi i wypełnienie listy nazwamy arkuszy

    Software serwis   23 Mar 2014 14:22 Odpowiedzi: 3    Wyświetleń: 2280
  • VBA/EXCEL - przesuwanie kolumny w prawo o określonym zakresie

    Zamiast wybierać kolumnę "B:B" wpisz Range("B1:B5).Select.

    Programowanie Początkujący   02 Lut 2013 18:03 Odpowiedzi: 4    Wyświetleń: 3525
  • [EXCEL,VBA] Jak poprawnie sortować dane z MySQL w Excel VBA?

    Cudów nie ma. komenda_SQL = "SELECT * FROM Test.Baza ORDER BY Nazwa ASC" W Akcesie stosuję: [syntax=vbscript]Me.ListBox1.RowSource = rs [/syntax] Myślę, że w Excelu też się da.

    Programowanie Początkujący   20 Lip 2015 21:34 Odpowiedzi: 12    Wyświetleń: 1140
  • [excel] Formuła przenosząca tylko niepuste wiersze/komórki

    [syntax=vbscript]Sub Niepuste() Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow If Left(Cells(x, 1), 13) = "Pomieszczenie" Or Cells(x, 1) <> "" And Cells(x, "F") > 0 Then y = y + 1 Rows(x).Copy Sheets("Arkusz2").Cells(y, 1) End If Next Sheets("Arkusz2").Select End Sub [/syntax] Masz błąd w nazwie pomieszczenia...

    Programowanie   22 Lut 2022 19:46 Odpowiedzi: 7    Wyświetleń: 444
  • Excel - wypełnianie automatyczne komórek, ale inaczej...

    Trzeba dopisać do kodu jedną linijkę i zakończenie instrukcji warunkowej (bo już nie zmieści się w 1 linijce): [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Intersect(Target, Range("I:I")) Is Nothing Then Exit Sub If Target = 2 Or Target = 3 Then Range("J" & Target.Row & ":AP" & Target.Row) = 0 Range("AQ" & Target.Row).Select...

    Software serwis   03 Kwi 2013 11:39 Odpowiedzi: 6    Wyświetleń: 3276
  • Excel ActiveX: Błąd 1004 przy użyciu metody Select w VBA

    Przycisk w arkuszu? Umieść procedurę w module standardowym jakoś ją nazywając Np "Sub Kodzik". W kodzie przycisku wpisz tylko wywołanie Call Kodzik

    Software serwis   02 Lip 2010 16:55 Odpowiedzi: 4    Wyświetleń: 4154
  • Excel - Czyszczenie formatowania warunkowego za pomocą makra

    Takie proste makro (można też nagrać): [syntax=vb] Range("A6:A16").Select Selection.FormatConditions.Delete [/syntax]

    Software serwis   18 Lut 2015 18:17 Odpowiedzi: 1    Wyświetleń: 1623
  • [excel] [Excel][VBA] Jak dodać kod do drukowania listy pracowników?

    A ja do tej pory myślałem, że do zaznaczania komórek w VBA służy: [syntax=vb].Select[/syntax]

    Programowanie Początkujący   27 Lip 2012 15:17 Odpowiedzi: 31    Wyświetleń: 5850
  • Zmiana numeru strony w arkuszu Excel po naciśnięciu przycisku VBA

    Przypisz do każdego z przycisków odpowiednie makro [code][syntax=vbscript] Private Sub CommandButton1_Click() n1 = Range("N1").Value 'napisz formule if '=JEŻELI(N1>8;"STR. 1/5"; (JEŻELI(N1>6;"STR. 1/4";(JEŻELI(N1>4;"STR. 1/3";(JEŻELI(N1>2; "STR. 1/2"; "STR. 1/1"))))))) Dim text As String text = "str.2" & "/" & n1 Range("G3").Select ActiveCell.FormulaR1C1...

    Obsługa oprogramowania   19 Paź 2020 09:58 Odpowiedzi: 3    Wyświetleń: 282
  • Excel - automatyczne przejście do kolejnej komórki po skanowaniu kodu kreskowego

    wolałbym jednak zrobic to w excelu kombinuje ze zdarzeniem change i offset target.offset(1,0).select kiluk

    Software serwis   10 Lip 2013 06:39 Odpowiedzi: 3    Wyświetleń: 1209
  • Excel - makro dodawanie kolejnego wiersza w puste miejsce

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Application.ScreenUpdating = False nw = Sheets("Baza").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A2:C2").Copy Sheets("Baza").Cells(nw, 1).PasteSpecial xlPasteValues Range("A2").Select Application.CutCopyMode = False Application.ScreenUpdating =...

    Obsługa oprogramowania   24 Wrz 2019 08:52 Odpowiedzi: 1    Wyświetleń: 702
  • [Excel] Jak dynamicznie przypisać wartość do zmiennej w VBA na podstawie innej?

    Nie wiem, czy to w ogóle możliwe. Zmienna nie jest obiektem, w związku z tym nie ma właściwości (interesująca nas name ) i może mieć tylko wartość. Żeby nie "zaśmiecać" sobie głównej procedury napisałbym funkcję, w której umieściłbym wszystkie możliwe nazwy zmiennych z przypisanymi wartościami i wybierał przez Select Case. Np Sub test() Dim...

    Software serwis   10 Gru 2010 14:35 Odpowiedzi: 11    Wyświetleń: 5419
  • Excel przeniesienie się z wybranej komórki jednego skoroszytu do takiej samej drugiego

    otwiera się Arkusz 2 zaznaczając pustą komórkę kolumny B (ewentualnie dodaje nowy pusty wiersz) Patrząc na załączony plik nie mogę zrozumieć w jakim celu chcesz zrobić to makro :?: :cry: Jeśli chcesz szybko weryfikować odniesienia do arkusza 2 to najprościej proponuję makro w arkuszu 1 :spoko: : [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal...

    Programowanie Początkujący   22 Sty 2023 18:44 Odpowiedzi: 3    Wyświetleń: 282
  • VBA Excel - selektywne kopiowanie danych dla FV wg miesiąca i grupy towarowej

    Albo filtry i select, copy, paste.

    Programowanie   25 Kwi 2019 06:10 Odpowiedzi: 8    Wyświetleń: 642
  • VBA Excel - błąd Metoda pastespecial klasy range przy pierwszym uruchomieniu

    [syntax=vbscript]ActiveSheet.Unprotect Password:="xxx" Rows("10:46").Select Selection.EntireRow.Hidden = False Range("B16").Select[/syntax]

    Programowanie Początkujący   17 Lut 2020 16:01 Odpowiedzi: 4    Wyświetleń: 522
  • [EXCEL] - Odświeżanie danych zewnętrznych przyciskiem

    Nagraj to makro i przypisz do przycisku. Przycisk wiesz jak zrobić? Wiesz jak przypisać makro do przycisku? Makro powinno wyglądać mniej więcej tak: [syntax=vb]Sub aktualizuj() ' aktualizacja danych z zakresu A1 Range("A1").Select Selection.QueryTable.Refresh BackgroundQuery:=False End Sub [/syntax] .. ewentualnie we właściwościach danych zewnętrznych...

    Software serwis   18 Mar 2014 20:44 Odpowiedzi: 12    Wyświetleń: 9792
  • SQL zapytanie SELECT lub inne na zagregowanie danych z różnych baz

    Spróbuj odwoływać się do tabel w takiej postaci: W związku z tym, że każda baza to inna firma, a ja chciałbym zagregować te dane (połączyć) i razem je analizować. Jakbym połączył je i miał w jednej tabeli/widoku to mógłbym je sobie już dowolnie analizować. No nie tak dowolnie. Z pewnością są tam jakieś klucze obce. W widoku się to nie utrzyma, więc...

    Obsługa oprogramowania   30 Paź 2020 16:50 Odpowiedzi: 5    Wyświetleń: 603
  • Excel - Automatyczna zamiana tekstu na odnośniki w kolumnie

    [syntax=vb] Sub Link() Dim x As Long, Adres As String x = 1 While Cells(x, 1) <> "" Adres = Cells(x, 1) Cells(x, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "http://www." & Adres, TextToDisplay:=Adres x = x + 1 Wend End Sub [/syntax]

    Software serwis   05 Gru 2012 07:39 Odpowiedzi: 1    Wyświetleń: 819
  • [Excel VBA] dane do wykresu schodkowego &#8211; kaskadowego - waterfall

    Selection.TickLabels.Orientation = 90 [syntax=vbscript] .Axes(xlCategory).Select ' With Selection.Format.TextFrame2.TextRange.Fo... With Selection.TickLabels.Font .Name = "Calibri" .Size = 9 .Bold = True End With Selection.TickLabels.Orientation = 90[/syntax]

    Programowanie   22 Sty 2016 06:56 Odpowiedzi: 6    Wyświetleń: 1380
  • Dlaczego nazwany obszar nie działa? Zapytanie SQL na arkuszu i VBA, Excel.

    Tym razem, to nie jest taki sam przypadek. Poniższy kod działa. [syntax=vbscript]Sub RunSELECT() ThisWorkbook.Names.Add "Xy", Sheets("ABC").Range("A1:A8") Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";" & "Extended Properties=""Excel...

    Programowanie   27 Mar 2020 11:04 Odpowiedzi: 9    Wyświetleń: 606
  • (VBA) Zaznaczenie komórki (SELECT) z różnymi parametrami (skanowanie)

    Arkusz kalkulacyjny nie jest efektywnym środowiskiem programistycznym. Formuły liczone są dużo szybciej niż interpretowany kod. Zamiast makra w F1 użyj formuły =MATCH(A1,A5:A10)+4 Resztę czytam i nie rozumiem, o co chodzi (ze skanowaniem, rysunkiem I, zaznaczaniem, wklejaniem, kopiowaniem tabel). Sorry. Może łatwiej będzie napisać, jaki cel chcesz osiągnąć,...

    Programowanie   23 Lip 2021 14:12 Odpowiedzi: 10    Wyświetleń: 897
  • Excel VBA - jak ustawić uniwersalny format daty dla różnych lokalizacji?

    [syntax=vbnet]Function WiekSlownie(Wiek As Integer) As String Select Case Wiek Case 1 w = "rok" Case 2 To 4 w = "lata" Case 5 To 21 w = "lat" Case Is > 21 j = Right(Wiek, 1) If j = 2 Or j = 3 Or j = 4 Then w = "lata" Else w = "lat" End If End Select WiekSlownie = w End Function [/syntax] P.S. To ma być po czesku?;)

    Software serwis   07 Wrz 2015 15:42 Odpowiedzi: 42    Wyświetleń: 2862
  • VBA excel proste makro czasem zawiesza działanie programu

    Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...

    Programowanie Początkujący   13 Lip 2020 12:34 Odpowiedzi: 4    Wyświetleń: 1326
  • Excel kilka pól kombi z zawężeniem wyniku - problem

    Range("AM1").Select a nie Range("B5").Select ??

    Obsługa oprogramowania   28 Sty 2021 11:11 Odpowiedzi: 7    Wyświetleń: 318
  • VBA Excel - Jak rozszerzyć zaznaczenie do wiersza A2:H2 po zwiększeniu kolumn?

    Lub [syntax=vbscript]Range("A2:H" & Cells(Rows.Count, 1).End(xlUp).Row).Select[/syntax]

    Programowanie Początkujący   18 Lut 2019 10:51 Odpowiedzi: 3    Wyświetleń: 2229
  • [VBA & SQL] Błąd INNER JOIN w VBA & SQL przy porównywaniu danych z 2 arkuszy Excel

    Użyj prostszego polecenia i się nie męcz: [syntax=sql]select ... from table1 A,table2 B where A.Id=B.Id[/syntax]

    Programowanie Początkujący   29 Kwi 2015 13:13 Odpowiedzi: 6    Wyświetleń: 750
  • Excel - Makro wypełniające wiersze miesiącami/dniami na podstawie wartości komórki

    Witam, mam mały problem z poniższym makrem - dokładnie ze zmienna2 Chcę aby na podstawie zadeklarowanej komórki (rodzaj_kredytu) excel automatycznie wypełnił wiersze w dół: 1. w przypadku rat równych lub malejących miesiącami 2. W innym przypadku dniami Niestety zawsze wypełnia mi dane dniami. Czy ktoś może zerknąć co robię źle? [syntax=vbscript] Dim...

    Programowanie Początkujący   03 Lip 2021 13:31 Odpowiedzi: 1    Wyświetleń: 375
  • Excel Makro: Jak stworzyć pętlę do kopiowania co 14 wierszy?

    Spróbuj z InputBox'em: [syntax=vb]w = 14 ile = Int(InputBox("Ile?", "Wpisz liczbę całkowitą", 3)) If ile < 1 Then Exit Sub Application.ScreenUpdating = False Range("A16:V29").Copy For i = 1 To ile Range("A" & 16 + w).Select ActiveSheet.Paste w = w + w Next Application.CutCopyMode = False Application.ScreenUpdating = True[/syntax]

    Programowanie Początkujący   24 Lip 2013 08:13 Odpowiedzi: 2    Wyświetleń: 1428
  • [VBA Excel] Kopiowanie ze wstawieniem nowego arkusza

    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.

    Programowanie Początkujący   17 Lip 2013 19:41 Odpowiedzi: 1    Wyświetleń: 2142
  • Excel: Automatyczne dodawanie ilości produktów po skanowaniu kodu EAN-13

    A orientujesz się może czy można zrobić tak żeby po zeskanowaniu zamiast potwierdzenia ENTER, przenosiło mnie do wskazanej komórki gdzie od razu mógłbym wpisać ilość, tzn. skan --> automatyczne przeniesienie do kolumny ilość --> ręczne wpisanie ilości i po naciśnięciu enter przejść od razu do kolumny kodu, wiersz niżej, tak żeby skanować kolejny produkt....

    Programowanie Początkujący   27 Sty 2013 13:42 Odpowiedzi: 7    Wyświetleń: 5373
  • Wolne wyszukiwanie (find) VBA - jak zoptymalizować i wykluczyć powtórzenia wier

    Szczerze - jeżeli plik urósł do takich rozmiarów, że przeszukiwanie stało się zauważalnie wolne, to proponuję przenieść dane do bazy danych, choćby Accessa. Do tego one są. Ewentualnie rozwiązanie, które często stosuję w takich przypadkach: ADO.NET, połączenie się z samym sobą, potraktowanie zakładki jako tabeli w bazie danych i wybieranie danych odpowiednio...

    Programowanie Początkujący   12 Lis 2014 17:04 Odpowiedzi: 3    Wyświetleń: 1692
  • [EXCEL] [VBA] Skrócenie kodu IF ELSE do kopiowania zakresów danych

    Spróbuj z Select Case .

    Programowanie Początkujący   27 Lip 2012 15:21 Odpowiedzi: 6    Wyświetleń: 1550
  • Excel 2003 VBA - Jak sprawdzić istnienie pliku na serwerze przed makrem?

    Zaciągnięte kiedyś z sieci: [syntax=vb]Function PlikIstnieje(NazwaPliku As String) As Boolean lngResolveTimeout = 500 lngConnectTimeout = 500 lngSendTimeout = 500 lngReceiveTimeout = 500 strtesturl = "http://moj.pl/" & NazwaPliku Set objHttpRequest = CreateObject("MSXML2.ServerXMLHTTP") With objHttpRequest .SetTimeouts lngResolveTimeout, lngConnectTimeout,...

    Programowanie   08 Paź 2013 03:03 Odpowiedzi: 1    Wyświetleń: 873
  • [EXCEL] Kopiowanie na podstawie komórki do innego arkusza

    Nie ma problemu - zmienimy pętlę warunkową na zwykłą. Na marginesie, jak widać w twoim załączniku, numery pisma przy "anulowaniu" dokumentu też są usuwane. Najpierw sprawdzimy ile jest wierszy, a potem pętlą będziemy sprawdzać czy wiersz nie był już skopiowany i czy ma numer zadania. Jeżeli tak to go przerzuci, jak nie "pójdzie" dalej. (taki wiersz...

    Software serwis   17 Maj 2012 08:47 Odpowiedzi: 11    Wyświetleń: 4218
  • Excel VBA - Wyeksportowanie wartości z tabeli i utworzenie nowej.

    [syntax=vb]Sub Podziel() Application.ScreenUpdating = False Sheets("Data").Select ow = Cells(Rows.Count, "A").End(xlUp).Row ok = Cells(1, Columns.Count).End(xlToLeft).Column pp = Cells(2, 1) For x = 2 To ow If Sheets("Data").Cells(x + 1, 1) = pp Then Sheets("Data").Select Sheets.Add.Name = Sheets("Data").Cells(x, 1) Exit For End If Sheets("Data").Select...

    Programowanie Początkujący   22 Wrz 2014 02:09 Odpowiedzi: 7    Wyświetleń: 1815
  • excel/vba - dodawanie różnych wersji bibliotek outlook oraz szyfrowanie pliku

    - w zależności od wersji offica musza się dodac odpowiednie wersje biblioteki outlooka Najprościej wykorzystując 'Application.Version'. [syntax=vbscript]'Excel 97 = 8.0 'Excel 2000 = 9.0 'Excel 2002 = 10.0 'Excel 2003 = 11.0 'Excel 2007 = 12.0 'Excel 2010 = 14.0 'Excel 2013 = 15.0 Select Case Application.Version Case "12.0" MsgBox "Office 2007" Case...

    Programowanie Początkujący   12 Lis 2015 14:07 Odpowiedzi: 6    Wyświetleń: 2703
  • Excel - Wyszukiwanie kolumn zawierających określony tekst

    [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$10" Then Application.EnableEvents = False Range("A11:B" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents ow = 5 ok = Cells(1, Columns.Count).End(xlToLeft).Column x = Target.Row + 1 For k = 1 To ok Set a = Range(Cells(1, k), Cells(ow, k)).Find(Target, LookIn:=xlValues,...

    Obsługa oprogramowania   11 Cze 2020 03:08 Odpowiedzi: 10    Wyświetleń: 795
  • [VBA Excel] Jak odwrócić zaznaczenie komórek w Excel VBA poza B7:C13?

    Mała poprawka: [syntax=vb]Range("a1:a20,b1:c6,b14:c20,d...

    Programowanie   20 Lis 2013 15:04 Odpowiedzi: 4    Wyświetleń: 5179
  • Excel - automatyczne łączenie danych z dwóch arkuszy w jeden

    Użyj MSQuery i następującej kwerendy [syntax=sql]SELECT * FROM (SELECT * FROM [Sheet1$] UNION ALL SELECT * FROM [Sheet2$]) WHERE lp >0[/syntax]

    Software serwis   12 Wrz 2013 12:24 Odpowiedzi: 6    Wyświetleń: 23031
  • [vba] [excel] Automation error wystąpił wyjątek

    Ok przeoczyłem ten set a jest tu 'myCSVFileName = myWB.Path & "\" & "ZAPAS.csv"', więc musi być 'Set myWB' ps. zobacz teraz [syntax=vbscript]Sub ZapasCSV() With Application .ScreenUpdating = False .EnableEvents = False End With Sheets("ZAPAS_CSV").Select Dim myCSVFileName As String Dim myWB As Workbook Dim tempWB As Workbook Dim rngToSave As Range Application.DisplayAlerts...

    Obsługa oprogramowania   02 Kwi 2021 20:22 Odpowiedzi: 6    Wyświetleń: 1710
  • [makro] Excel 2010: Makro do automatycznego drukowania arkuszy z J1>0

    Makro przygotowane w Excelu 2003 (ale powinno działać): Sub Makro1() For a = 3 To 8 'te arkusze bierze pod uwagę Sheets(a).Select If Range("J1") > 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next End Sub

    Programowanie Początkujący   14 Lut 2013 23:43 Odpowiedzi: 3    Wyświetleń: 4125
  • Excel: Jak stworzyć makro do weryfikacji numerów seryjnych?

    No to już tylko makro. Np takie Sub Wpisz_Jest() Columns("A:A").Sel... On Error Resume Next wiersz = Selection.Find(What:=Range(&... After:=ActiveCell, LookAt:=xlWhole).Row Cells(wiersz, 3) = "Jest" Cells(1, 2).Select End Sub Możesz je umieścić w kodzie arkusza...

    Software serwis   27 Sie 2009 20:04 Odpowiedzi: 6    Wyświetleń: 1427
  • VBA Excel - Optymalizacja kopiowania komórek z formatowaniem

    Super, ułożenie poleceń w jednej linii zadziałało poprawnie. Rozwiązanie znacznie przyśpieszyło, przez zastąpienie select Dziękuję bardzo

    Programowanie Początkujący   12 Kwi 2016 12:07 Odpowiedzi: 4    Wyświetleń: 1521