problem rozwiązałem. Dziękuję za pomoc.
Cześć. Szukam i szukam i znaleźć nie mogę więc kiepsko szukam. Problem mam taki. Mam w komórce wartość powiedzmy "A2+B2" Wiem, że "łapiąc" tę komórkę i przeciągając w dół w następnych będzie "A3+B3", "A4+B4". Natomiast jeżeli robię kopiuj i wklej to - jeżeli wklej jest w komórkę 1 wiersz niżej to wartość mam "A3+B3" - jeżeli wklej jest w komórkę 2 wiersze...
http://obrazki.elektroda.pl/3150320100_1... Z uwagi na problemy z generowaniem czcionek do moich projektów opartych na LCD np od Nokii 6610 i 6800 napisałem swój własny programik, który ułatwia tą czynność. Programik (oczywiście darmowy) napisany jest przy użyciu darmowego środowiska Lazarus dostępnego zarówno dla Windowsa jak i dla...
Chyba poddam się, bo nic z tego nie rozumiem, te wszystkie skróty dla mnie sa trochę nie zrozumiale. Wpisałem to w wiersz poleceń cmd ale nic się nie zadzialo. Nie mogę nic zrobić zeby wklejać to przez komputer, musialbym dodawać normalnie sterowniki itp i wszystko instalowac, bo to Windows odpalony z dysku okrojony, od nowa sterowniki wifi itp, żeby...
Wklej do modułu pliku z linka i uruchom. Makro w tej postaci "wydłubało" 1341 wierszy. Po wszystkim wyeksportuj, lub skopiuj arkusz "Wynik" do swojego pliku. Reszta w komentarzach.[syntax=vb]Sub Yoasia() ileArk = 2 'są dwa z danymi w pliku z linku. Zmień jeśli jest inaczej. 'tu sprawdzimy czy jest arkusz wynikowy, wstawimy jeśli nie 'nie zmieniaj kolejności...
Panowie i Panie potrzebuję pomocy w takim prostym makro jak wklejać tylko wartość a nie funkcję i formaty? [syntax=vbscript]Sub kop_działa() Dim wiersz As Integer, nr_wiersz As Integer nr_wiersz = 10 With Worksheets("LISTA") For wiersz = 3 To 200 Step 1 .Range(.Cells(wiersz, 24), .Cells(wiersz, 24)).Copy _ Worksheets("DRUK").Cells(nr_wiersz + 3, 3)...
Próbujesz wklejać zbyt duży zakres danych w stosunku do posiadanego miejsca w arkuszu, tak mniej więcej działa twoje makro: http://filmy.elektroda.net/24_1502974789... ( odtwarza się na pewno w mpc-hc ) Wklejany zakres jest o min. 1 wiersz większy niż dostępne miejsce w arkuszu. Pytanie: Jaki właściwie zakres danych chcesz kopiować z jednej zakładki...
Tak ale pod FTP. Jak odpalisz recovery i jest błąd odpalasz wiersz polecenia (CMD) i wpisujesz FTP 192.168.178.1 LOGIN i PASS to adam2 potem wklejasz to co Ci napisałem Po każdej komendzie powinno być SUCCES Jak tak jest wpisujesz BYE i wychodzisz z bootloadera. Potem jeszcze raz odpalasz recovery ale NIE WYŁĄCZASZ fritza. Powinno przejść. Tak po FTP...
Mam takie makro, które ma pobierać dane ze skoroszytów i wklejać do jednego. Wszystko działa dobrze z wyjątkiem pętli - nie przeskakuje na kolejne arkusze tylko ciągle pobiera z jednego, maksymalnie dwóch. Co jest nie tak? Sub Scalanie() folder = "D:\Pliki\" Set master = ActiveSheet plik = Dir(folder & "*.xlsx") wiersz = 14 Do While plik <>...
Oto plik. Potrzebuję jak napisałem wyżej: jeśli znajdę nazwisko w kolumnie B i pasujące do niego imię w kolumnie C to wartość z komórki ( wiersz ten sam co nazwisko, kolumna K) powinna wklejać się np. w innej zakładce. Zauważ, że to samo nazwisko pojawia się kilkukrotnie, więc trzeba to zrobić bez powtórzeń. Trochę to skomplikowane. Dzięki z pomoc Janek
Witam, pisze w sprawie kodu z pętla w VBA w Excelu, gdyż zawsze mialem problem z pętlami i nie moge sobie poradzić. Potrzebuje program który skopiuje wartość z pliku pierwszego o nazwie Zamówienie z komórki "C15" do komórki w pliku ZSO "L2". Następnie będzie kopiować komórki, które są "" w zasiegu B23:B52 z pliku pierwszego do pliku ZSO i wklejać będzie...
Hmm a jeśli wykorzystałam poprzednie makro, które napisałam, które wstawia dodatkowy wiersz jeśli suma>20 i odwołuje się do niego. Natomiest nowe makro ma wyszukiwac pustego wiersza i wklejać do nowo otwartego pliku zakres 1:pusty wiersz do określonej zakłądki AERO. Mam coś takiego, ale wyrzuca mnie(po wstawieniu Breakpointu) w odwołaniu do otwarcia...
Witam. Proszę o pomoc w przerobieniu makra z Excela 2003 na makro pod Excel 2007. Wywala w linii z : Application.FileSearch ponieważ Excel 2007 nie obsługuje tej komendy. [syntax=vb] Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i, wiersz As Long Dim sciezka As String dato = Range("B3") ' nazwa folderu z plikami do pobrania danych sciezka =...
Ok Działa, ale nie przenosi do innego arkusz. Ponadto kopiuje tylko wiersz A2 i to jest dziwne bo w kodzie jest umieszczony zakres od A2 do U3. Nie wiem czym to jest spowodowane. To może tak, zarejestrowałem nowe makro: Sub kopiowanie() ' ' kopiowanie Makro ' ' ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A1:U2").Select Selection.Copy...
Napisz procedurkę w VBA która Ci będzie wyszukiwać i wklejać te dane. Poszukaj w googlach jakiegoś kursu VBA, a nie bierzesz się za coś o czym nie masz pojęcia i wypytujesz, bo nie chce Ci się poczytać jakiejś książki albo kursu. Podpowiem że w trybie projektowania musisz 2 razy kliknąć w tego combobox-a żeby dodać do niego obsługę zdarzenia. Wpisz...
Słuszna uwaga, tego raczej nie nie przegapiłem, raczej błąd przy zaznaczaniu i wklejaniu. Dzięki za poprawkę.
Kolego Ozzman odinstaluj Kasperskiego. Zainstaluj Avira Antywir. Powody mogą być różne : 1.Twój antywirus zabiera za dużo zasobów. 2.Nie sprecyzowana konfiguracja Msconfig 3.Kondensatory mogą być wybulone na płycie gł albo i nie ale ze starości inna wartość kondensator ma żywotność gdzieś to było opisane w specyfikacji technicznej "4 lat" Albo i mogą...
No to lecimy: Uruchamiasz wiersz poleceń (cmd) w trybie administratora, wklejasz całą linijkę poniżej: "C:\Program Files\Common Files\microsoft shared\ClickToRun\OfficeC2RClient.exe" /update user updatetoversion=16.0.13901.20462 Klikasz, uruchamia się Office Update i jak skończy - cieszysz się terścią wiadomości
Wielkie dzięki, w życiu bym tego nie ogarnął. Całość jednak działa tylko, gdy numer_wiersza = 1(wartość stała) Gdy jednak do kodu wklejam wiersz: [syntax=vbscript]numer_wiersza = Range("A" & ActiveSheet.Cells.Rows.Count).End(xlUp).... 0)[/syntax] niestety makro nie działa i nie bardzo wiem jak to naprawić. Plik rośnie z każdym kolejnym i nie wiem...
Problem mam z tym, ze jak bierze już dany wiersz do kopiowania w którym są checkboxy i kazdy z nich ma jakieś odwołanie, to wkleja wiersz ponizej już z tym odwołaniem. Nie wiem jak zrobić aby odwołanie się nie kopiowało, a checkbox tak
Może to pomoże. http://www.elektroda.pl/rtvforum/topic30... Dodano po 1 Uruchamiasz wiersz poleceń jako administrator -> wklejasz do niego poniższe komendy ( tzn. każda linia potwierdzona enterem ) i sprawdzasz czy jest Internet. netsh int ip reset ipconfig /release ipconfig /renew ipconfig /flushdns ipconfig /registerdns arp -d nbtstat -r nbtstat...
Przed formatem możesz jeszcze wykonać poniższe polecenie. Nie będę teraz opisywał która linia co oznacza bo nie oto teraz chodzi. Uruchamiasz wiersz poleceń jako administrator -> wklejasz do niego poniższe komendy ( tzn. każda linia potwierdzona enterem ) i sprawdzasz czy jest Internet. netsh int ip reset ipconfig /release ipconfig /renew ipconfig /flushdns...
Witam. Może brzmi dziwnie, ale wytłumaczę: - jest w pierwszym wierszu funkcja typu: =ILE.NIEPUSTYCH(C9:C188) - ktoś mi wkleja wiersz z danymi przed wierszem C9 - funkcja automagicznie zmienia się na =ILE.NIEPUSTYCH(C10:C189) i diabli biorą obliczenia Potrzebuję to wykryć albo zablokować taką autodestrukcyjną reakcję w konkretnym arkuszu (nie całym pakiecie...
Najprościej: Nie zadziała jeśli target jest większy niż pojedyncza komórka (np. wklejanie kilku komórek). Odnośnie mojego przykładu - a u mnie działa ;) tzn. reaguje tylko na wiersz 5. Edit: Mała modyfikacja eliminująca pewną niedogodność przy wklejaniu kilku komórek na raz ;) [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim...
Na początku musisz ustalić długość kolumny, którą będziesz przeszukiwać tzn. ostatnią niepustą komórkę. Możliwe jest to za pomocą: Application.WorksheetFunction.CountA(... Do wyszukania wartości użyć można: Selection.Find() Cały wiersz zaznaczasz za pomocą: Rows().Select Zaznaczony wiersz kopiujesz: Selection.Copy Wklejasz: Range().Select...
Wygląda na to że bez zmian dla przykładu jeden wiersz a arkuszu Arka w którym sformatowałem ceny kolorem czerwonym: Sam chciałeś W nagranym przeze mnie makrze takie wklejanie daje taką linijkę kodu: Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats Niestety nie wiem czy można ja dopisać do Twojego makra. Niestety nie potrafię z kodu wychwycić...
No właśnie tutaj mam problem, bo dane odczytuję z aplikacji i mogę je mieć w pliku tekstowy gdzie kolejne wartości będą w osobnych wierszach. Teraz chciałbym je wkleić do kolejnych pól tabeli w Wordzie, ale juz nie jedno pod drugim, tylko w kilku kolumnach. Nie mam jakiegoś algorytmu wklejania do tabeli, adresować komórki do której trafić ma odpowiedni...
O teraz działa praktycznie w każdym wypadku! Tylko gdybyś mógł jeszcze włączyć opcję obsługi przypadku w którym w wierszu nie ma nic innego tylko "|". Program do raportów po tytułach części raportu wkleja jeden wiersz w którym jest ten jeden znak i to wykrzacza... i gdybyś mógł mi pomóc z tym oknem dialogowym..
Otwórz w Access tabele do której chcesz wkleić dane, ctrl +a, ctrl+c, otwórz excel nowy arkusz ctrl+v, wytnij wszystkie wiersze oprócz nagłówków kolumn (pierwszy wiersz) , edytuj dane dodawaj, zmieniaj co chcesz, kolumnę id pozostaw pusta. Gdy skończysz zaznacz i skopiuj arkusz, w Access zaznacz ostatni wiersz w tabeli i ctrl+v, jeśli typy danych itd...
Witam Rozumiem że korzystasz z tego kodu? [syntax=vbscript]Set Poczta = CreateObject("outlook.application") Set MojMail = Poczta.createitem(0) With MojMail .To = "mail(at)domena.pl" .CC = Poczta.Session.CurrentUser.Address .Subject = "Mój tytł" .ReadReceiptRequested = False .OriginatorDeliveryReportRequested = False .body = 'Tutaj chce w formie tabeli...
Na przykład dodaj jeszcze jedną kolumnę przy wierszach które mają być liczone wpisz 1, w kodzie dodaj jeszcze jeden if który sprawdzi czy jest jeden jeśli jest to liczy jeśli nie to następny wiersz, lub po ostatnim Next do wartości p. K. i dodajesz tyle ile ma być pominiętych wierszy, np i =i +10 i jeszcze raz wklejasz swój kod który sprawdzi następny...
Cześć Wszystkim Proszę o zrozumienie ale dopiero raczkuję w vba i staram się sam rozwiązywać problemy ale teraz obecny problem mnie przerasta. Mam 12 tabelek, każda tabelka to jedno podejście do badań przez osobę kontrolującą . Uzupełnia wyniki i blokuje Swoją część. Ponieważ mój czysty formularz zawiera 12 takich tabelek chciałbym stworzyć takie makro...
Tak tez probowalem,ale Jak w komorce zaznacze archiwizuj wiersz i ten wiersz zaznaczam, wycinam, w drugim arkuszu znajduje pierwszy wolny wiersz i wklejam. Super tylko, ze jak zrobic ,by wycial ten z zaznaczona komorka i znalazl pierwszy wolny wiersz. W tym drugim arkuszu. By tam wkleic. Ok probowalem makro zrobic nawet na zasadzie, by w tym drugim...
wstawiłam formułę. działa super ale kiedy próbuję ją skopiować w dół mam komunikat "ta operacja wymaga aby wszystkie scalane komórki miały takie same rozmiary". wklejanie formuły w każdy wiersz z osobna jest niemożliwe (mam ponad 2000 wierszy). w załączeniu plik z formułą. co zrobić ? jest jakiś sposób? pomocy!
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Można w ten sposób: 1. Wykorzystajmy kolumnę DA jako pomocniczą. W DA4 wklejamy =MOD(WIERSZ();2) przeciągamy w dół do DA229 i wiemy, który wiersz jest parzysty, który nie. 2. W komórkę H4 =JEŻELI(ORAZ(I4<>"&qu... i przeciągamy do H213 3. W J215 =JEŻELI(SUMA.ILOCZYNÓW((J4&#...
vcarter - w pierwszym poście przedstawiłeś kod, w którym wystarczy tylko zmienić wklejanie całej zawartości pliku na odczyt wiersz po wierszu i umieścić wszystko w pętli. VBA posiada wbudowane funkcje. które radzą sobie z własnymi oraz niektórymi obiektami systemowymi, w przeciwieństwie do Np Basica w Open Office, gdzie niemal wszystkie obiekty wymagają...
Witajcie, Napisałem makro kopiujące cały wiersz. Problem mam z tym, ze jak bierze już dany wiersz do kopiowania w którym są checkboxy i kazdy z nich ma jakieś odwołanie, to wkleja wiersz ponizej już z tym odwołaniem. Nie wiem jak zrobić aby odwołanie się nie kopiowało, a checkbox tak. Poniżej wklejam kod: [syntax=vb]Sub WstawPo(SearchedRn As Excel.Range,...
Intersect(Target, Columns(...)) zwraca zakres komórek typu Range(), będący wspólną częścią - w przypadku zdarzenia Worksheet_Change - obszaru, który uległ zmianie (Target) oraz wybranej kolumny (Columns(...)). Tym obszarem który uległ zmianie (Target) może być tylko jedna komórka (np. kiedy wpisujesz w nią wartość ręcznie), ale też zakres komórek (np....
Więc na początku programu daje wiersz = ActiveCell.Value a tam gdzie wklejam daje Range(wiersz).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ale chyba jest cos nie tak bo niedziala i pokazuje na ten drugi kod :/
Cześć, Zwracam się z prośbą o pomoc, ponieważ potrzebuję napisać makro, które kopiowałoby wybrany wiersz, od pola B2 w Arkuszu1 (to wiem jak to zrobić) a następnie wklejałoby go w następne. Tu zaczynają się schody, ponieważ nie chcę na sztywno wpisywać zakresu wklejania. Warunek ma być następujący, jeżeli w kolumnie A (NAZWA DOSTAWCY), nie ma żadnej...
Dzięki za wszystkie wskazówki (bardzo pomogły). Pętla działa już jak powinna: For i = pierwszyWiersz To ostatniWiersz If Sheets("Arkusz2").Rang... = Sheets("Arkusz1").Rang... & i) Then licznik = licznik + 1 Sheets("Arkusz1").Rang...
Rzeczywiście można bez pętli. To pozostałość bo pierwotny kod pozwalał wybrać liczbę kolumn jaką chcę się dodać. Po przemyśleniu stwierdziłem że może prościej będzie kopiować ostatnią kolumnę? Zamieniłem tę linijkę "ws1.Columns(iCol).EntireColumn.Insert" na "ws1.Columns(iCol).EntireColumn.Copy ws1.Columns(iCol)" i ładnie działa tylko zależy mi na tym...
Robisz zmienną, która odczytuje z określonej komórki wartość czyli ilość wierszy do wklejania i kolejne zmienne z wartościami do wklejenia. Wierszy = Cells(wiersz, kolumna).Value
To jest NIE-SA-MO-WI-TE! Działa! Excel/programowanie jest przepotężne. Robiłem ten "kod" za pomocą nagrywania makro oraz dodawałem coś od siebie, żeby to działało automatycznie. Asem w kodowaniu VBA nie jestem, ale jeżeli mój działał, to działał, a że działał tak sobie, to zwróciłem się o pomoc do (jak widać) odpowiedniej grupy użytkowników. (^_^)...
Chciałbym, żeby to makro wyszukiwało mi ostatni wolny wiersz i tam wklejało dane z plików, czyli: [syntax=vb]wiersz = Sheets("dArk").Range("C65536").End(xlUp)... + 1[/syntax] Niestety moja znajomość VBA jest na razie (mam nadzieje :D ) na niskim poziomie i dołączenie tej części kodu wywala mi błąd. Druga rzecz. Pobierane dane nie zawsze są tej samej...
Witam wszystkich mam poważny problem z dodawaniem nowego wiersza za pomocą przycisku. Stworzyłem tabelkę, która zawiera wiele list rozwijanych i funkcji jeżeli to coś tam. Przycisk z odwołaniem do Makra dodaje mi kolejny wiersz zachowuje listy rozwijane ale nie przenosi funkcji i pojawiają się puste komórki. Czy może ktoś wie jak powinno wyglądać prawidłowe...
w miejsca w których powinny być, czyli w miejscach w których pojawiają się w drugim arkuszu Jak makro ma to ocenić? Co z wierszami bez indeksu w A? Myślałam żeby znaleźć te wartości z prawda i ich indeks minus 1 wtedy indeks plus 1 wstawić pusty wiersz i wstawiać wiersze
Nie wiem, ale z Twojego pliku widać, że można tutaj zastosować bardzo prosty trick rozwiązujący ten problem - wprowadzenie na początku tabeli dodatkowej kolumny z identyfikatorem (numerem) trasy Umożliwi to dokładne wychwycenie wszystkich wierszy z określonym identyfikatorem Powiem szczerze nawet o tym myślałem, ale po pierwsze arkusz generowany jest...
Witam wszystkich. Potrzebuję napisać macro, w którym: 1. Z Arkusza początkowego kopiuje wartości (nazwy dostawców) do osobnego Arkusza. 2. Przycina te wartości do wskazanej ilości znaków (tak, żeby mogły stanowić nazwę Arkusza). 3. Otrzymany wynik zwraca do pierwszego Arkusza w miejsce oryginalnych wartości. 4. Wracamy do nowego arkusza, w którym nazwy...
wklejać kolumna wiersz wklejać puste wiersz wklejać grafik
zmywarka bezpiecznik wymiana lista kanał ariva rozszerzenie obrazu telewizorze bokach
domofony cyfrowe reason instrukcja
Kody serwisowe Sony Xperia M4 Aqua: Diagnostyka i reset Zwiększenie pojemności kondensatora w silniku hydroforu: korzyści i zagrożenia
