Cierpliwości kolego, wszystko wymaga czasu. Więc tak, doszedłem do wniosku ze caly problem nalezy rozwiazac od poczatku. Ruszyc baniakiem, wypic pare piw ( o papieroskach nie wspomne ), jak w kartach, dym piwo i przekleństwo:D. Efekt tej walki przedstawiam ponizej, a w zalaczniku przykladzik. Sposob edycji wynikow moze sie wydawac troche dziwny, ale...
Dzień dobry, Robię kalkulator kosztów. Mam 4 arkusze: - start (z info o firmie) - elementy (wykaz elementów gdzie uzupełniamy ilość a następnie nam wylicza sumę za każdy element) - wykonawstwo (wykaz prac jakie są prowadzone również z ilością) - podsumowanie Chodzi mi o to aby gdy w arkuszu "elementy" ilość jest większa od 0 wtedy cały wiersz jest kopiowany...
Lub w inny sposób: [syntax=vb]Sub Kasownik() For Each szukana In Range("1:1") If szukana.Value = "MSISDN" Or szukana.Value = "Kod sprzedawcy" Then kolumna = szukana.Column Columns(kolumna).Delete shift:=xlToLeft End If Next End Sub [/syntax]
Da się. Przy wyborze kolejnej kolumny nie należy kasować poprzedniego filtra. Za kasowanie odpowiada polecenie [syntax=vbscript].AutoFilterMode = False[/syntax]To polecenie kasuje wszystkie dotychczas ustawione filtry. Tylko nie bardzo wiem jak to miałoby działać. Masz 6 filtrów, chcesz, żeby działanie wszystkich sześciu się nakładało? Jak będziesz...
Załącz jakiś plik przykładowy przede wszystkim. Zamiast od razu dokładnie napisać o co chodzi dałeś przykład na 5 wierszy, a teraz piszesz, że Ci makro wolno działa. To trzeba sprawdzić w którym momencie zwalnia, nie sądzę, żeby powodem było kasowanie w kolumnie B. Zresztą z tego wszystkiego można zrezygnować. Musi być precyzyjny opis, co może być,...
Ten kod jest do napisania od nowa, według mnie. Mnie też :) ale nie ma żadnego innego pliku. jest: 1) plik bat, który generuje mi listę z dyskami, które są na komputerach - ta lista nazywa się raport.txt. Dołączyłem w pierwszym poście 2) plik z kodem vba, nazwany plikRoboczy.xls - też go dołączyłem Patrząc na strukturę pliku txt mam wrażenie, że szybciej/lepiej/wygodniej...
Lub tabela przestawna lub: [syntax=vb]Sub kokos() Dim r&, c& r = 2 While Cells(r, 1) <> "" c = Application.Match(Cells(r, 2), Rows(1), 0) Cells(r, c) = Cells(r, 3): Cells(r, 3) = "" While Cells(r, 1) = Cells(r + 1, 1) c = Application.Match(Cells(r + 1, 2), Rows(1), 0) Cells(r, c) = Cells(r, 3) Rows(r + 1).Delete Wend r = r + 1 Wend End...
tylko wtedy przy ponownym pobieraniu dane znikną, bo ich już nie będzie w folderze źródłowym Nie znikną, jeśli będziesz dopisywała. Kasowanie pliku źródłowego po skopiowaniu, to taki średni pomysł, bo jak coś pójdzie nie tak, to skąd ponowne wczytanie?
http://obrazki.elektroda.pl/4774308800_1... Jeśli korzystasz z programów z pakietu LibreOffice to z pewnością ucieszysz się, z powstania Open365. Podobnie jak LibreOffice jest to darmowy i otwarty pakiet, który ma być alternatywą dla 'następcy' Microsoft Office, działającego w chmurze Office 365. Open365 jest aktualnie w fazie beta-testów....
O Witaj, dziekuję, wykorzystam Twoja podpowiedź, choć to kasowanie to mi nawet pasuje. A czy z tą wysyłką też mi cos podpowiesz? :)
Działa super, o to mi chodziło, Z tą liczbą przypisaną już sobie poradziłem. Zamówienie czasami jest na kilkanaście pozycji i żeby na WZ było widomo, że odnosi się to do pozycji np. 14 z zamówienia. Mam natomiast kolejny problem. Maksymalna ilość pozycji musi być 21. Jak zmienię tylko wartość Const MAX = 4 przykładowo na 6 to numer katalogowy wpisuje...
Jeśli chodzi o faktyczne kasowanie to dla mnie działa coś takiego: [syntax=vb]Sub Makro1() ActiveCell.SpecialCells(xlLastCell).Sele... ActiveCell.Offset(0, 1 - ActiveCell.Column).Select While (True) If IsNumeric(ActiveCell.Value) Then If ActiveCell.Row = 1 Then Exit Sub ActiveCell.Offset(-1, 0).Select Else Rows(ActiveCell.Row).EntireRow.Delete End If...
Wprawdzie znalażłem małą "furtke" w programie bo wykasowując po kolei daty, można dostać się do samego początku wpisu, ale nie wiem czy jest to do usunięcia i pozostaje mi jedynie liczyć na to że się nie domyślą Próbowałeś blokować zapisaną część arkusza i pozostawiać możliwą do edycji resztę? Pod Excelem zablokowanie częściowe i zabezpieczenie hasłem...
No raczej kasowanie tego było by żmudne rzeczywiście. Lepiej dopisać funkcję poprawiającą, czyli zamiast wpisywać w ostatni_wiersz + 1 ( pierwszy wolny ), to wpisałbym jeszcze raz ( poprawne już dane ) w ostatni_wiersz
Witam ponownie. Prosiłbym jeszcze o cierpliwość adamsa i ewentualną pomoc w usprawnieniu mojego programu , ponieważ mimo moich wielu,wielu kombinacji nie udaje mi się go naprawić, a działa prawie dobrze (oprócz): 1. Kiedy wpisuję pierwszy raz w lub k nie dopisuje reszty , ale po zatwierdzeniu enterem wpisuje i leci błąd. Następne linie już wpisuje normalnie....
skasowaniu danych w jakimś arkuszu nic się nie kasuje w "Zestawieniu zbiorczym" Tylko teraz rozprawy o anulowanie danych. Wcześniej o tom rozmowy nie było, tylko kopiowanie. Nie chodziło mi o kasowanie danych, po prostu nie znam zasady działania i próbowałem cokolwiek zmienić, sprawdzić. Możesz mi napisać jak działa to makro, albo chociaż potwierdź...
Witam wszystkich użytkowników, mam sprawę która sprawia mi problem, chodzi o kopiowanie przy pomocy makra danych z kolejnych plików. Chodzi o to że do pliku ZBIORCZY.XLSX kopiujemy wiersz A2 z plików 1_19, 2_19, 3_19, ..., n_19. Pliki o nazwach 1_19, 2_19, 3_19, ..., n_19 umieszczane są w folderze TEST. Pliki te będą tworzone i umieszczane w katalogu...
Posortuj tabelę względem zawartości kolumny A - komórki o tej samej zawartości będą jedna za drugą. Potem "jedziesz" makrem po kolumnie A sprawdzając, czy zawartość następnej komórki jest taka sama jak bieżącej. Jeśli nie jest, to przejście do następnej komórki; jeśli jest - kasowanie wiersza, kopiowanie zawartości do kolumny E. Oczywiście dodatkowo...
witam, mam pewien problem, w kolumnie G mam podaną firmę, w kolumnie K model, w kolumnie I kolor - mało istotne, w kolumnie J - ilość sztuk chciałbym, żeby funkcja zliczała mi ilość sztuk produktu danej firmy i modelu, ignorując kolor, postawiając zapis jako jeden wiersz (usuwa wszystkie wiersze z kolorami) nie mam pomysłu na funkcję sumowania ilości...
chcę aby mój program robił prawie to samo co programik do którego podałem link w poście powyżej tylko z tą małą różnicą iż dane niebyły by przedstawiane za pomocą dokumentu Accessa tylko wyświetlane w oknie mojej aplikacji. Czyli chce kolega wyświetlać dane bazy SQL na ekran, jakaś forma ekranowego raportu ? Co do typu bazy jest to baza SQL-owa nie...
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...
Zadeklarowałem zmienną publiczną 'suma1' w formularzu. Na liczenie przy Initialize powinieneś wpaść sam. ? Przy zmianie w textBox'ach musisz wyzerować, przeliczyć i zapisać do Label'a. Tu nie możesz liczyć przy zapisie do tablicy, bo suma musi wyjść bez warunków (kasowanie ostatniego znaku). Przykład w polu 'Zmiana'.
Jeśli chcesz, żeby po zaznaczeniu więcej niż 1 komórki była brana pod uwagę tylko pierwsza z zaznaczonych, to możesz dodać linię: [syntax=vbscript]If Target.CountLarge > 1 Then Set Target = Target(1)[/syntax]przed tą linią, którą masz zaznaczoną na żółto. Całościowa propozycja w załączniku. Zasady są nieco inne. Zasięg działania w arkuszu nie jest ograniczony,...
[syntax=vbscript]Sub Kasuj() For Each k In Range("TerminyGORMIK") If k <= Date Then Cells(k.Row, k.Column) = "" Next End Sub[/syntax]
Wygląda prawie idealnie. Nie wszystkie tylko wiersze się przenoszą do zakładki "zalatwione" poniżej któregoś wiersza tylko są kasowane...
Ale kasuje datę z wiersza wyżej... W załączniku poprawiony z przyciskiem usuwania ostatniego. (Burza poszła bokiem) Gdybyś zamiast ostatniego chciał kasować pierwszy to zmień w makro UsunWiersz linię: ostatni = True na: ostatni = False (opisane w makro)
Kolego bestler , dobrze się zastanów jeśli nie jest jeszcze za późno, żebyś potem nie żałował tragicznego w skutkach wyboru. Rok temu kupiłem nowy samochód z salonu. Ponieważ oryginalny zestaw navi/audio był bardzo drogi a kasy już mi w portfelu za wiele nie zostało (potrzebne było jeszcze AC/OC), zostałem skuszony podobno równie rewelacyjnym zestawem...
Puste pole pojawia się, gdyż poepłniłem błąd. Przy linii ReDim strNowaLista odejmij 1 od intPozycja [syntax=vb]ReDim strNowaLista(intPozycja -1, 2)[/syntax] Co do usuwania/modyfikowania danych pracowników. Masz coś, co załaduje Ci ich dane do UserForma, tak? Coś co znajduje odpowiedni wiersz i ładuje? Jeśli tak, i znasz numer wiersza, to chyba nie powinien...
Super pierwsze działa drugie sprawdzam. Z pierwszym jest jeden problem. Używam tego makra do paru obrazków. Jeżeli wkleję do jednego a później do drugiego to kasuje mi pierwszy obrazek. Jak to zrobić zeby nie kasowało?
a da sie zrobić ze po zeskanowaniu/wpisaniu w zółtym polu numeru narzędzia wprowadzany numer zniknie zeby nie trzeba bylo kasować recznie?
Ta nazwa jest już zajęta. Użyj innej nazwy Nie ma takiej opcji, gdyż przed dodaniem arkusza 'klientx' jest on najpierw kasowany...
EEPROMA bym nie kasował :D
Witam, Można zrobić tak by excel zapisał każdy, nawet nowo otwarty plik bez makr, do nowego pliku jako zapisz jako ? Podejrzewam, że można do tego zastosować skoroszyt makr osobistych, ale tak proste zastosowanie jak BeforeClose nie działa :-) Chodzi o zrobienie backupu (przy zamknięciu każdego pliku), gdyż czasem nowo otwarty excel wyrzuca błąd i kasuje...
Deletując (kasując) wpisaną liczbę wszystko przebiega OK, jedynie w momencie kasowania ostatniej cyfry pojawia się błąd.
Typowe (najtańsze) pendrivy wytrzymują do 5000 cykli kasowania / zapisu. Jak intensywnie był używany ten pendrive?
Lewy górny róg zdjęcia musi być w wierszu zaznaczonym do usunięcia. Scalenia z reguły nie pomagają, ale jak jest scalenie w wierszu, to w tym przypadku chyba nie powinno przeszkadzać. Trzeba testować, odtworzyć sobie taką sytuację, że obrazek się nie skasował i sprawdzić wszystkie szczegóły. Piszesz dość niejasno, czy w ogóle się te obrazki nie kasują,...
Nie można usuwać komórek do których odwołują się formuły bo właśnie wtedy pojawia się błąd odwołania. Odwołania również są usuwane. Jeżeli chcesz by odwołanie było cały czas "sprawne" kasuj dane a nie usuwasz wiersz. Jeżeli chcesz aby wybierać różne wiersze w arkuszu docelowym skorzystaj z formuły indeks() i poprzez dodatkową komórkę określającą nr...
Po co ochrona, jesli np. przed tym(zamykaniem) "użytkownik przez przypadek kasuje jakąś formule"? W kazdym razie mozna uzyc zdarzenia[syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) For Each s In Me.Sheets s.Protect 'ew. haslo Next Me.Save End Sub [/syntax] Ale lepiej mieć zapasowe arkusze i przed zamknięciem kopiowanie formuł, lub, jeśli...
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:...
Zwykle na czas działania pętli wystarcza wyłączenie zdarzeń i odświeżania.[syntax=vb]Sub Kasuj() Application.EnableEvents = False Application.ScreenUpdating = False For i = Cells(65536, "A").End(xlUp).Row To 3 Step -1 If Cells(i, "B").Value = "" Then Rows(i).delete shift:=x1Up End If Next Application.EnableEvents = True Application.ScreenUpdating =...
Albo zrób sobie "odtwarzarkę wzorów", czyli makro, które je przywróci, moduł vba zabezpieczysz hasłem oraz przed podglądem, wstawisz przycisk w arkusz ... i wtedy żaden użytkownik ci nie straszny, będzie mógł kasować wzory do woli, co minutę ... jedno wciśnięcie przycisku i masz odtworzone formułki, a złośliwy użytkownik zgrzyta zębami ... Dodano po...
Masz małą wiedzę na temat możliwości excela. Włącz excel. Otwórz w excelu twój plik notatnika (zaznacz przy otwieraniu typy pliku "wszystkie pliki") Pojawi się pytanie czy "rozdzielany" czy "stała szerokość" W twoim przypadku zaznacz "stałą szerokość" Kliknij Dalej Zaznacz myszką gdzie ma byś podział kolumny. (tych podziałów może być dużo od ciebie...
Jeśli nie ma górnego ograniczenia dla wprowadzanych liczb procedurę Walidacji można zapisać też tak: [syntax=vb]With ark.Range("E6:F" & dstW).Validation .Delete .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _ Operator:=xlGreater, Formula1:="0" .IgnoreBlank = True .InCellDropdown = True .InputMessage = "Wprowadź liczbę całkowitą" .ShowInput...
Masz pełne uprawnienia do zapisywania/kasowania w folderze w którym chcesz tego dokonać.
instalacja Office+Worda razem napisać było tam za jeden program 50 złotych więc należało wpisać 100 nie rozumiem? To klienta dwa razy kasujesz za instalacje tego samego? A jak masz zainstalowac office+word+excel +outlook+acces to ile skasujesz 250? A może M$ office zawiera te programy i kasujemy tylko za instalkę pakietu?
Przecież zaznaczając komórkę i rozpoczynając pisanie, domyślnie kasujesz tekst, który w niej był.
Dziala pieknie , wielkie dzieki Moze jeszcze jakis pomysl, zeby pozbyc sie tych "kropeczek" , gdyz nawet jesli skasuje wszystkie wiersze , kropeczka zostanie a chcialbym móc przygotowac sie do nowego liczenia ( znów od makro 1 ) bez kasowania calego skoroszytu. Pozdrawiam Piotrek
1. 1. Nie kasuje komórek z zakresu Kod: br.Sheets(s).Range("39:56,97:100,141:144... To jest mój błĄd, miało być o 9 wierszy mniej, poniewaz kopie z a10 do a1 na sbiorczym t.j. range("30:47, 88:91, ... itd. teraz makro usuwa wiersze z dane, nie te z 'Note: 1. All tests (VT, PT, MT, UT, RT) were carried...
Dokonałem reinstalacji komputera i zapomniałem przenieś jednego pliku Exela z ważnymi dla mnie danymi. Czy jest możliwość odzyskania tego pliku? Jeżeli tak to proszę o poradę. Nadmieniam, że po reinstalacji kasowałem wiele dużych plików.
Nie rozumiem :( mogę prosić tak bardziej łopatologicznie? Dodano po 5 Ach już rozumiem. Po prostu zmienić zarejestrowane makro tak żeby kasowało wszystko Dodano po 13 To zarejestrowane makro nie do końca działa poprawnie bo niestety nie uwzględnia dodanych pul i jak kliknę na przycisk to nie kasuje mi tych dodanych
kasowanie wierszy excel excel kasowanie danych kasowanie błędów kasowanie bledow
instrukcja dedra dobre gniazdko smart oznaczenie drukarka
schemat modułu suzuki schemat modułu suzuki
Oleo Mac 937: Objawy zużytego pierścienia tłoka Wpływ zamiennika czujnika NTC na temperaturę kawy w Krups EA89**
