Dopasuj sobie takie makro: [syntax=vbscript]Sub Przelicz() Dim cel As Range With Worksheets("Generator cen") For Each cel In Worksheets("310").Range("A2:A180") .Range("B3") = cel.Value cel.Offset(, 3) = .Range("B26").Value Next cel End With End Sub[/syntax] Po otwarciu załącznika zapisz go sobie w formacie .xlsm. Ja użyłem starego formatu .xls ze względu...
Próbujesz w OpenOffice uruchomić makro napisane w Excelu? Nie będzie działać. Trzeba przepisać. Mnóstwo informacji znajdziesz w Internecie. Tu przykład makra wydruku z zapisaniem "oryginał/kopia": http://obrazki.elektroda.pl/5534132900_1... Generalnie nie jest to trudne. Trzeba "złapać". Zakres C7:C10 aktywnego arkusza w VBA zapisujesz...
Z kolumną J jednak nie dokonca jest w porządku ponieważ aktualizuje komórki aż za tabelkę To można zakres wziąć z kol H (czyli J wypełni do L.p 10) [syntax=vbscript]Range("j8").AutoFill Range("J8:J" & Range("H" & Rows.Count).End(xlUp).Row), xlFillSeries[/syntax]
Chyba chodzi tylko o podstawienie zakresu (pierwsza część makra), wtedy [syntax=vbscript]c = ActiveCell.Column r = ActiveCell.Row If c > 5 Then Range(Cells(r, c - 5), Cells(r, c - 1)).Select[/syntax]
Kod czego ... pętli ... tablicy ? Pętli przecież masz, a tablica niekoniecznie potrzebna, można np. tak (o ile problem poprawnie opisany): [syntax=vbscript]Option Explicit Private Sub CommandButton2_Click() Const pth = "P:\RAPORT\" Const fle = "Plan wk" Const sht = "Main sheet" Const fsht = "R" Dim x As Integer, week As Integer Dim dzientygodnia As...
Rzeczywiście ten opis jest ciężkostrawny, nie wiadomo, kiedy chodzi o ilość, a kiedy o numer. Na przykład: wynik połączony z wierszy 3 z kolumnami odczytać "z trzech wierszy" czy "z trzeciego wiersza"? Załącznik nieco wyjaśnił, chociaż przydałby się jeszcze oczekiwany wynik. Poza tym arkusz jest tak rozbudowany, że mam wątpliwości, czy wszystko jest...
[syntax=vbscript]Sub NowaKolumna() nk = Cells(60, Columns.Count).End(xlToLeft).Column + 1 Range("H60:H80").Copy Cells(60, nk) Application.CutCopyMode = False End Sub [/syntax]
[syntax=vbscript]Sub Scal() ow = Cells(Rows.Count, "A").End(xlUp).Row b = 1 For x = 1 To ow If Not f Then b = x f = True End If If Cells(x + 1) <> Cells(x, 1) Then Range(Cells(b, 2), Cells(x, 2)).Merge Cells(b, 2) = Cells(x, 1) f = False End If Next End Sub[/syntax]
Witaj. Zakładając, że oryginalne dane na pierwszym arkuszu, a wynik na drugi: [syntax=vb]Sub upraw() Dim bsk As Range, bsr As Range Dim rb&, rd&, cd&, cm& Set bsk = ThisWorkbook.Sheets(1).Columns(1).Cells Set bsr = ThisWorkbook.Sheets(1).Range("B:J").Rows rb = 2: rd = 2 With ThisWorkbook.Sheets(2) bsk(1).Copy .Cells(1, 1): bsr(1).Copy...
w tym przykładzie: rngAddress = Range("A1").Value Range(rngAddress).select w komórce A1 wpisz zakres np G2:G200 makro zaznaczy G2 do G200...
A ja bym to zrobił tak :) [syntax=vb]Private Sub CommandButton1_Click() Application.ScreenUpdating = False w = 3 For Each ws In ThisWorkbook.Worksheets If Left(ws.Name, 6) = "Arkusz" Then ThisWorkbook.Worksheets("ZEST").Range("B... & w & ":M" & w).Value = Application.Transpose(ws.Range("C1:C12")... w = w + 1 End If Next ws Application.ScreenUpdating...
Jeżeli pola są oddzielone spację, wystarczy taka modyfikacja pętli: [syntax=vb]Do While Not EOF(1) Line Input #1, TextLine If Left(TextLine, 13) = "121401_2.0011" Then arr = Split(TextLine, " ") wsdane.Cells(i, 1).Value = arr(0) wsdane.Cells(i, 2).Value = arr(1) wsdane.Cells(i, 3).Value = arr(2) wsdane.Cells(i, 4).Value = arr(3) wsdane.Cells(i, 5).Value...
a dlaczego w formule masz nazwę Wykres2 pomimo, że arkusz z wykresem nazywa się Wykres1? Czy to nie ma znaczenia? Arkusz z wykresem nazywa się Wykres1, ale obiekt wykresu na nim - Wykres2. Jak wciśniesz ALT+F11 to zobaczysz to w drzewie projektu: Wykres2 (Wykres1).
[syntax=vbscript]Function Polacz(z As Range) As String For Each k In z If k <> "" Then p = p & k & "," Next If p <> "" Then Polacz = Mid(p, 1, Len(p) - 1) End Function[/syntax]
[syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook i = Application.FileDialog(msoFileDialogOpen... s = Application.FileDialog(msoFileDialogOpen... Set b = Workbooks.Open(s) a.Sheets(1).Range("K20:M23").Copy b.Sheets(1).Range("K20") b.Close True End Sub [/syntax]
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.
To w makrze zaznacz zakres i wykonaj makro na tym zakresie.
Było. Poszukaj w archiwalnych tematach. [syntax=vbscript]Sub UsunWiersze() For x = 100 To 49 Step -1 a = Cells(x, "B") If a <> "" And a = 0 Then Rows(x).EntireRow.Delete Next End Sub[/syntax]
Spróbuj tak [syntax=vbscript]Private Sub Test_Click() Dim zakresy As Variant, z As Integer, zakres As Range, kom As Range zakresy = Array("AQ16:AQ22", "AQ26:AQ30", "AQ37:AQ39") Sheets("Klient").Range("A18:H32").ClearC... poz = 18 'For w = 18 To 79 For z = 0 To UBound(zakresy) Set zakres = Sheets("Wycena").Range(zakresy(z)) For Each kom In zakres...
Po dodaniu w 2 linijce jak wyżej mam " invalid use of prioerty" U mnie działa
Dobry wieczór, Nie znam się na SolidWorks, ale w kodzie VBA widzę przynajmniej dwa błędy: pierwszy w połączeniu Range("Q5...BJ5").Selection.Copy Powinno być rozbite na dwie instrukcje Range("Q5...BJ5").Select Selection.Copy Można też pominąć selekcję i pozostawić tylko: Range("Q5...BJ5").Copy Drugi błąd: Active.Worksheet.Paste Po pierwsze ta instrukcja...
Podstaw pod argument Source - jest typu string... 1. znajdź ostatni wiersz i przypisz do zmiennej: ostW =Range("A" & rows.count).end(xlup).row jeśli nie ma nic "pod spodem" lub ostW =Range("A3").end(xldown).row jeśli kolumna A jest zawsze pełna. Jeśli nie, wybierz inną - pełną (bez dziur) 2. podstaw zmienną do string'a ... SourceData:= _ "Arkusz1!R4C1:R"...
Może definiować zakres "Kryteria" w makro (bez używania nazw)? Zerknij do załącznika. No i zmieniłem zasadę. Puste kryteria, to wszystko na liście... Edit: podmieniłem załącznik (czyszczenie kryteriów)
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
sprawdź załącznik
Załączam przykładowy plik excela z makrem liczącym ilośc znaków w zadanym zakresie arkusza. Wynik podawany jest w drugim arkuszu. Makro wybiera kolejno komórki z zakresu, liczy liczbę znaków w poszczególnych komórkach i dodaje narastająco liczbę poszczególnych znaków z zakresu. Arkusz można dostosować do swoich potrzeb, np. wynik podawać w tym samym...
Sporo niewiadomych. Nie wiadomo gdzie jest 'Activecell', a w związku z tym 'C[-1]' oraz wszystkie "offsetowane". Jedyna wskazówka, że wynik *5% zapisujesz w B3. Trzeba policzyć :) W przykładzie losowanie 5% unikatowych liczb z kolumny "C". Oczywiście wartość 'ile' możesz zapisać w B3 ;) itd
Chcialbym w kolumnie B, C i D otrzymac nr zam oraz wartosc poczatkowa i koncowa Poprzez dwie kolumny pomocnicze :idea: można uzyskać pożądany efekt jak na zrzucie 977848 Wszystkie formuły w załączniku :spoko: 977849
Jest wystarczająco fragment z zmodyfikowanymi danymi, nie należy wskazać prawdziwe i wszystko 7. Kopiuje zakres np. linii P P, P1 lub P2 - z którego to zależy?
zamiast ActiveWorkbook.Worksheets("reporting 27.01") naprosto ActiveSheet p.s. ThisWorkbook to caly skoroszyt, w którym makro
Jeśli makro, następnie tak
Jeśli dobrze rozumiem wystarczy przesunąć zakresy. Przykład w załączniku.
Witam. Nie mogę poradzić sobie ze stworzeniem makra... Chciałabym aby makro łączyło tekst z komórek z zakresu C13:C21 ( z pominięciem pustych) z zachowaniem formatowania i wstawiało do komórki w innym arkuszu. Plik przykładowy z makrem. Jak dołączyć do makra, które mam makro, które połączy zakresy C13:C21 z arkusza "dodaj dane" do jednej komórki w innym...
[syntax=vbscript]Sub Dopisz() nw = Cells(Rows.Count, "C").End(xlUp).Row + 1 For x = 5 To nw If Cells(x, "C") = "" Then Range("C" & x) = "Szukaj pierwszej wolne i wpisz, za każdym kliknięciem" Range("D" & x) = "1" Range("F" & x) = "Przykład" Range("C" & x).Interior.ColorIndex = 37 Range("E" & x) = Application.UserName Range("C" & nw + 1).Activate Exit...
Pętla, podstawianie (replace), porównywanie długości ciągów (len), rozbijanie ciągów (split), podstawianie, porównywanie, rozbijanie, itd. W zależności, czy warunek spełniony wstawianie wiersza, dodanie wartości, mnożenie *10, lub przepisanie. Mnóstwo kombinacji, ale do zrobienia.
Jak ograniczyć zakres tworzonego przez makro zestawienia tylko do pierwszego w kolejności arkusza Jeśli w plikach z danymi występuje kilka arkuszy :?: to musisz skorygować kod makra wymieniając odpowiedni fragment na: [syntax=vbscript]Do Until Len(Plik) = 0 Licznik = Licznik + 1 Set Skor = Workbooks.Open(Folder & Plik) Set Ark = Skor.Worksheets(1)[/syntax]
Witam serdecznie, mam problem z napisaniem makra, które zaznaczy mi w wybranym zakresie wszystkie niepuste komórki.
Jak wybrać aparat z lepszym makro ? 1.Zakres makro- od 0.1m do 0.8m (W) - od 0.5m do 0.8m (T) - od 0.1m do nieskończoności (W) [auto] - od 0.5m do nieskończoności (T) [auto] 2.Zakres makro- od 0.04m do nieskończoności (W) 3.od 0.05m do nieskończoności (W) - od 0.35m do nieskończoności (T) które z tych specyfikacji jest najlepsza ?
Sprawa jest bardziej skomplikowana niż się na pierwszy rzut oka wydaje, bo Target.Value w zdarzeniu Change będzie też przyjmowało puste wartości (przy czyszczeniu/usuwaniu komórki), a także może być zakresem Range() np. przy kopiuj - wklej do kilku komórek (podobnie przy czyszczeniu zakresu komórek), przez co makro będzie się wywalać. Trzeba ew. je...
Zaczynając od wiersza 2 wykonujesz pętlę dopóki w A jest niepuste. Czyli np. jakoś tak:[syntax=vbnet] Sub Sumowanie() Dim Y As Long, S As Double Y = 2: S = 0# Do While Cells(Y, "P") <> "" If Cells(Y, "P") <> 0 Then S = S + Cells(Y, "P") Else Cells(Y, "R") = S: S = 0# End If Y = Y + 1 Loop Cells(Y - 1, "R") = S MsgBox "Gotowe" End Sub [/syntax]
Nie bardzo, to wewnętrzne dokumenty firmy. Pliki wordowskie to standardowe dokumenty korespondencji seryjnej z odnośnikami do bazy danych w excelu. Chodzi mi bardziej o modyfikację makro, żeby przed wygenerowaniem wpisać zakres rekordów.
Makro podział pliku według danych w kolumnie
Długie makro można skrócić :] Tak to może wyglądać dla wydruku 3 kopii A4 z wybranego obszaru po pominięciu wszystkich niepotrzebnych rzeczy generowanych przez recorder i dodaniu obsługi błędów (pamiętaj o prawidłowym wyłączaniu, a na końcu - włączeniu odświeżania ekranu na czas działania makra - tutaj i w innych przyciskach też): [syntax=vb]Private...
Możesz go na końcu usunąć: sheets("Y").rows(1)entirerows.delete. Lub kopiować od Nr 2 [syntax=vb]With Sheets("X") .Rows ("2:" & .Rows.Count).SpecialCells(xlCellTypeVisi... Sheets("Y").Range("A1") End With[/syntax]
Jak już zrobiłeś taką ładną tabelkę, to pomyśl, czy nie lepiej, zamiast zagnieżdżać wiele razy funkcję jeżeli(), dać sumowanie warunkowe albo liczbę komórek niepustych z zakresu od podanego dnia do końca miesiąca. Jedynym tematem będzie eleganckie podstawienie adresu początku zakresu do funkcji. Osobiście zaznaczyłbym dni robocze jako niepuste (dowolny...
Histogram ? Jaki histogram ? Mówimy o czymś co przypomina "przewrócony" "histogram" ... to takie długie i "pierzaste, postrzępione" z prawej strony, a z lewej równe jak przy linijce ... poza tym przydałby się jakiś przykład w pliku xls, dane nie muszą być prawdziwe, przecież na obrazkach nie da się nic ustawić autofiltrem ... nie każdy ma Photoshopa...
Mala odległosc pracy może być lekkim problemem, ale do rozwiązania Można dopowiedzieć, że w pracy makro obiektyw APSC i tak umieścisz dalej od "matrycy" niż przy pracy na nieskończoność, co poszerzy jego obszar roboczy do pełnej klatki. Wspólcześnie nieliczne, bardzo proste obiektywy mają klasyczną naprawdę stałą ogniskową, większość przy wyostrzaniu...
Może jeszcze raz jaśniej opiszę temat. :crazyeyes: Nie wiem czy właściwie odczytałem tą Twoją kombinację warunków :?: ale efekt wielokrotnego kopiowania jednej tabeli jednowierszowej, oraz pojedynczego kopiowania tabeli wielowierszowej - można zrealizować tak jak na zrzucie 959003 poprzez kod VBA (makro) z wykorzystaniem zmiennych tablicowych jak w...
Ok. Zrozumiałem. napisałem małe makro dla zakresu i pętlą sprawdzanie. plik w zalączeniu. kod: Option Explicit Sub ZakresPetla1() Dim wiersz As Long For wiersz = 19 To 30 Step 1 Do While Cells(wiersz, 2).Value = Range("E16").Value Range("F16").Copy Cells(wiersz, 3).PasteSpecial wiersz = wiersz + 1 Loop Next End Sub
Sorry, że jeszcze zawracam głowę, ale czy dało by radę dodać do tego makro kawałek w którym będzie można uwzględnić zakres działania makro? tzn. np aby zmieniało znaki tylko w zakresie komórek np. od B6 do H50 ?
If k <= Date Then Cells(k.Row, k.Column) = "" A jeżeli zakres nie jest w aktywnym arkuszu?
Trochę Cię okłamałem To nie kłam na przyszłość. Mama nie uczyła?;) A w takiej sytuacji umieść arkusz 'Zbiorczy', jako ostatni na liście arkuszy. P.S. Próbowałeś uruchomić to makro? Zapewne nie...
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...
w właściwościach combobox8 usuń zakres z RowSource
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 ;)
Zależy do jakiej odległości schodzisz, w przypadku tego modelu ostrzyć będzie powyżej 40cm na normalnym zakresie i od 5cm do 1m w zakresie makro przy szerokim kącie(W), oraz makro tele (T) - od 1m do nieskończoności. Jeśli w tych zakresach źle ustawia ostrość to prawdopodobnie winien jest moduł AF w obiektywie o rzadko spotykanej konstrukcji bez przekładni,...
Skopiowany zakres do nowego arkusza nie jest obszarem nazwanym Tabela_test, stąd błąd.
) chce porównac jak czesto pada dana kombinacja liczb Problem był nie tyle o Lotto, zarówno o tym, gdzie makro zobaczy dana kombinacja liczb. (InputBox, zakres komorek, czyli inne) Nie będzie to sztywno 6, 19, 3 , 22
Nie działa mi to :/ Widzę, że to zmienia kolor tylko tej komórki a pytanie jak zrobić żeby kolorowało zakres.
Przepraszam, że odświeżam tak stary temat ale mam podobny problem, a zasugerowane w wątku rozwiązanie nie jest skuteczne. Chodzi mi o to, że mam zakres danych, który chciałbym podawać do makra parametrem (makro umieszczone w komórce nad zakresem), a makro miałoby sortować zakres za każdym razem gdy ktoś wprowadzi do niego dane. Makro postaci: Function...
Trzeba było takie informacje: Z programu wagowego eksportowany jest cały pomiar (wszystkie ważenia) do excela Każde takie rozliczenie chcę robić w następnym skoroszycie. przedstawić we wcześniejszych postach :cunning: Jeśli te tabelki mają taką strukturę jak przedstawiłeś w załączonym pliku :!: to nie ma żadnego problemu :D Wprowadź sobie to makro do...
dziekuje bardzo... a czy makro mogloby wklejać ten zakres jako wartości??
Witam. Właśnie poszukiwane z mojej strony.Visual Basic- Excel. - Jeżeli Ktoś z kolegów zna dobrą pozycję książkową Visual Basic z wiązaną z Excelem to bardzo proszę o tytuły. Będę wdzięczny.
Sprawdź dobrze, bo pisane w przerwach między obieraniem ziemniorów i marchewy, i mogą być błędy. 919204 Stałe, zmienne i kod na tyle czytelne, że od razu zrozumiesz intencje. Kody z ich wartościami na oddzielnej zakładce, makro uruchamiane zmianą zawartości komórek w określonym zakresie (stałe dla zakresu początkowego i końcowego), zdefiniowanym w module...
PRL ThisWorkbook.Activate = Windows(Zeszyt).Activate Zrobić pełny link do arkusza. ActiveWorkbook.Sheets(1).Range("A:A").Co... Być może, jak skoroszyt otwiera, jest kopiowany z bieżącego zakresu.
Witam, mam serie dat w jednej kolumnie. Chciałbym żeby makro zapytało mnie, najlepiej w formie wyskakującego okienka jaki zakres dat chciałbym zaznaczyć a następnie żeby makro wykonało polecenie. W przypadku braku zakresu danych wybranego przez użytkownika, najlepiej żeby makro napisało brak daty. z góry dziękuję za pomoc pozdrawiam
Sprawa dość prosta. Procedura zdarzeniowa arkusza "przy zmianie" Range(zakres).Find i przypisywanie...
Dla jednego pola nie jest to skomplikowane - działające makro to: Dla zakresu [syntax=vbscript]Sub elka() For Each c In Range("H8:H100") If c = "TAK" Then c.Offset(, -5) = True ElseIf c = "" Then c.Offset(, -5) = False End If Next End Sub[/syntax]
Zawsze możesz też zrobić tak aby Makro pytało Ciebie przy odpaleniu z jakiego pliku zewnętrznego ma kopiować jaki zakres danych.
Bardzo szybko robi się to ręcznie. Filtr, zaznaczasz, Ctrl+c, Ctrl+v (możesz nawet nagrać makro i je wykorzystać). Klasycznie: w pętli + instrukcja warunkowa (If) oraz licznik wiersza zakresu docelowego.
Witam. Proszę o pomoc w napisaniu makra. Na chwilę obecną mam arkusz z formułą którą potrzebuje przerobić na makro dodatkowo potrzebuje aby formuła przez makro również zmieniała zakres w kolejnym wierszu i kolejnej kolumnie. Formuła wygląda następująco: =JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO($M6&$N... C50'!$O$439:$FZ$541;CP$2;0));...
range("C6:E16";"B19:B20") Możesz nawet Próbowałes ręcznie skopiować ten zakres?
Jeśli cały wiersz po użyciu filtra, to np. tak: [syntax=vbnet]Debug.Print ActiveSheet.AutoFilter.Range.SpecialCell... jest pokazane jak wydrukować adres tego zakresu, ale pomijając Address możesz sobie zrobić z tego odwołanie.
https://obrazki.elektroda.pl/9888409700_... Ale jakiś komunikat, konkretna linia? Jaki Office? 32, 64bit? Komunikat jak z załączonym zdjeciu. Office 2010 Windows 7 - 64bit
Witam Mam już gotowe makro ale ma ono zasięg tylko do 12 kolumny w dół chciałbym to zwiększyć . Jestem w kropce, jeśli ktoś potrafi mi pomóc to bardzo prosze. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target.Value <> 0 Then If Not Intersect(Target, Range("rngPlus")) Is Nothing Then If Target.Offset(0, -1)...
[syntax=vb]Sub kopia() If ActiveCell.Column <> 4 Then MsgBox "Wybierz indeks z kolumny D": Exit Sub ow = Sheets("Arkusz2").Range("C" & Rows.Count).End(xlUp).Row + 1 If ow < 15 Then ow = 15 r = ActiveCell.Row Range(Cells(r, "C"), Cells(r, "H")).Copy Sheets("Arkusz2").Range("C" & ow) End Sub [/syntax]
Dzień dobry, Z zakresami sklejonymi zawsze są problemy, lepiej tego unikać. Ale zawsze jakoś można sobie poradzić, czasem drogą okrężną. Ale ja już się trochę pogubiłem w tym Pana problemie: czy Pan chce kopiować z zakresu sklejonego do pojedynczej komórki czy odwrotnie z komórki do zakresu sklejonego? Poza tym ważne jest w jakiej kolejności Pan skleja...
Użyj: Range("A1:Z250").Locked = True. Zakres oczywiście dobierz właściwy.
Sprawdzanie poprawności danych było by wystarczające jednak problem w tym że nie mogę tej opcji ustawić odgórnie, dlatego że plik w którym ma być ta opcja jest tworzony z innego głównego pliku i zakres w którym ma działać sprawdzanie danych jest ruchomy. Dlatego sprawdzanie danych musi być włączone przez makro. Zakres w którym ma być ustawione sprawdzanie...
Application.Undo O! A dlaczego w moim Excel 2007 tego nie ma? W Internecie (nawet u Walkenbach'a) napisano "Excel 2007 and later" :( Może dlatego, że wersja "for school and student"? Biegnę szukać jakiś aktualizacji... No coś takiego!
Rozwiązań jak zwykle jest kilka. Jednak w związku z tym, że makro wykonuje działania na konkretnym arkuszu i określonych zakresach umieściłbym je pod przyciskiem, a cały plik bez wpisanych danych najlepiej byłoby zapisać jako szablon. Użytkownika łatwo będzie nauczyć klikać: Plik>Nowy z wyborem odp. szablonu... Można nawet dołączyć jakiś Help lub dodatkowy...
No ok, poprawiłem, lecz to niestety nie jedyny błąd. Głównie chodzi mi o to by poprawnie wyszukiwał ten zakres, a na ten moment jeszcze go dokładnie nie znajduje, a makro nie widząc zakresu nie może przeszukać go.
a jak napisać makro które zaznaczałoby te 24godzinne zakresy? i po skopiowaniu przechodziłoby do następnych 24godzinnego zakresu?
z tego co się orientuje, poprzez wbudowaną funkcję excela się nie da. Możnaby napisać makro. W załączniku przedstawiam proste makro, które zmienia tło na czerwień jeżeli wpiszesz cokolwiek w zakresie A1:C3. W razie pytań... pytaj:)
Jeżeli chodzi o przenoszenie formatowania to excel właściwie nie ma żadnych funkcji. Można to zrobić jedynie poprzez makro (VBA) lub "pisaniną" poprzez formatowanie warunkowe i to w excelu 2007 i powyżej, bo niższe mogą mieć tylko max 3 warunki. Ten kto zna jako-tako programowanie w VAB może sobie poradzić. Ten kto nie ma pojęcia na początku upadnie,...
Witam, Mam pytanie o możliwość stworzenia makra które będzie kopiować wypełnione wartościami kolumny w dół zaznaczając komórkę A2, jednak przy kopiowaniu pomijało by wiersze dla których nie ma podanych wartości w kolumnach D i F: https://obrazki.elektroda.pl/8651122400_... Na chwilę obecną przy poniższym kodzie: [syntax=vbscript] Range("A2").Select...
Dlaczego nie załączyłeś pliku? Przecież na obrazku niczego nie można sprawdzić. Podejrzewam, że linie obramowania, które Ci się nie kopiują są przypisane do sąsiednich komórek. Ramka rozdziela komórki, ale nie musi być przypisana do obu, może być przypisana tylko do jednej z nich. Wtedy przy kopiowaniu trzeba zadbać o to by obramowania były przypisane...
załączam przykladowy plik i teraz np. sprobój wpisac w jakas kolumn obojetnie b cz c jakąs wartość i wypełnić w dół serią danych nie wiem dlaczego makro się odzywa jeśli ja nic nie grzebie w nim tylko wypełniam serią danych inne zakresy.
niestety niewiele mi to pomogło.
Potrzebuję makro wyszukujące zadaną wartość w nieokreślonym zakresie arkusza. Nie mogę określić konkretnego zakresu ponieważ zakresy są różne. Wyszukiwanie zawsze zaczyna się od A1. Makro zawierające: "For Each komórka In ActiveSheet.Cells" wyszukuje zadaną wartość przeszukując arkusz w poziomie tzn. komórka A1, B1, C1 ..., następnie A2, B2, C2 itd....
przeinstalowanie Office`a względnie samego Excel`a.
Nie widzę obrazka ale u mnie nie działa bo wykres ma być w nowym arkuszu. Chodzi właśnie o zakres na sztywno. Jak wstawiłem do makra to co tam wpisałeś to makro przestaje działać.
Np. dla zakresu A1:B5 Od początku powinno być odblokowany. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim zakres As Range Set zakres = Range("A1:B5") If Intersect(Target, zakres) Is Nothing Then Exit Sub Me.Unprotect 'haslo Target.Locked = True Me.Protect 'haslo End Sub [/syntax]
Witam , jestem nową osobą na forum potrzebuję pomocy w sprawie VBA ,jestem dość początkującą osoba Mianowicie mam za zadanie wczytać dane z plików , każdy plik(.html) w osobny arkusz z których do następnego arkusza kopiowane będą zakresy danych (po dwie kolumny - takie same zakresy w każdym arkuszu) i wprowadzane obok siebie z odstępem jednej kolumny....
Dzięki FLESZ za makro. Działa ono w zakresie deklarowanym gdzie znajdują się wartości. Makro skraca czas tworzenia funkcji (klepania adresów). Jeżeli zwiększę zakres i część komórek będzie pustych to Excel traktuje je jako "zero" podstawia do wzoru i wylicza średnią. Jeszcze raz dzięki za pomoc spróbuję zmodyfikować Twoje Makro. Pozdrawiam
Problem polega na tym, że potrzebuję właściwie wskazać zakres do skopiowania https://docs.microsoft.com/pl-pl/previou...
Wypada dopowiedzieć (dla przyszłych pokoleń). Jeśli liczby/daty/kombinacje- Np a1, a2 , (...) są kolejne, najprościej wpisać w dwie pierwsze komórki kolumny i przeciągnąć/skopiować w dół. Sposób podany wyżej jest świetny dla liczb niekolejnych/ macierzy/ zakresów niezwartych...
Przyczyna może tkwić w napisanym makrze? Makro może zmieniać ustawienia zabezpieczeń poszczególnych komórek lub całych zakresów :D Pokaż to makro i podaj gdzie ono jest zapisane (Personal.xlsb?) :?:
Mała przeróbka makr: 912681 Wiersze można dodawać ze ściśle określonego zakresu, który sam sobie ustalasz ("If ilewrs > 10 Then Exit Sub"). Usuwanie wierszy tylko pojedynczo, od ostatniego, aby zachować porządek.
Witajcie Potrzebuje ustawić zakres komórek, przy kliknięciu których uruchamia sie makro potrzebuje ustawić 2 zakresy a mianowicie "J3:J"&lrow oraz "L3:M"&lrow czyli w kolumnie j oraz l do m ale do ostatniego wiesza w kolumnie a i tu prosba. jak zapisac te zakresy Kiluk
makro zakres makro zakres filtr makro kopiować zakres
ustawi zegarek smartwatch skuter blokada netgear switch
schemat windy samochodowej lampa festool
Iveco AS440T/P - Ikona Podniesionej Naczepy Błąd EventSetInformation w ADVAPI32.dll - rozwiązania