sheets excel

Automatyczne tłumaczenia tekstów w arkuszach Google Sheets (Excel online). Tłumaczymy firmware.

https://obrazki.elektroda.pl/4780071900_... Podstawy GOOGLETRANSLATE i wpisujemy w A1 jakieś przykładowe słowo - "Przekaźnik": https://obrazki.elektroda.pl/2211472500_... W B1 wpisujemy znak równości a potem zaczynamy pisać GOOGLE, podpowiedź powinna się już pojawić: https://obrazki.elektroda.pl/2939205100_...

Excel - Google Sheets - Blokowanie komórki przed wartością.

chciałem na razie wmontować tą blokadę żeby mi serwisanci w kulki nie lecieli Proponuję wykorzystanie innego mechanizmu zabezpieczeń "przed lecącymi kulkami" :D - opisałem jego zasady np. https://www.elektroda.pl/rtvforum/viewto... Trudno zrobić coś takiego w Google Sheets :cry: , ale zastanów się czy np. nie wystarczy wiedzieć...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Excel - Google Sheets - blokowanie daty przy konkretnej wartości.

Moje formuły też działają, to znaczy przechowały wczorajsze daty i dziś pokazały to samo.

EXCEL - giną wyniki makra po otwarciu drugiego pliku.

Zdaje się, że gubi źródło. Spróbuj w funkcji zapodać pełne adresy: Workbooks("nazwa").Sheets("arkusz")...

VBA Excel - Kopiowanie wartości komórki z arkusza ze zmienną Numeracją

Sheets("DATA ENTRY " & s)

VBA excel - Wyszukiwanie ostatniej komórki w ostatnim wierszu

"Mój tekst" Sheets("Arkusz2").Range("D4")

Excel - Google Sheets automatyczne przypisywanie miejsc siedzących

Jeżeli nie przeszkadzają dodatkowe ukryte kolumny, można to zrobić tak jak w załączniku. Użyłem poprawności danych z blokadą i komunikatem o przekroczeniu ilości miejsc przy stoliku. Można to oczywiście dowolnie zmienić.

Excel - makro do kopiowania list rozwijanych z wszystkich arkuszy do nowej zakładki

Zacznij z petli For Each c In Sheets(1).Cells.SpecialCells(xlCellTypeA...

VBA Excel - Zapisywanie arkusza ze sparawdzeniem podczas zamykania skoroszytu

Zmień z [syntax=vbscript]ActiveSheet.UsedRange[/... na [syntax=vbscript]Sheets("baza zamówień").UsedRange[/syntax]

EXCEL Kopiowanie wierszy z innego arkusza niż aktywny

Bez zbędnych selectów [syntax=vb]Sheets("Arkusz1").Range("G20"... Destination:=Sheets("Arkusz2").Range("G2...

Excel: Jak przerobić kod VBA do szychtownic z osobnymi arkuszami wzorów?

Ale activate tylko przy sheets.

Excel VBA - blokowanie edycji komórek po wpisaniu hasła w okienku dialogowym

Makro może odblokowac i blokowac z powrotem [syntax=vb] Sheets("Dane").Unprotect haslo 'dzialanie Sheets("Dane").Protect haslo [/syntax]

Excel - zabezpieczenie poszczególnych arkuszy hasłem

[syntax=vbscript]Private Sub Workbook_Open() For x = 2 To Sheets.Count Sheets(x).Visible = False Next a = InputBox("Podaj hasło:") For x = 2 To Sheets.Count If Sheets(x).Range("AA1") = a Then Sheets(x).Visible = True Next End Sub[/syntax]

[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

VBA EXCEL - jak drukować ukryte arkusze z pola kombi?

W czasie drukowania Otwórz arkusz, a następnie ukryć Sheets(.List(.Value)).Visible = True

Excel VBA - Jak wstrzymać makro do momentu zakończenia odświeżania?

Witaj ActiveWorkbook.Connections( _moje połączenie").Refresh BackgroundQuery:=false 'Sheets(1).QueryTables("moja").Refresh BackgroundQuery:=false

VBA, excel, pojawiające się wiersze, w zależności od zawartości komórki

[syntax=vbscript]Sheets("Arkusz2").Range... = True[/syntax]

VBA Excel –array w makrze - VBA Excel –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'.

Excel - makro do otwierania i drukowania plików xls z hiperłącza lub ścieżki

Mało szczegółów, to i kod taki sobie. ;) [syntax=vbscript]Sub Drukuj() Workbooks.Open (Range("B1")) Sheets("ArkuszDoWydrukowania").PrintOut ActiveWorkbook.Close End Sub [/syntax]

Excel VBA kopiowanie aktualnego arkusza z kolejnym numerem w nazwie

Nie bardzo rozumiem kopiowanie 'pp1' i oddzielne tworzenie nowego arkusza. Może chodzi Ci o to? [syntax=vbscript]Sub DodajPP() Dim n As Integer n = Val(Mid(Sheets(Sheets.Count).Name, 3)) n = n + 1 Sheets("pp1").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "pp" & n End Sub [/syntax]

EXCEL - Makro do usuwania przeterminowanych dat w kolumnie 'AI'

For Each c In Sheets(1).Range("Termin...

[excel] Makro działa, po przypisaniu do przycisku nie działa :((

Zamień Sheets("Obliczenia").Select na Sheets("Obliczenia").Activate A najlepiej jeszcze uprość te makro [syntax=vb]Sub kopiuj() Sheets("Obliczenia").Range("A3:A506").Co... Sheets("Wynik").Activate End Sub [/syntax]

Excel VBA - Jak zrobić Public Function albo Private Function w VBA

......... Wynik= WorksheetFunction.CountIf(Sheets("dane")... & lastcell), kryterium) End Function Przepraszam, funkcja ta nadal nie ma sensu łatwiej naprosto Range("B2")=WorksheetFunction.CountIf(Sh... kryterium)

VBA Excel, przechowywanie adresu komórki jako zmienna (wraz z nazwą sheetu)

Przypisuj jako dwie zmienne w postaci stringu. Podstawiaj jako nazwy. Np ark= ActiveSheet.Name       'nazwa obiektu rng= ActiveCell.Address       'nazwa zakresu odwołanie: Sheets(ark).Range(rng)

Excel VBA: Jak wstawić dane do Tabeli1 z Arkusza2 używając przycisku? Błąd Run-time error'1004'

Podmień na [syntax=vbscript]Sheets("TEST_2").ListOb... colStart), Cells(row, colEnd)).Value = Sheets("DoPowołania").Range("L1").Value[... lub [syntax=vbscript]Sheets("TEST_2").ListOb... colStart).Resize(, colEnd).Value = Sheets("DoPowołania").Range("L1").Value[...

Excel VBA - Dynamiczne filtrowanie zaawansowane z niepustymi komórkami

Dobry wieczór, Jeżeli w Arkuszu2 nie będzie niczego więcej poza tym kryterium i zakres kryterium będzie ciągły (bez pustych komórek), to chyba najprościej zamiast konkretnego zakresu napisać UsedRange, czyli w tym przypadku: [syntax=vb]CriteriaRange:= Sheets("Arkusz2").UsedRange[/syntax] Pozdrowienia

EXCEL [VBA] - export skoroszytu do .CSV rozdz. znakiem tabulacji + nazywanie pli

ActiveWorkbook.SaveAs Filename:= folder & " " & Sheets("DANE").Range("A1").Text & ".csv", FileFormat:=xlTextWindows

Automatyczna zamiana słów w kolumnie Excel Google Sheets za pomocą funkcji

Wszystko zależy czy zamiana ma być stała (zawsze ten sam tekst na inny też stały tekst) czy dynamiczna i czy tylko jedna kombinacja zamiany czy dużo więcej różnych kombinacji. No i dodatkowo czy tekst ma być wyszukiwany i zamieniany w ciągu tekstu w komórce czy zamieniamy całą zawartość komórki. Najprościej =JEŻELI(B6="zima";"Lato";B6)

[EXCEL] - Odświeżanie danych zewnętrznych przyciskiem

w Modulu sub odsw() Sheets("PLIK cut").querytables(1).Refresh BackgroundQuery:=False end sub

VBA Excel - makro do kopiowania wierszy na podstawie wartości z komórek

[syntax=vbscript]Sub AF() Sheets("A").Range("A4:R200").Clear For x = 2 To Sheets.Count For y = 4 To 300 If Sheets(x).Cells(y, "O") >= -30 Then nw = Sheets("A").Cells(Rows.Count, "O").End(xlUp).Row + 1 Sheets(x).Rows(y).Copy Sheets("A").Range("A" & nw) End If Next Next End Sub [/syntax]

Zapis pliku - wybór folderu i sugerowana nazwa z komórki

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]

Excel 2010 - Łączenie danych z wielu arkuszy w jeden

Korzystając z VBA: [syntax=vbscript]Sub PolaczArkusze() oa = Sheets.Count Set r = Sheets.Add(After:=Sheets(Sheets.Count)) r.Name = "Razem" For x = 1 To oa Sheets(x).Range("A1:C" & Sheets(x).Cells(Rows.Count, "A").End(xlUp).Row).Copy r.Range("A" & r.Cells(Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial Next End Sub [/syntax]

[VBA] [VBA][Excel] Jak odwołać się do wykresu w arkuszu, nie w zakładce?

Sprawdź nazwę wykresu. Excel z reguły nadaje je ze spacją: "Wykres 4" a nie "Wykres4". Spróbuj Sheets("Arkusz1").Char... 4").Chart.SetSourceData Source:=Sheets(1).Range(... _ PlotBy:=xlColumns

Microsoft Excel 2016 - Prośba o pomoc w napisaniu makra i funkcji excel

Sprawdź rozumiem że nazwisk masz 100 [syntax=vbscript]Sub test() x = 1 With Sheets("lista") Do While .Cells(x, 1) <> "" Sheets.Add(After:=Sheets(Sheets.Count)).... = Format(x, "000") ActiveSheet.Cells(1, 1) = .Cells(x, 1) x = x + 1 Loop End With End Sub[/syntax]

Jak stworzyć stronę WWW do nawigacji i edycji plików Excel?

Tu bedzie troszke informacji :) https://www.cloudways.com/blog/create-ed...

[Excel] - Połączenie kilkudziesięciu arkuszy w jeden

Niestety nie jest załączenia pliku, zakładam, że pierwsza kolumna jest wypełniona [syntax=vb] Sub Polacz() Dim r& ar_t = "total" With ThisWorkbook .Sheets.Add after:=.Sheets(.Sheets.Count) ActiveSheet.Name = ar_t For Each sh In .Sheets If sh.Name <> ar_t Then r = .Sheets(ar_t).Cells(Rows.Count, 1).End(xlUp).Row + 1 Range(sh.Rows(3), sh.Rows(sh.Cells(Rows.Count,...

Excel 2010: Automatyczne pobieranie danych z pliku o zmiennej nazwie

[syntax=vbscript]Sub Import() Set a = ActiveWorkbook nw = a.Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("USERPROFILE") & "\Desktop" .AllowMultiSelect = False .Title = "Wybierz plik" .Filters.Add "Excel", "*.xls*" If .Show = True Then Plik =...

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...

Excel VBA - Kod do sumowania zakresu A1:A100 z wielu arkuszy i plików

[syntax=vbscript]Sub Sumuj() Application.ScreenUpdating = False Katalog = "C:PlikiExcela" Plik = Dir(Katalog & "*.xls*") While Plik <> "" Set a = Workbooks.Open(Katalog & Plik) For x = 1 To Sheets.Count Sheets(x).Range("OO1").Formula = "=SUM(A1:A100)" s = s + Sheets(x).Range("OO1") Sheets(x).Range("OO1") = "" Next a.Close False Plik =...

Excel - Makro do kopiowania z jednego arkusza do kolejnych

[syntax=vb]wiersz = 6 Sheets(1).Activate While Cells(wiersz, 1) <> "" Cells(wiersz, 2).Copy Sheets(Cells(wiersz, 1).Text).Range("C8") wiersz = wiersz + 1 Wend [/syntax]

Excel - jak kopiować dane między arkuszami po kliknięciu w danego klienta

Proszę. [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then r = Target.Row nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A" & r & ":E" & r).Copy Sheets("Arkusz2").Cells(nw, 1) End If Cancel = True End Sub [/syntax]

Excel VBA - jak przenieść dane z TextBox1 do innego pliku?

A czy dana nie ląduje czasem w innym arkuszu niż zakładasz? Sheets(1) to arkusz o indeksie jeden. Jeśli "1" to nazwa arkusza, to posługuj się nazwą Sheets("1") Poza tym Workbook s ("jeden.xls")

Formuła/makro do nadawania lokalizacji w excell google sheet

w excell google sheet A co to takiego ? Nie ma czegoś takiego jak Google Excel - Excel to Excel, a Google Sheets to Google Sheets. Równie dobrze można by napisać "w excel open office". W excelu jest vb, a w google sheets jest apps script.

Excel - Jak modyfikować kod do drukowania arkuszy z dynamicznego zakresu?

[syntax=vbscript]Private Sub CommandButton2_Click() Sciezka = ActiveWorkbook.Path If MsgBox("Wydrukować wszystkie szychtownice?", vbQuestion + vbYesNo, "Drukowanie") = vbYes Then For x = 6 To 15 s = Sheets("Menu").Cells(x, 1) If s <> "" Then Nazwa = s & "_Szychtownice" Sheets(s).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Sciezka &...

Excel VBA – jak scalić i obramować komórki kodem w programie magazynowym?

No nie przesadzaj, drogą dedukcji :) Private Sub UserForm_Initialize() For i = 1 To ThisWorkbook.Worksheets.Count ComboBoxNazwa.AddItem Sheets(i).Name Next End Sub

VBA Excel - Kopiowanie arkuszy do nowo utworzonego pliku

Może tak: Sheets("C").Copy After:=Workbooks("A").Sheets(sheets.coun...

Excel 2013: Dane z głównego arkusza pojawiają się w drugim arkuszu po aktywacji

przycisk do aktywacji drugiego arkusza Rozumiem, że "normalnie" arkusz "Dane" jest ukryty :?: Proponuje zmodyfikować kod przycisku poprzez zastąpienie metody Select (która umożliwia wszak wybór wielu obiektów z kolekcji :cry: ) metodą Activate :idea: - tzn.: [syntax=vbscript]Sub Dane() Sheets("Dane").Visible = True Sheets("Dane").Activate End Sub[/syntax]

Excel VBA - Kopiowanie zawartosci komorki do Pola tekstowego

Dla Twojego przykladu [syntax=vb] Sub kopie() Dim i As Long For i = 1 To 4 Sheets("Output").Shapes("Rectangle " & i).TextFrame.Characters.Caption = Sheets("Output").Range("B" & i * 7 - 3) Next End Sub [/syntax]

(VBA) EXCEL - przenoszenie i łączenie kolumn w nowych skoroszytach według filtru

W kolejnych arkuszach pojawiają się dane dla dwóch pierwszych klientów. No pewnie, że tak będzie, bo tak to opisałeś. Domyślam się, że chodzi o przenoszenie do arkusza klienta, kolumny A z 'Target' i kolumnę klienta... [syntax=vb]Sub ArkuszeKlientow() Application.DisplayAlerts = False Dim Klient As String ok = Sheets("Target").Cells(1, Columns.Count).End(xlToLeft).Column...

Makro Excel: Wklejanie do pierwszej pustej komórki w kolumnie BZ od wiersza 3

Najpierw wyznacz pierwszą wolną komórkę [syntax=vbscript] lastRow = Range("BZ" & Rows.Count).End(xlUp).Row + 1 If lastRow < 3 Then lastRow = 3 End If [/syntax] nastęnie wkopiuj: [syntax=vbscript] Sheets("Dane").Range("BZ" & lastRow) [/syntax]

Jak stworzyć makro drukujące Arkusz 2 w Excel 2007?

Metoda PrintOut z klasy workshet nie powiodła się Uruchamiasz makro z aktywnego arkusza "formularz" :!: a drukujesz inny arkusz "oswiadczenie" :idea: Twój wcześniejszy kod jest jednoznaczny :D tj. ActiveWindow. Selected Sheets

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

[VBA, Excel] Jak dynamicznie odczytać wartości Checkbox'ów w VBA Excel?

Co do pierwszego spróbuj tak TablicaCenniki(1) = "ABA" TablicaCenniki(2) = "..." .... nazwy_zmiennych = TablicaCenniki(1) 'tu będzie pętla temp = Form_AktCen.Controls(nazwy_zmiennych... W "dalszych konstrukcjach" jezeli już to tak bym uprościł: Chcesz kasować cały arkusz ? Jeżeli tak wystarczy:...

[VBa Excel] - Makro do scalania arkuszy z wielu skoroszytów

Sprobuj to [syntax=vb] Sub zbior() Dim wb As Workbook fl = Application.GetOpenFilename("Excel ,*.xls*", , "Any files") If fl = False Then Exit Sub fl = Dir("*.xls*") With ThisWorkbook While fl <> vbNullString Set wb = Workbooks.Open(fl) shn = wb.Name wb.Sheets(1).Name = shn wb.Sheets(1).Copy after:=.Sheets(.Sheets.Count) wb.Close False fl = Dir...

Excel VBA: Jak zapamiętać i przywrócić aktywny arkusz przy zamykaniu i otwieraniu?

Wybierz gdzieś komórka dla nazwy arkusza. (np. arkusz3!Z1) [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("arkusz3!Z1") = ActiveSheet.Name End Sub Private Sub Workbook_Open() Sheets(Range("arkusz3!Z1")).Activate End Sub [/syntax]

[VBA Excel] - kopiowanie i wklejanie do innego arkusza

Range("A5").Copy Sheets("arkusz2").Range("c" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

VBA Excel, zwracanie tekstu połączonego tekstu z kilku komórek do jednej.

Lub [syntax=vbscript]Sub Benek2() a = Workbooks("Zeszyt1.xls").Sheets("Arkusz1... 14) b = Workbooks("Zeszyt1.xls").Sheets("Arkusz1... 14) Range("E10") = a & " " & b End Sub[/syntax]

EXCEL MAKRO problem z makrem do przycisku drukującego arkusz

Wsio ryba. Jeśli http://obrazki.elektroda.pl/8944080900_1... to If Sheets("Arkusz3").Rang... Then

Excel VBA - wydruk pliku bez jego otwierania z poziomu innego pliku

Coś ala [syntax=vbscript]Sub elka() Set wb = Workbooks.Open("C:\plik do wydruku.xlsm") Sheets("Arkusz1").PrintOut Copies:=2, Collate:=True wb.Close False End Sub[/syntax]

Excel/VBA - Jak skopiować arkusze z zachowaniem formatowania kolumn?

A nie prościej będzie skopiować całe arkusze (a nie ich zawartość jak to próbujesz zrobić) do nowego skoroszytu? Jestem tego samego zdania. A gdyby po prostu:[syntax=vb]Sub Kopiuj_Ark() Sheets(Array("Arkusz3", "Arkusz4", "Arkusz6")).Copy End Sub[/syntax]

[excel] Jak znaleźć zduplikowane dane w Excelu wśród 5000 wierszy?

ok zrobiłem tak i teraz wypisuje mi błąd uruchomieniowy języka BASIC; nie zdefiniowano procedury lub funkcji: w linijce: Sheets("Arkusz2").Activate

Excel VBA – makro kopiujące arkusz „xyz” do nowego pliku o nazwie z B3 z formatowaniem

We wszystkich makrach wartość Enabled przycisku 2 ustaw odwrotnie niż przycisku 1. Np [syntax=vb]Private Sub Workbook_Open() nazwa = Sheets(1).Range("B3") & ".xlsm" If Dir(ThisWorkbook.Path & "\" & nazwa) = Empty Then Sheets(1).cmdSave.Enabled = True Sheets(1).cmdExit.Enabled = False Else Sheets(1).cmdSave.Enabled = False Sheets(1).cmdExit.Enabled =...

Excel - Zmiana zakresu wydruku od wartości komórek

Niestety też nie widzę opcji by nie było makra. Ale nie makro ukrywające tylko zwykłe wprowadzenie informacji do wydruku do ilu stron ma drukować. Czyli pod przycisk "wrzucić" [syntax=vb] Sub Druk() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets("POŚW").Range("E22") End Sub [/syntax] I "drukować" przyciskiem.

Szukam oprogramowania do zbierania podstawowych danych z komputera.

Witam, szukam jakiegoś oprogramowania/urządzenia/sposoby które pozwoli szybko i sprawnie zebrać podstawowe informacje o urządzeniu. Dokładnie chodzi mi o to iż pracuję w hurtowni elektroniki (małe/średnie przedsiębiorstwo), zajmujemy się handlem z niemcami. Chciałbym usprawnić proces tworzenia list w google sheets/excel naprawionych przez nas urządzeń....

Excel 2013 - Jak wyciągnąć najwcześniejszą i najpóźniejszą godzinę dla dat?

[syntax=vbscript]Sub Oblicz() y = 1 Set a1 = Sheets("Arkusz1") ow = a1.Cells(Rows.Count, "A").End(xlUp).Row Sheets("Wynik").Cells(y, 1) = a1.Cells(1, 1) Sheets("Wynik").Cells(y, 2) = a1.Cells(1, 2) For x = 1 To ow If a1.Cells(x, 1) <> a1.Cells(x + 1, 1) Then y = y + 1 Sheets("Wynik").Cells(y, 1) = a1.Cells(x, 1) Sheets("Wynik").Cells(y, 2) = a1.Cells(x,...

Excel VBA - Kopiowanie arkuszy z listy w arkuszu Podsumowanie

Spróbuj [syntax=vb]Sub Makro_kopiowanie() ' This macro will import a file into this workbook PathName = Range("D3").Value Filename = Range("D4").Value ControlFile = ActiveWorkbook.Name wrs = 5 'nazwy arkuszy od "D5" Workbooks.Open Filename:=PathName & Filename Windows(ControlFile).Activate With Sheets("Podsumowanie") Do While .Cells(wrs, 4) <>...

Excel makro kalkulator - Kod do Enter nie zapisuje danych z textboxa

Ale nie rozumiem jak jest z zapisem liczby z kalkulatora do jakieś komórki w arkuszu Jak można nie rozumieć, że ty sam napisałes? To znaczy: Z pierwszego arusza "Sheets(1)" odczytaj komórkę A1 i dodaj do niej liczbę z TextBox1 ("TextBox1.Value" = przekształć tekst na liczbę). Wynik zapisz do pierwszego arkusza "Sheets(1)" do komórki A1 = "Range("A1")...

Excel - makro, które pomija puste komórki i łączy dane w jedną kolumnę.

z tych kilku kolumn jedną w nowym arkuszu Wtedy [syntax=vb]For k = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Range(Cells(1, k), Cells(Rows.Count, k).End(xlUp)).SpecialCells(xlCellTypeBla... Shift:=xlUp Range(Cells(1, k), Cells(Rows.Count, k).End(xlUp)).Cut Sheets("Arkusz2").Range("A" & Application.CountA(Sheets("Arkusz2").Col...

[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.

VBA Excel - ComboBox a dane wyświetlane w UserFormie

Witam Może coś takiego [syntax=vbnet]Private Sub ComboBox1_Change() obszar = "B1:T" & Cells(Rows.Count, "B").End(xlUp).Row TextBox1.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 2, 0) TextBox2.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 3, 0) TextBox3.Text = Application.VLookup(ComboBox1.Value,...

Excel - Jak automatycznie porównać dwa arkusze i wyciągnąć unikatowe rekordy?

Utwórz sobie arkusz o nazwie C gdzie pojawią się różnice. [syntax=vbscript]Sub elka() For x = 1 To Sheets("B").Cells(Rows.Count, 1).End(xlUp).Row If IsError(Application.Match(Sheets("B").Ce... 1), Sheets("A").Columns(1), 0)) Then y = y + 1 Sheets("C").Cells(y, 1) = Sheets("B").Cells(x, 1) End If Next End Sub[/syntax] ps. Musisz mieć nazwane te arkusze...

VBA EXCEL - Makro po wypełnieniu komórki tworzy nowy arkusz i dodaje hiperłącze

[syntax=vbscript]nazwa = ActiveCell.Value With ThisWorkbook .Sheets("wzor rodzinne").Copy ActiveWorkbook.SaveAs .Path & "\rodzinne\" & _ nazwa & ".xls" ActiveWorkbook.Close End With[/syntax]

Excel-makro do kopiowania wybranych komórek do innego pliku

[syntax=vb] For i = LBound(ba) To UBound(ba) ThisWorkbook.Sheets(ba(i)).Range(bs(i)).... Workbooks("B.xls").Sheets(ba(i)).Range(b... xlValues Next Application.CutCopyMode = False [/syntax]

[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...

Excel VBA - wyszukiwanie ilości wierszy zależnych od kilku warunków

dodaj przed End Sub [syntax=vb]With Sheets(2).UsedRange For re = 7 To 12 .Borders(re).Weight = xlThin Next End With [/syntax]

VBA - automatyczne dodawanie pustej kolumny w każdym arkuszu Excel

[syntax=vbnet]Sub dodawaniekolumny() For Each arkusz In Sheets arkusz.Range("A1").EntireColumn.Insert Next arkusz End Sub[/syntax]

VBA Excel 2013 - kopiowanie do wartości z wielu komórek do jednej

Jeżeli dobrze zrozumiałem, to coś takiego: [syntax=vb]Sub Odpowiedzi() Sheets("Pytania").Select ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow a = "" For y = 2 To 5 Sheets(y).Select If Cells(x, 2) <> "" Then a = a & Cells(x, 2) & vbNewLine Next Sheets("Pytania").Cells(x, 2) = a Next End Sub [/syntax]

VBA - Jak przeszukać cały skoroszyt i podświetlić znalezione wartości?

Popatrz tutaj: https://stackoverflow.com/questions/2402... https://stackoverflow.com/questions/4734... Do arkuszy można odwoływać się albo po ich nazwie, albo po numerze. Można też sprawdzić ile jest arkuszy w skoroszycie. Proponuję...

[VBA] Excel - Makro do uzupełniania danych w arkuszu BAZA z RAPORT

[syntax=vb]Sub doBazy() r = 1 With Sheets("raport") While .Cells(r, 1) <> "" rb = Application.Match(.Cells(r, 1), Sheets("baza").Columns(1), 0) .Cells(r, 2).Resize(, 5).Copy Sheets("baza").Cells(rb, 2) r = r + 1 Wend End With End Sub [/syntax]

Excel 2016 - Łączenie kilkunastu plików z jednym arkuszem w jeden wieloarkuszowy plik

[syntax=vbscript]Sub ImportujPliki() Application.ScreenUpdating = False Set b = ThisWorkbook Sciezka = "C:\PlikiExcela\" Plik = Dir(Sciezka & "*.xls*") x = 1 While Plik <> "" Set a = Workbooks.Open(Sciezka & Plik) Sheets(1).Copy After:=Workbooks("ImportujPliki.xlsm").S... a.Close False Plik = Dir x = x + 1 Wend Application.ScreenUpdating...

Jak w Google Sheets zaprojektować stan magazynowy z kodami kreskowymi?

Zaraz się oczywiście zapoznam z twoją propozycją, bo może rzeczywiście będzie to lepsze rozwiązanie. Lecz w całym biurze pracujemy na arkuszach i każdy się przeklikuje co by na pewno ułatwiło jeżeli to będzie excel.

excel kopiowanie z arkusza do arkusza dla określonego warunku

[syntax=vbscript]Sub Kopiuj() Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If Cells(x, "C") > 30 Then Range("A" & x & ":D" & x).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax]

Excel- Szychtownica: Jak zminimalizować długie kody VBA?

[syntax=vb] For i=1 to 31 UserForm1.Controls("A" & i) = Sheets(txtMiesiac.Value).Range("B:B").Fi... lookat:=xlWhole).Offset(0, i + 7) Next [/syntax]

Excel VBA - Jak pobrać dane zewnętrzne z sieci web do arkusza?

Witaj Spróbuj wymienić If Sheet1.Cells(irow, 11).Value = "Dex" Then na If Sheets("Sheet1").Cells... 11).Value = "Dex" Then Excel wersja angielska? edit: aj... irow - nie zostały jeszcze przypisane wartości

excel - dynamiczna transpozcyja danych w innym arkuszu

[syntax=vbscript]Sub Transpozycja() ow = Sheets("Dane").Cells(Rows.Count, "A").End(xlUp).Row y = 3 For x = 4 To ow Sheets("Wynik").Cells(1, y).Formula = "=Dane!A" & x y = y + 1 Next End Sub [/syntax]

Excel - automatyczne ukrywanie niewykorzystanych kolumn

Przepisałem tylko, bez sprawdzenia. Zmiennej "kol" przypisz Nr kolumny, w której wyliczasz dni miesiąca. [syntax=vb]kol = 2 'kolumna, odpowiadająca wierszowi Nr.2 w "Szychtownicy" 'zawierająca dni miesiąca 'Jeśli "Kalendarz" ma indeks 1 to licznik od 2 i wtedy zbędny drugi argument If'a For sht = 1 To Sheets.Count If Sheets(sht).Name <> "Podsumowanie"...

Jak wykonać taką formułę? VBA Excel i sprawdzenie warunku.

[syntax=vb]Sub koko() For Each c In Sheets("ZLECENIA").UsedRange.Columns(1).... c.Interior.Color = IIf(Sheets("MAGAZYN").Columns(1).Find(c) Is Nothing, vbRed, vbGreen) Next End Sub [/syntax]

[vba Excel] makro do tworzenia przefiltrowanej listy zakładek

A może wystarczy podstawić separator i sprawdzić czy data? [syntax=vbscript]licznik = 1 For i = 1 To Sheets.Count 'zamieniamy separator daty /jeśli jeszcze jakieś możliwe - dopisać nazwa = Replace(Sheets(i).Name, " ", "-") nazwa = Replace(Replace(Replace(nazwa, ".", "-"), ",", "-"), "_", "-") miejsce = InStr(nazwa, "2016") 'miejsce "2016" w ciągu If...

[VBA] Excel - Makro do podziału raportu na pliki według kolumny B

Witam [syntax=vb] Sub podzial_pliku() Dim kol As String Dim wiersz As Integer Dim nazwa As String Dim ark As Worksheet kol = InputBox("Podaj litere kolumny na podstawie ktorej nastapi podzial plikow", "Pytanie") wiersz = InputBox("Podaj numer wiersza od ktorego zacznie sie podzial plikow", "Pytanie") Range(kol & wiersz).Select Set ark = ActiveSheet...

[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...

[VBA] [EXCEL] - kopiowanie w pętli wybranych komórek z tabel arkusza

A mi się otwierają w 2016. Może masz coś nie tak z office2016? edit ------------------------------------ Na Twój problem: [syntax=vbnet]Sub Przenies() Dim x As Double, ostatni_wiersz As Double ostatni_wiersz = Sheets("Arkusz1").Cells(Sheets("Arkusz1"... 1).End(xlUp).Row For x = 1 To ostatni_wiersz Sheets("Arkusz2").Cells(3 + x * 12 - 12, 2)...

Excel - Jak utworzyć wiele kopii jednego arkusza jednocześnie?

Makro, a w makrze:[syntax=vb] Sheets("Arkusz1").Select Sheets("Arkusz1").Copy After:=Sheets(3)[/syntax] ... ostatnia linijka powtórzona tyle razy, ile razy chcesz skopiować arkusz (może być np. w pętli). Dokładne parametry - odsyłam do help'a Excel'a.

Excel VBA - automatyczne drukowanie w zmiennych szablonach

może wyrażam się nieprecyzyjnie Przyznaję Ci rację. [syntax=vbscript]Sub DrukujSzablony() Set e = Sheets("Export") ow = e.Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To ow a = CStr(e.Range("AC" & x)) e.Range("A" & x & ":AB" & x).Copy Sheets(a).Range("A100") Sheets(a).Range("A1:T44").PrintOut Copies:=e.Range("AD" & x) Next End Sub [/syntax]

Excel VBA: Makro do wypełnienia dat w komórkach A2 w 31 arkuszach

No to na zgodę: Wklej w kod arkusza "1" lub arkusza z pierwszym indeksem. Makro uruchamia się poprzez podwójne kliknięcie w komórkę z datą. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If IsDate(Target) Then cel = Target.Address For i = 2 To Sheets.Count Sheets(i).Range(cel)...

Sortowanie unikatowe z hiperłączami według przyjaznej nazwy [Excel]

Zobacz teraz. Dodałem pętlę po arkuszach. [syntax=vbscript]For Each wk2 In Sheets(Array(Arkusz24.Name, Arkusz26.Name))[/syntax]Można również użyć numerów arkuszy: [syntax=vbscript]For Each wk2 In Sheets(Array(2, 3))[/syntax]albo wprost nazw jako tekstów, ale te są u Ciebie długie, więc niezbyt wygodne w użyciu.

[EXCEL / VBA] - Jak stworzyć makro do kopiowania arkuszy do zestawienie?

No działa, ale tak nie prościej? [syntax=vbnet] Sub Kopiuj(Dst As Range) Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).Copy Destination:=Dst End Sub Sub TestKopiowania() Kopiuj (Sheets(3).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)) End Sub [/syntax]

[VBA Excel] - Jak wyciąć wiersze z zerowymi kwotami i przekopiować do innego arkusza?

Nie widzę sensu tej części kodu, jak już zostało zrobione przed tym przeniesienie do "zera" [syntax=vb] Sheets("zero").Rows(Sheets("zero").Cells... "D").End(xlUp).Row + 1).PasteSpecial xlPasteValuesAndNumberFormats Rows(rowTo + 1 & ":" & i).ClearContents[/syntax]

Excel stworzenie makra do kopiowania komórek miedzy arkuszami i usuwania

[syntax=vbscript]Sub Makro() Sheets("Arkusz1").Select a = Application.Match("W", Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Not IsError(a) Then Sheets("Arkusz2").Range("A" & nw) = Range("B" & a) Rows(a).Delete End If End Sub [/syntax]

Excel VBA pobieranie danych z innego pliku excel o zmiennej nazwie

[syntax=vbscript]Pthnm = ActiveWorkbook.Path Workbooks.Open Pthnm & "\" & Sheets("nazwa_arkusza").Range("Y1")[/syn... Założenie jak wcześniej. Oba pliki umieszczone w tym samym folderze. W komórce Y1 znajduje się dokładna nazwa pliku łącznie z rozszerzeniem. Powinno działać.

VBA Excel - Automatyczny zapis arkusza z nazwą z komórki i nadpisywanie pliku

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...