Jeśli dobrze zrozumiałem, to najlepszym sposobem było by zastosowanie strumieni z nagłówka "iostream.h". Swego czasu robiłem programy, które musiały ignorować białe znaki. Np. operacja pobrania danych z pliku: ... ifstream in("index.html"); in >> new char[256]; ... To pod przydzieloną pamięć, zostanie skopiowane tyle...
Jeśli jednocześnie to For ark = 1 To 2 With Sheets(ark) For i = .Cells(65536, "a").End(xlUp).Row To 2 Step -1 If .Cells(i, "a").Value = "" Then .Rows(i).Delete shift:=xlUp End If Next End With Next Jeśli uruchamiasz w pierwszym a usuwać ma w drugim to With Sheets(2) For...
No u mnie z jakiegoś powodu nie chce to działać poprawnie Gdybyś kolego zamiast rysunków zamieszczał (spakowany do zip !!!) plik ods to można by coś więcej podpowiedzieć. W zaproponowanej formule wykorzystywany jest parametr miesiąca uzależniony od aktualnego wiersza - jeśli masz regularny układ (wiersz z danymi datami, a potem 4 wiersze puste) to...
Poproś kogoś innego.
Moim zdaniem załatwia ten problem instrukcja set przed pętlą. Pętla nie wejdzie na puste wiersze. :)
[syntax=vb]Sub kopie_zakres() With Sheets("Arkusz3") pw = .Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Arkusz2").Range("A2:Y2").Copy .Cells(pw, 1) End With End Sub [/syntax]
Myślę, że najlepsze wyniki czy nie od końca, ale od początku [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, r As Long, c As Long Application.ScreenUpdating = False i = 2 r = i While Cells(i, 11) <> Empty If Cells(i, 11) <> Cells(i + 1, 11) Then Rows(i + 1).Insert For c = 5 To 7 Cells(i + 1, c + 3) = Application.WorksheetFunction.Sum(Range(...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
No tak, bo funkcja: każdego wiersza? Jeżeli tak, to zmień kolumnę z "A" np. na "B" lub "C"...
podaj adres strony
Chcesz wstawić formułę wyszukaj w kolumnę G w zależności od danych w kol A? [syntax=vb]ost = Cells(Rows.Count, 7).End(xlUp).Row + 1 ost2 = Cells(Rows.Count, 1).End(xlUp).Row Range("G" & ost2 & ":G" & ost).FormulaR1C1 = "=VLOOKUP(RC[-6],'Previous week'!C[-6]:C,7,0)"[/syntax]
w przykładzie zeszyt3 [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 1).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub[/syntax] A tu kod z nazwą - ale nie...
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
Aktywny 'arkusz2' [syntax=vb]r = Application.CountA(Columns(1)) + 1 While r > 2 n = Application.CountA(Rows(r - 1)) - 2 For nr = 1 To n Rows(r).Insert Cells(r - 1, n - nr + 3).Cut Cells(r, 2) Next r = r - 1 Wend [/syntax]
Nie jest całkowicie skrot, reprezentuje nazwę obiektu w skoroszycie, Np for each bbb in ActiveWorkbook.Sheets 'colection sheet in workbook bbb .Cells(1,1)="Witaj" next
Dzień dobry, Nie wiem czy o to Panu chodziło, ale rozwiązanie wydaje się dość proste. Po zastosowaniu formuł jak w przykładzie puste wiersze można zamaskować filtrem (tak chyba najprościej).
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
Może to będzie pomocne? [url=http://www.elektroda.pl/rtvforum/to...
[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 =...
To, co rzuca się w oczy i to bez okularów oraz zaglądania do załączników ;) Brakuje precyzyjnych odwołań. Np [syntax=vbscript]'usuwa puste wiersze ow = ThisWorkbook.Sheets("OdczytaneDyski").Ce... "A").End(xlUp).Row For c = ow To 1 Step -1 If Cells(c, 1) = "" Or Left(Cells(c, 1), 3) = "Cap" Then Rows(c).Delete Next [/syntax]i nie wiadomo,...
Sądzę, że chodzi o ten warunek: If Cells(i, "B").Value = "" Then Jak daję If Cells(i, "B").Value = "10" Then to dla wiersza o tej wartości w komórce działa (może użyj .text ?) Po drugie nagrane makra z regóły trzeba uprościć wywalacąc .select (bo po co zaznaczać?) W tm przypadku : Rows(i).EntireRow.Hidden = True
Dane - Filter nie dziala ?
Witam, potrzebuje pomocy w napisaniu makra, które będzie działać jak w poniższym opisie: Mamy dwie takie same tabele w jednym arkuszu. Nie są to tabele przestawne. Mają po 26 wierszy oraz po 14 kolumn. Jedna mieści się w zakresie A14:N39 a druga poniżej, obejmuje zakres A42:N67. Do pierwszej wczytywane są dane z innego pliku o nazwie kalkulacja.xlsm,...
Pewnie pierwsze dane masz w drugim wierszu, u mnie był w 3, zamień: For k=3 na For k=1 (sprawdzanie od pierwszego wiersza). Makro sprawdza kolumnę B od dołu, widocznie są u Ciebie jakieś puste wiersze ... Jeżeli wiesz ile masz komórek w kolumnie B do sprawdzenia wpisz na sztywno (3500 to ilość wierszy) : zamiast: For k = 3 To Cells(Cells.Rows.Count,...
Wg podanych informacji, najprościej którąś z Do. Coś w tym rodzaju: [syntax=vb]wrs = 2 Do While Cells(wrs, 6) <> "" Cells(wrs, 4) = "ble ble ble" wrs = wrs + 1 Loop[/syntax]
Ze względu na nieregularność danych, to się teraz mocno skomplikowało. W zasadzie to już powinno się napisać kod VBA. Ja jeszcze to spróbowałem ogarnąć formułami, ale one nie są eleganckie i przy większych nieregularnościach mogą dawać błędne wyniki. Na pewno z danych należy usunąć scalenia, takie jak w wierszach 7 i 8, a następnie puste wiersze. Tu...
Procedura w kilku krokach: 1) wpisz w pierwszej wolnej komórce odpowiednie odwołanie, np. W A2 wpisz =A1 2) skopiuj komórkę z formułą do pamięci podręcznej, np. Ctrl+C 3) zaznacz cały zakres 4) wybierz Znajdź i zaznacz/ Przejdź do - Specjalnie / Puste komórki (np. F5/Specjalnie/puste) 5) Wklej np. Ctrl+V
Witam. Proszę o pomoc. Chciałbym się dowiedzieć czy jest taka możliwość, żeby przeszukiwać wiersze Excela i następnie w puste komórki za pomocą VB.net wstawiać wartości. Jeśli jest taka możliwość proszę powiedzieć jak to zrobić????
Cześć! Makra miałem na uczelni jakieś 5 lat temu, więc potrzebuję pomocy.. Chodzi o to, że w jednym arkuszu mam wypisane daty z opisem (A,B,C itd.), które potem makrem automatycznie uzupełniają się w tabeli "DO SKOPIOWANIA". W drugim arkuszu kopiuję ręcznie całą tabelkę z pierwszego arkusza i usuwam puste wiersze. Czy istnieje możliwość aby makra robiły...
Pewnie ktores z tych zadan od HP, usune wszystkie. Fixlist.txt: CloseProcesses: HKLM\...\RunOnce: [Delete Cached Update Binary] => C:\WINDOWS\system32\cmd.exe /q /c del /q "C:\Program Files\Microsoft OneDrive\Update\OneDriveSetup.exe" (Brak pliku) HKLM\...\RunOnce: [Delete Cached Standalone Update Binary] => C:\WINDOWS\system32\cmd.exe /q /c del...
:arrow: marek003 UsedRange liczy tylko używane wiersze. Czyli: jeśli wpiszesz coś (wartość, formułę) tylko w A4 (a reszta arkusza jest pusta) to UsedRange.Rows.Count=1 Żeby nie było nieporozumień - nie chciałem żebyś przeze mnie zmieniał kod. Ja tylko wtrąciłem tak na marginesie jeden powiedzmy bug funkcji UsedRange.Rows.Count który w niektórych przypadkach...
Niech klient kończy przekazanie danych pustym wierszem.
Widziałbym to tak: - Wczytujesz plik i analizujesz go linia po linii - Dla linii sprawdzasz wyrażenie regularne postaci: '/ABC "abc([0-9]+)" ID [0-9]+ admin up operational state is up/' -- Jeśli wypluwa wynik (znaleziono) zapisujesz w zmiennej $klucz znalezioną wartość z atomu -- Jeśli nie, to sprawdzasz czy zmienna $klucz>0. --- Jeśli tak, to sprawdzasz...
Wykonałem jeszcze jeden eksperyment. Przenisłem ten plik na komputer stacjonarny, przepiąłem do niego tą samą drukarkę i ..... ten sam błąd, dokładnie tych samych komórek nie drukuje, natomiast stary wysłużony Canon trochę brzydziej ale wydrukował wszystko. Dodano po 43 Uparty jestem, więc poszedłem dalej. Pożyczyłem drukarkę HP Fotosmart 3100, zainstalowalem...
Wykonaj skan przy pomocy Mbam. Windows Update dziala? Masz zainstalowane wszystkie aktualizacje?
Dziekuję bardzo za odpowiedź, makro prawie działa tak jak chciałem. Ma tylko jeden problem łączy dane w wiersze które nie powinien. Dla przykładu pierwszy wiersz w Arkuszu2 powinien mieć dane od A3:A18 z Arkusza1 później drugi wiersz w Arkuszu2 powinien mieć dane od A20:A22. Punktem który ma definiować kolejne wiersze jest pusta komórka
Sprobuj takie makro [syntax=vb]Sub sortgodz() With ActiveSheet.UsedRange .Sort key1:=.Columns(4).Cells(1), header:=xlYes Set bt = .Find("Zast") r = Cells(Rows.Count, 4).End(xlUp).Row + 1 Rows(bt.Row).Cut Rows(r).Insert shift:=xlDown End With End Sub [/syntax]
Wynik Trim zapisz do zmiennej. Jeżeli wynikiem jest pusty wiersz to zrób clear zaś jeżeli nie to wpisz wynik do komórki.
Nie działa usunięcie wierszy poprzez "usuń". Nawet jeśli najpierw zaznaczam wszystkie puste wiersze i DEL. Usunęłam wszystko co było w nieużywanych kolumnach i wierszach i nic...
Uwaga: Od 20 do 140 będzie 121 wartość. Przy założeniu że numery, począwszy od pierwszego wiersza i nie pustych wierszy =SUMA(PRZESUNIĘCIE(A1; ILE.LICZB(A:A)-120; 0; 120))
(at)assassin90 - sprawdź dokładnie jaka jest specyfikacja programu i co ma robić w przypadku, gdy na wejściu pojawią się nieprawidłowe dane, takie jak: * puste wiersze * zbyt długie liczby * kilka liczb w wierszu * śmieci Zwykle najprostsze podejście jest najlepsze, typu: bool isOk = true; while (isOk) { char digitString[65]; int...
W załączniku plik z rozwiązaniem
Dane źródłowe są w zakresie AG7:AG27 i te komórki można klikać wielokrotnie, bo dane są kopiowane, a nie przenoszone. Jeśli zakres docelowy jest początkowo pusty, kopie są umieszczane od komórki J4 w dół. Nie dałem ograniczenia na wierszu 14., bo nie zostało opisane zachowanie procedury w tym momencie. Jeśli wypełniona zostanie komórka J14 i użytkownik...
Nie wiem czy o to chodzi ale moja propozycja brzmi tak tak: kolumna:=1; // zalezy w ktorej kolumnie szukamy wiersz:=0; while StringGrid.Cells[kolumna,wiersz]... do Inc(wiersz); StringGrid.Row := wiersz; // zaznacza pierwszy pusty wiersz
Witaj Jeśli te wykresy muszą być wykonane automatycznie, wtedy ta tabela nie jest w systemie. Część kwestii ma opcje tak lub nie. W innej części tak, nie, lub Brak odpowiedzi jest częścią pytania. Ponadto między tytułem a opcji jest lub nie jest pusty wiersz.
w tym przypadku zastosowanie formatowania warunkowego nie zdałoby egzaminu, dlatego bardzo dziękuje za makro :) niestety mam z nim jeden problem makro szuka pustych komórek I zaznacza na szaro komórki w wierszach w których są dane. Czy można zmodyfikować makro tak aby zaznaczało na szaro tylko te wiersze w których wszystkie komórki są puste?
W załączniku przykładowo formatowanie od trzeciego wiersza.
No, ale te punkty za transfer... Czyli: Jeżeli w kolumnie D tekst zawiera wyraz: "Żółty" i w kolumnie E jest w tym wierszu pusta komórka, to wyświetlać komunikat o braku odpowiedzi ew. formatowanie warunkowe w 1-wszej kolumnie?
Witam Mam problem z drukarką igłową SP-2400 - drukuje pusty wiersz pod każdym wierszem tekstu: Normalnie ma być coś takiego: (znaki --- oznaczają początek i koniec kartki) ---------------------------- Ala ma kota, A Ola ma psa. Ewa dostała chomika ---------------------------- a wychodzi coś takiego: ---------------------------- Ala ma kota, A Ola ma...
Lub, jeśli masz wolny wiersz, wpisywać do niego formaty dla każdej kolumny i sformatować w petli. Lub, ponieważ formatuje kolejnym pusty wiersz((ostWrs + 1), użyć formatu z poprzedniego wiersza For c = 12 To 115 ark.Cells(ostWrs + 1, c).NumberFormat = ark.Cells(ostWrs , c).NumberFormat Next c
Jakoś dziwnie masz to zrobione, ale tak na szybko to podmień na [syntax=vbscript]Cells(j, t).Delete xlShiftUp[/syntax]
Najprościej będzie z przekazaniem Nr wiersza: [syntax=vbscript]Sub Makro1(w As Long) Dim MyCell As Range For Each MyCell In Range("B" & w & ":Z" & w).Cells If MyCell = 0 Then MyCell.EntireColumn.Hidden = True Next MyCell End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Target.Address(0, 0) = "A2" Then If Target.Column...
Dziękuję za szybką pomoc! W kolumnie O znajdują się liczby (dodatnie, ujemne, czasem 0), a dokładnie liczba dni opóźnienia np. coś miało być zrobione do 10.07, dziś jest 18.07, więc kolumna O pokaże liczbę -8. Ale pojawiają się też puste wiersze = puste komórki w kolumnie O. Przetestuję przesłane przez Was funkcje :)
Racja, zapomniałem o tym napisać. Takie przypisanie [syntax=c]**pictab = pictabcreator(3, 4);[/syntax] to w zasadzie to samo co [syntax=c]pictab[0][0] = pictabcreator(3, 4);[/syntax] Przy okazji: usuwaj pierwszy i ostatni pusty wiersz kodu przy wstawianiu na forum.
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]
załącz plik
Może takie makro: [syntax=vbscript]Sub Jedynki() If IsEmpty(Range("A2")) Then Range("A2").Value = 1 ElseIf IsEmpty(Range("B2")) Then Range("B2").Value = 1 Else Range("A2").End(xlToRight).Next.Value = 1 End If End Sub[/syntax] To makro wypełnia po kliknięciu kolejne puste komórki w wierszu 2. zaczynając od A2 (po jednej). Jeśli któraś komórka jest niepusta...
Dzięki, rozdzielenie działa i sortuje. Jeśli chodzi o puste wiersze to właśnie ich chciałem się pozbyć, ale po usunięciu pustych wierszy wychodziły błędy w następnym powiązanym arkuszu. Przez sortowanie puste przeniesie mi na koniec a arkusz do drukowania mam ustawiony, żeby nie drukował pustych wierszy.
Ale po co chować puste wiersze? Przecież prościej je dodać gdy będą potrzebne! A poza tabelą Excela (poniżej) możesz mieć wszystko co Ci jest potrzebne. Załącz przykładowy plik.
Jeżeli umiesz wpisywać dane z formularza, co zakładam, skoro gdy makro będzie tworzyć arkusz to przydzieli mu nazwe z formularza(to potrafie akurat zrobić ) to problemem może będzie znalezienie ostatniego wiersza. Opcja bardzo prosta Dim PierwszyPusty As Long PierwszyPusty = Range("A1").End(xlDown).Row + 1 Pod PierwszyPusty masz indeks pierwszego pustego...
Na tą chwilę nie bardzo wiem, jak to poprawić. A przecież specjalnie Ci podpowiadałem :D możesz łatwo uchwycić obszar do aktualnego czyszczenia :arrow: jako obiekt Selection :D tzn. trzeba to zrobić raczej tak :spoko: [syntax=vbscript]Sub dodaj() Dim ile_w As Long Dim kom As Range Application.ScreenUpdating = False With ThisWorkbook.Sheets(ar_kusz)...
Poprawiłem do moich potrzeb ale w opcji (Z datą OD) jest problem bo wyszukuje tylko do pozycji dwóch dat i nie widzi na końcu tych bez dat, druga rzecz to potrzebuję aby po wstawieniu w listbox były zawsze wstawione dodatkowe puste wiersze aby można było dodać jakiś wpis.
Nie rozwiązano na forum
Dobry wieczór, Można przeprowadzić konsolidację, z tym że etykiety kolumn muszą być różne. Konsolidację przeprowadzamy zaznaczając etykiety w lewej kolumnie i górnym wierszu. W wyniku otrzymujemy tabelę zawierającą wszystkie daty i puste pola. Teraz należy zastosować filtr (zwykły lub zaawansowany), żeby ukryć lub usunąć wiersze z pustymi polami. Pozdrowienia.
Witam, potrzebuję wyróżnić z duplikowane wartości komórek kolorem w taki sposób żeby tylko wyróżniało kolorem duplikaty, a nie formuły lub puste wiersze. Pozdrawiam. wk
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
Do samego kopiowania lepiej użyć funkcji for each, która odczyta dane z każdego arkusza i przekopiuje cały zakres. Przyjrzyj się temu rozwiązaniu: Private Sub CommandButton1_Click() Application.ScreenUpdating = False Set wswykaz = ThisWorkbook.Worksheets("Wykaz&... wswykaz.Range("A2:F65536&qu...
Witam, Potrzebuję pomocy osoby doświadczonej w posługiwaniu się Excelem. Stworzyłam raport, ale nie do końca spełnia on moje oczekiwania. Proszę o pomoc. Dodam, że wszystko w Excelu robię metodą prób i błędów, ale tym razem nie mam pomysłu, jak poprawić formuły… W arkuszu „Karta” w kolumnie AE (i adekwatnie AI, AL., AS, AV, AZ, BD)...
Co musiałabym dopisać w moim kodzie Pętle, która sprawdzi czy komórki w f są róże od pustej i je usunie.
Żeby pozbyć się pustego wiersza ze znaczkiem * po lewej stronie ustaw właściwość AllowUserToAddRows na false. Można to zrobić z designera. e.FullPath to string więc konwersja na string jest niepotrzebna DateTime.Now też należałoby przekonwertować na string. Jeżeli tego nie zrobisz, zrobi to sama kontrolka DataGridView. Najprościej dodawać wiersz tak:...
Czyli w vb.net najlepiej było by TextBoxy przypisać do poszczególnych komórek z DataGridView, a następnie przeszukiwać DataGridView i usuwać puste wiersze jeśli nie był by w nich danych zgadza się?
ten kod JRV działa szybciej, tylko mózg mi już nie pracuje bo jak go używam to przy imporcie generuje mi puste wiersze na końcu.
zauważyłem że poprzedni kod nie działał na pustych komórkach A po co ukrywać puste wiersze? W ogóle to jest bez sensu. Nie wiadomo, jaki jest zakres danych. Nie wiadomo jaki wiersz ukryć, a jaki odkryć.
Witam, Mam arkusz kalkulacyjny, który zawiera dane wyglądające w następujący sposób: Imię, naziwsko (xxxx xxxx / użytkownik) Telefon Mail Takich danych jest kilka tysięcy. Szukam sposobu, aby usunąć z arkusza duplikaty (ponieważ niektórzy użytkownicy się powtarzają) z zachowaniem unikalnego słowa. Większość użytkowników ma podane imię i nazwisko, więc...
Miałem chwilę to dokończyłem. Dodałem zaliczki wpłacone na prąd i poprawiłem ostatnią formułę bo nadpłata lub niedopłata za 2020 to co innego niż odsetki. Wcześniejsza formuła nie sumowała odsetek. w rejestrze formuły są wprowadzone w zielonych polach. Wyniki pojawią się jak wpiszesz nowe nazwisko. Po wpisaniu nowego nazwiska w rejestrze na liście osób...
Witam. mam serię danych np. 100 105 110 99 98 pusty wiersz pusty wiersz 23 25 35 54 43 pusty wiersz pusty wiersz chciałbym automatycznie posortować dane w osobnych komórkach od najwiekszej do najmniejszej ale tak aby sortowanie dotyczyło tylko liczb pomedzy pustymi wierszami? czy ktoś ma jakąs radę z góry dziekuję
Możesz wrzucić plik (jako załącznik) z przykładem? p.s. Plik od v. 2007 wzwyż spakowany ZIP-em lub RAR-em.
Wypróbuj w "główny" takie makro [syntax=vb]Sub makro() ostw = Range("C65536").End(xlUp).Row Range(Cells(ostw - 2, 1), Cells(ostw, 11)).Copy Cells(ostw + 1, 1) End Sub[/syntax]Formuły powinny "ułożyć się" wg kolejności wierszy. Nie wiem tylko skąd pobierać nazwisko klienta...
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...
Tylko czemu wynik jest dopiero od 435 wiersza? Najprawdopodobniej masz jakieś puste wiersze, które makro widzi jako puste wartości. Spróbuj dopisać klauzulę WHERE. przypuśćmy,że mam jeszcze jedną tabelę tylko z dwoma kolumnami: material no( z nr komponentów-nie powtarzają się) i stock( ze stanami zapasów). W jaki sposób mogę połączyć teraz te dwie...
Z tego co wiem to ta odległość jest definiowana automatycznie. Czasem jednak zdarzą się tak, że pod przypisem są puste wiersze co powoduje właśnie podnoszenie się przypisu do góry.
Nagraj makro usunięcia scalenia, wstawiania wiersza, ponownego scalenia i zapętlij...
Zacznę od tyłu. c. Grafiki na arkuszu czwartym nie są w żadnej tabeli. Obrazki nie są zawartością żadnej komórki, więc nie znajdziesz formuły, którą przeniesiesz je na inny arkusz. Za pomocą VBA możesz je przenosić, kopiować w inne miejsca, usuwać. Ale to już wymaga trochę więcej zabawy. ponad a. Schowaj pole powiązane z Combo pod nim a w komórce w...
witam, proszę o pomoc, moja cała znajomość programowania ogranicza się do znajdowania i dostosywania formuł - kiedyś znalazłem i dostosowałem do swoich potrzeb makro do wprowadzania danych w arkusz za pomocą userform z przyciskami do przechodzenia między wierszami, wstawiania i kasowania wierszy - ogólnie bardzo fajny programik. niestety po skopiowaniu...
Spróbuj coś takiego :-) [code][syntax=vbscript] Sub awaria() Dim fileName As Workbook Dim path As String Dim sheetName As String Worksheets("Arkusz1").Select path = "C:\Users\Marek\Desktop\dane ostateczne.xlsm" Set fileName = Workbooks.Open(path) ThisWorkbook.Activate For wiersz = 2 To 22 sheetName = Range("J" & wiersz) If sheetName <> ""...
rozwiązanie nie jest idealne w przypadku jeżeli mam któryś wiersz pusty Puste wiersze nie powinny stanowić żadnego problemu :D dla formuły MIN.K np patrz na zrzut 973736 Poważna komplikacja powstaje dopiero wtedy jeżeli będziesz miał kilka produktów w tej samej cenie (dla dwóch można to rozwiązać poprzez "numerowanie" wystąpień :D )
Witam Mam taki problem. Z arkusza1 mam skopiować określony zakres komórek do arkusza2. Miejsce kopiowania tej zawartości do arkusza2 ma spełniać dwa warunki: 1.Ma skopiować pod wybranym miesiącem 2.W kolejny pusty wiersz W załączniku mój arkusz, ale coś mi nie tak kopiuje tzn nie w te miejsce gdzie trzeba. Jak by się dało jeszcze zrobić to wolałbym...
Dzień dobry, W pierwszej chwili nie zrozumiałem, o które puste pola chodzi. Teraz już wiem, że chodzi o to, że gdy w wierszu wzorcowym jest puste pole, to pola poniżej nie mają być zaznaczane. Należy dodać drugi warunek do formuły: [syntax=text]=ORAZ(A11=A$11; A11<>"")[/syntax] W tym drugim warunku może być albo A11 albo A$11. Pozdrowienia.
Gdzie był świadomy, że puste wiersze bedzie Dodano po 1 a co dzialac z urlopem?? LP. - Numeracja będzie ciągły lub chaotyczny, jak w przykładzie?
ok działa ale po wybraniu nie można wrócić do początku.. w sensie wybieram audi pozniej a0 nastepnie diesel.. i nie mozna zmienic znowu marki sa puste wiersze..
Moja wersja danych testowych Lista je jedna na wszystko(zakres A1:D24) w poprzedniej wersji po zakończeniu wiersza 1 lista była pusta
Potrzebuję gotowego makra, które będzie dodawało mi nowe wiersze. Może ktoś da radę pomóc. Mamy przykładowo w kolumnie D takie wartości: 1 D 2 5 3 1 4 30 5 8 6 100 Makro miałoby teraz dodawać pod spodem tyle wierszy ile jest napisane w tej kolumnie - 1. Np. Mamy w komórce 2D wartość 5 to pod spodem trzeba dodać 4 puste wiersze. w komórce 3D mamy 1 to...
Są różne sposoby na znajdowanie ostatniego pustego wiersza, mój ulubiony jest taki: widoczną komórkę w kolumnie B wypełnioną tekstem, idąc od ostatniego wiersza w górę. Liczba 1048576 to ostatni wiersz excela 2007, dla kompatybilności z 2003 należało by użyć 65536. Przed wykonaniem sprawdzania poleceniem ShowAllData próbuje się zdjąć kryteria autofiltra...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Czy jest to operacja powtarzalna, to znaczy będziesz w przyszłości ponownie zrzucać tych 25 arkuszy do jednego arkusza? Bo jeśli nie, to, moim zdaniem lepiej to zrobić na piechotę, kopiując dane z poszczególnych skoroszytów do jednego. Można wcześniej np. ustawić różne kolory tła dla poszczególnych arkuszy, jak również ponazywać zakresy komórek obejmujących...
Tak o to mi chodziło. Tylko coś robię źle bo w momencie jak wstawię: wartosc1 = UserForm6.TextBox1.Text wartosc2 = UserForm6.TextBox2.Text i używam userform to kiedy do boxow podstawie wartości jakieś to nie zaznacza niczego, natomiast jak pozostawię puste to działa bo zaznacza wszystkie puste wiersze.
Wrzucam arkusz. Chodzi mi o to, żeby w arkuszu "Styczeń 2018" pojawiły się wiersze z "Czerwiec 2018". Puste wiersze. W wynikowym mają być obok siebie, ale to banał, bo można skopiować obie kolumny z wartościami, ale one nie są "obok siebie"... Dlatego muszę najpierw ujednolicić strukturę . Wiersze w kolumnie A mają w obu arkuszach tą samą nazwę.
Doszły jeszcze 2 warunki słowne: Dane mają zostać skopiowane z kolumny A do kolumny C w przypadku, gdy w kolumnie A nie ma słowa: "Period" "Account" "Terminal" Oczywiście puste wiersze chyba są bez znaczenia. Jeśli będzie trzeba to mogę pokazać screena.
Witam mam problemik z Excelem. Mam np dane w kolumnie A w kolejnych wierszach np 1,1,2,3,3,3,4,5,5,5 czy jest jakas formuła która z automatu porównała by te dane i przed każdą zmianą danych wstawila pusty wiersz aby pozniej wygladalo to tak 1,1 pusty wiersz, 2 p[usty wiersz 3,3,3, pusty wiersz 4 i tak dalej? Z gory dzieki za pomoc
excel puste wiersze wyszukaj wiersze powtarzaj wiersze
turbo diesla benzyny puszka ścianie zniekształcenia niskich tonach
pralka electrolux pralka electrolux
Konfiguracja enkodera Powerlink: Nastawy i parametry Sprawdzenie centralnego zamka Volvo XC60 2015