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,...
jeszcze tylko dodajmy że komórka zawiera kwotę i może być? ;-) Sub Makro1() ow = Cells(Rows.Count, "H").End(xlUp).Row For x = 1 To ow If Cells(x, 8) = 0 And IsNumeric(Cells(x, 8).Value) Then Cells(x, 10).Cut Cells(x, 15) Next End Sub
Witam , Posiadam wiele takich samych plików które zawierają harmonogramy z wierszami zawierającymi status, operacje i czas. Dane znajdują się w zakresie od H14 do BA312 tak jak w załączonym pliku. Potrzebuje zebrać ze wszystkich plików dane do jednego pliku w Formie Sumy czasu dla danej operacji która jest zakończona, wydana i do wydania (""); każda...
[syntax=text] Option Explicit Sub Makro6() ''''''' Arkusz źródłowy musi zawierać w kolumnie 'P' dane do sumowania ''''' ''''''' Program liczy sumy z tej kolumny i po pzekroczeniu 20 : ''''' ''''''' Arkuszem wyjściiowym musi być arkusz z danymi w kolumnie 'P' ''''' ''''''' a) zakłada nowy skoroszyt i arkusz o nazwie "Wyniki" ''''' ''''''' b) kopiuje...
Zatem sprawa jest całkiem prosta: w inputbox niech użytkownik wpisuje nie zakres adresów, a numer wiersza OD i DO, a po pobraniu tych wartości zmień zakres danych wykresu (tu z dodatkowym sprawdzaniem, czy w obu oknach podano liczby): If (IsNumeric(KomorkaPoczatkowa)... And (IsNumeric(KomorkaKoncowa)... Then Wykres2.SetSourceData...
Z drugim zadaniem poradziłem sobie tak: [syntax=vb]Sub Data() ' ' Data Makro ' 10 myday = InputBox("Podaj dzień.") If myday <> "" Then If IsNumeric(myday) Then Selection.FormulaR1C1 = myday Else MsgBox "Nie podales dnia." GoTo 10 End If End If 20 mymonth = InputBox("Podaj miesiąc.") If myday <> "" Then If IsNumeric(mymonth) Then Selection.FormulaR1C1...
[syntax=vbscript]Sub Data() ' ' Data Makro ' 10 myday = InputBox("Podaj dzień.") If myday <> "" Then If IsNumeric(myday) Then Selection.FormulaR1C1 = myday Else MsgBox "Nie podales dnia." GoTo 10 End If End If 20 mymonth = InputBox("Podaj miesiąc.") If myday <> "" Then If IsNumeric(mymonth) Then Selection.FormulaR1C1 = mymonth Else MsgBox...
Ja w "międzyczasie" napisałem coś takiego: [syntax=vbscript]Sub GoalSeekinRange() Dim i As Long, RngForm As Range, wks As Worksheet Dim RngGoal As Range, Rngx As Range Set wks = Worksheets("Brudnopis") Set RngGoal = wks.Range("L5:L9") Set Rngx = wks.Range("J5:J9") Set RngForm = wks.Range("K5:K9") For i = 1 To RngGoal.Count If IsNumeric(RngGoal(i)) And...
Makro jest w załączonym pliku. Tu z drobnymi zmianami: w makro są dwie pary tablic: zasady i wyjątki, czyli następne wystarczy dopisywać. Niżej sprawdzane jeszcze 3 warunki (liczba po znaku, minus po znaku i liczba na początku akapitu). [syntax=vb]Sub proba() Dim rCo As Variant, rNa As Variant, tekst As Variant Dim wrs As Long, i As Integer, j As Integer,...
[syntax=vb]ActiveSheet.Next.Select[/synt... proszenie się o kłopoty ;) Jeśli wstawiasz na końcu, zastosuj[syntax=vb]Sheets.Add , , Sheets.Count[/syntax] i usuń te wszystkie selecty... Co do wyróżnionej linijki: Co masz przypisane do zmiennych? Możliwe błędy: 1. Dzielenie przez zero 2. Któraś z wartości nie jest liczbą, lub jest Empty Najlepiej się...
Nie bardzo rozumiem, o co konkretnie chodzi. Przydałby się jakiś przykład w pliku, pokazujący jakie masz dane i co z nimi chcesz robić. Generalnie do testowania liczb można wykorzystać w VBA funkcję IsNumeric, albo zapożyczoną z Excela funkcję WorksheetFunction.IsNumber. Ich działanie różni się w szczegółach, na przykład funkcja IsNumeric traktuje puste...
Witam ponownie. szczególnie marka ,który praktycznie w większości napisał mi makro w tym programie i jego proszę o pomoc. Program hula mi super, ale ja wymyśliłem pewne usprawnienie i mimo pomocy forumowiczów nie daję sobie do końca rady. Omówię pokrótce o co mi chodzi i pokażę jak mi pomagali koledzy.Program który wysyłam jest do minimum skrócony i...
Hmm, wywołują mnie tu do tablicy :) Rozumiem, że już jakieś makro działa... Z tego wynika, o czym już kolega Tommy82 wspomniał, że należy do makra dopisać instrukcję warunkową. A właściwie umieścić Twoje makro w gałęzi Else. Schemat: If IsNumeric([A]) then [X]=[B].value Else tu Twoje makro End If Jesli makro jest w innym skoroszycie wywołujesz...
Mam prośbę do ludzi zajmujących się #programowanie #vba o małe makro do Word-a. Pewnie sam bym je wymęczył, ale z moja nikłą wiedza trwało by to długo. Natomiast dla zawodowca to pewnie chwila. Makro ma wstawić zakładkę w miejscu kursora czy aktualnego zaznaczenia, a nazwa zakładki ma być wzięta z aktualnie zaznaczonego tekstu (o ile coś jest zaznaczone)...
Spróbuj: 1. Otwórz nowy plik i w komórce A1 każdego arkusza wpisz Nr w formacie jaki podajesz. 2. Wstaw moduł i wklej do niego następujący Sub ZmienNr() Dim kom As Range For j = 1 To Sheets.Count Sheets(j).Select For Each kom In Range("A1:A1") If IsNumeric(kom) Then 'dwie pierwsze cyfry nowyNr = Mid(kom,...
Cześć, potrzebuję pomocy w napisaniu makra, które dzieli 1 zbiorczy excel z kilkoma arkuszami na wiele plików z takimi samymi arkuszami. Wprowadzam numer wiersza i kolumny po której ma dzielić pliki oraz lokalizację wejściową i docelową. Poniżej wklejam kod, działający dla pojedynczego arkusza, wielka prośba o pomoc jak zmienić kod aby tworzyło po kilka...
Spróbuj tak: Sub Copy() Dim DNR_Ha As String Dim rok_Wniosku As Integer Dim poziom As Variant Dim wiersz_Ha As Integer Dim wiersz_Ba As Integer Dim ark As Worksheet wiersz_Ha = 11 wiersz_Ba = 5 Set ark = Workbooks("HARMONOGRAM (makra).xlsm").Workshee... rok_Wniosku = ark.Cells(wiersz_Ha,...
teraz potrzebuję aby makro na podstawie danych z Arkusza2, w którym znajduje się tabela nazwisk i przynależności do grup odpowiednio grupowało wiersze z nazwiskami należącymi do odpowiednich grup np A,B,C,D ,obliczało konkretne wartości dla tych nazwisk - i to mam już gotowe i działające we wstępnym kodzie poniżej (do dopracowania) chciałbym jeszcze...
Na początek drobna sugestia. Ubieraj swój kod w znaczniki Code . Łatwiej się czyta. Wracając do problemu. Sub EX_LP() Dim x, y As String Range("G2").Select Selection.AutoFill Destination:=Range("G2:... For Each x In ActiveSheet.Range("G2:G250&... If IsNumeric(ActiveCell)...
Wstawiłeś 2x .Find, a za drugim razem powinno być .FindNext. Ta całą pętla For powinna wyglądać tak: [syntax=vb]For r = 1 To UBound(szukaneTabl) 'przepisanie wartości tabeli wscel.Range("A" & wstaw) = szukaneTabl(r, 1) wscel.Range("B" & wstaw) = szukaneTabl(r, 2) Set c = wsbaza.Range("A1:A" & ost_wiersz_bazy).Find(What:=szukaneTabl(... 1),...
"Nie działa" bo okienko inputbox'a pomimo tego że wpiszesz cyfry/liczbę zwraca ją jako tekst . Wstaw za kodem: W takim rozwiązaniu jeżeli liczbowa nazwa asortymentu będzie równa starej cenie to nazwa takiego asortymentu też zostanie zamieniona na nową cenę. edit: ----------------------------------------... Dla zasady poprawności kodu zmień w deklaracji...
Na przykład w ten sposób: [syntax=vb]nr = "FK002301" ret = "" cut_flag = True For i = 1 To Len(nr) c = Mid(nr, i, 1) If Not IsNumeric(c) Then ret = ret & c Else If c > 0 Then cut_flag = False ret = ret & c End If If c = 0 And Not cut_flag Then ret = ret & c End If End If Next i MsgBox ret[/syntax]
Cześć Jak się okazało nie można mieć dwóch makr "worksheet_change". Doczytałem że jedyną opcją jest ich połączenie w jedno makro. Czy ktoś jest wstanie mi pomóc? Poniżej dwa makra: Private Sub Worksheet_Change(ByVal Target As Range) If Target.ListObject = ("tabela1") Then If Target.Column = 11 Then If Target.Value = "x"...
Cześć, Głowię się od pewnego czasu z napisaniem makra, które wyliczać mi będzie średnią sprzedaży z 28 ostatnich sprzedażowych, która bierze pod uwagę tylko dni, w których towar był na magazynie. Narazie napisałem kod ale niestety nie działa on. Powiedzcie mi proszę jakie błędy popełniłem oraz jak można to napisać aby działało. [syntax=vb] Function...
:arrow: marek003 Witam "starego" znajomego :D Nie czytałem dokładnie od początku, ale mam drobną uwagę do postu wyżej. Co będzie, jeśli User wpisze: 1. tekst 2. liczbę z przecinkiem/kropką (a co, wolno mu) 3. liczbę ujemną 4. Inne nieprzewidziane rzeczy Np przez ctr+v Zwykle zamykam w takich przypadkach InputBox w pętli 'Do' i trzymam Usera do skutku....
A może chodzi o coś takiego: [syntax=vb] Option Explicit Sub Posklejaj_Klik() Dim i As Long Dim Wprowadzone As String Dim IloscArkuszy As Long Dim OstWierszArkusz1 As Long IloscArkuszy = ThisWorkbook.Sheets.Count Do While Not IsNumeric(Wprowadzone) Wprowadzone = InputBox("Wprowadź od którego arkusza chcesz sklejać dane", "Sklejanie", "2") Loop i = Wprowadzone...
które w nazwie mają co najmniej 6 cyfr i wśród nich jest ciąg cyfr „2016” Jeżeli Kolega nie potrzebuje sprawdzać czy to data czy nie, to można uprościć ten warunek jako: [syntax=vbscript]For i = 1 To Sheets.Count nazwa = Sheets(i).Name If InStr(nazwa, "2016") > 0 And Len(nazwa) >= 6 Then Doc.Cells(w_doc - 1 + licznik, k_doc) = nazwa licznik...
lanzul napisał: Ad #1 - zmienna "odp" będzie typu Variant w podtypie odpowiednim do liczby w komórce zawsze Integer - w zależności od wciśnięty przycisk komunikatu MsgBox Zgadza się ... dlatego napisałem właśnie ... : ... W tym przypadku będzie to Integer zwrócone przez funkcję MsgBox :) Natomiast, gdyby się tyczyło zawartości komórki, to już różnie...
Jeśli urządza Cię wynik w dodatkowym arkuszu, można formułami. W przeciwnym wypadku Np takie coś: [syntax=vbscript]Dim w As Long w = 2 With Sheets("RaportPaczek") Do While .Cells(w, 1) <> "" If IsNumeric(.Cells(w, 3)) Then .Cells(w, 4) = .Cells(w, 3) .Cells(w, 3) = .Cells(w, 2) End If w = w + 1 Loop End With[/syntax]
[syntax=vb]Sub zz() Dim iLstCl% Application.ScreenUpdating = False iLstCl = Cells(4, Columns.Count).End(xlToLeft).Column For i = iLstCl To 3 Step -1 If Cells(4, i).Value = 1 Or Cells(4, i).Value = 2 Then 'zamiast powyższego warunku przy takim nazewnictwie kolumn można dać poniższy warunek: 'If IsNumeric(Cells(4, i).Value) = True Then Columns(i).EntireColumn.Delete...
Należy oprogramować zdarzenie SheetChange skoroszytu. Wykrywa ono równocześnie, w którym arkuszu i w której komórce nastąpiła zmiana. Kod: [syntax=text]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address <> "$F$6" Then Exit Sub If IsNumeric(Target) And Target > 0 Then Sh.Tab.Color = vbRed Else Sh.Tab.Color...
Niestety wydaje mi się że przez to że ten tekst w tym momencie znajduje już się w wordzie. Może pokażę szerszy kontekst [syntax=vbscript]Sub Match() Dim SER As Variant SER = InputBox("Podaj nr") Dim wordDoc As Word.Document Dim wordSelection As Word.Selection Set wordApp = CreateObject("Word.Application") wordApp.Visible = False If IsNumeric(SER) Then...
Opis dla mnie też jest trochę niejasny. Spróbuj takiego kodu: [syntax=vbscript]Sub Wklej() With Range("F3") .Select On Error Resume Next ActiveSheet.PasteSpecial Format:="HTML", NoHTMLFormatting:=True Selection.PasteSpecial Paste:=xlPasteValues On Error GoTo 0 If IsNumeric(.Value) Then .Value = CDbl(.Value) End With End Sub[/syntax]Ten kod odnosi się...
Słuchajcie, na zajęciach opracowaliśmy kod który ma znaleźć liczby z arkusza. Czy przeanalizuje mi go ktoś i powie czy jest on w 100% wystarczający do mojego zadania? [syntax=c] sub przeszukk() dim zawartosc as variant, t(100 * 25) as Integer Dim indeksy (100 * 25, 2) As Byte Dim i as Byte, j as Byte k = 0 For j = 1 to 25 For i = 1 to 100 zawartosc...
Trochę i ja się uczę VBA wraz z autorem (i nie nadążam odpowiadać - co prawda nie śledzę non stop) ale... Jeżeli chcesz przypisać adres komórki do zmiennej to musisz to zrobić inaczej: cel = ActiveCell.Address Value to wartość Później możesz skorzystać z Range(cel).Select ActiveSheet.Paste Druga rzecz: Z tą formułą jest odwrotnie (przynajmniej...
wartość komórki danej komórki (stała komórka) ? tzn. o co biega ? Mam makro jedynie ale szuka mi sztywno danego pliku ścieżkę którego wpiszę w kod makra Co to za "głagolica" składniowa ... z translatora to ... ? Czyli, przekładając na ewentualny kod, to co kolega koczis_ws wyżej napisał, np. coś takiego: [syntax=vbscript]Option Explicit Sub kot_nogach_na_siedmiomilowych_czterech_b...
Zobacz w załączniku, czy ta propozycja spełnia Twoje oczekiwania. To jest makro zdarzeniowe, które reaguje na wpis dokonany ręcznie (nie przez makro), ale można kopiować z innej komórki. Wypełniać komórki można tylko pojedynczo. Jeśli chce się zmienić proporcje składnika, trzeba usunąć wpis istniejący (delete), a następnie wpisać nowy. Makro nie przelicza...
Na wstępie: Mam błąd na linijce "lCnt = Mid(sTemp, i, Len(sTemp))" - "type mismatch" Możliwe przyczyny to: a) brak deklaracji zmiennej " i ", typu np.: " Dim i% " b) wartość w danej komórce ma "skomplikowaną" strukturę, typu np. " AU01_CDF125 " - po znalezieniu pierwszego znaku, który może być zamieniony na liczbę nie można na tęże liczbę zamienić reszty...
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...
Cześć! Drodzy forumowicze! Mam przed sobą następujące zadanie. Piszę makro które ma za zdanie wysłać maila na wskazany adres pobierając dane (jako treśc maila ) z komórki A1 oraz A2 ale ma wysłać taką wiadomość dopiero kiedy w tym wierszu w którejkolwiek z kolejnych komórek A3-A10 pojawi się umowiony symbol np: 1. Makro powinno działać dla wszystkich...
Proszę o pomoc co robię źle. Napisałam funkcję, która ma liczyć średnie ważone. Plik z przykładowymi wartościami jest w załączniku, tutaj jeszcze wkleję sam kod funkcji. Zabezpieczenia mam ustawione w pliku na "uruchamiaj wszystkie makra" oraz "ufaj VBA". Przez chwilę wydawało mi się, że funkcja działała po czym przestała. [syntax=vb]Function sredniawazona(wskazniki,...
zgodnie z zasadą działania Makra czyta 1 i 3-ci znak umowy czyli UE a jak nazwię np. UE PSE to tego już nie rozumie i wrzuca umowy do "INNE" Bo dla excela wszystko musi być jasne. Była zasada 1 i 3 znak, więc excel się będzie tego trzymał i nie popuści (to akurat zaleta nie wada) :) Właśnie na tym polega kłopot z pisaniem programów, że na początku...
Mógłby być to exel, używam worda z uwagi na to, że łatwiej mi upchać po 3-4 tabelki na stronę :) Chodzi o to, że mam tabelkę z grafikami i chce wydrukować załóżmy na 6 tygodni. To wpisuje datę początkową i automatycznie na kolejnych kartkach wychodzących z drukarki data się zmienia. Excel ma coś takiego jak "wpasuj w stronę" w obcjach wydruku w ustawieniach...
??? Lelum Polelum, ale do tego "klasy" to chyba nie są potrzebne ? Zwykłe makro strukturalne, z pętelką, nie wystarczy ? [syntax=vba]Option Explicit Sub dodaj_dt() Dim adr As String Dim kom As Range With ActiveSheet adr = "A2:A" & CStr(.Cells(.Rows.Count, "A").End(xlUp).Row) For Each kom In .Range(adr) If IsNumeric(kom.Value) Then kom.Value = "dt" &...
Bardzo proszę o pomoc w napisaniu poprawnego makra, które będzie się uruchamiało przy każdorazowej zmianie wartości określonej komórki. Na tę chwilę mój problem polega na tym, że makro działa, kiedy ręcznie zmieniam wartości w komórce. Nie działa jednak, gdy w tę samą komórkę wstawiam prostą formułę, której wynikiem są określone wartości (formuła to:...
To jest fragment kodu do przycisku w formularzu użytkownika (Userform) w dokumencie Word. Zadaniem tego bloku kodu jest wstawienie do dokumentu wartości podanych w userformie i przywołanie procedury wstawiającej kwotę słownie. Jeśli zaś użytkownik dane okienko w userformie zostawi puste, albo wpisze 0, to makro ma w tylko skasować zakładkę. Niestety,...
Witam chociaż nie znam VBA zrobiłem sobie program w C który wylicza dane a w exellu robi wykres moje makro wygląda tak [syntax=vb]Private Sub CommandButton1_Click() Set fd = Application.FileDialog(msoFileDialogOpen... With fd .Filters.Clear .Filters.Add "Pliki txt", "*.tx**; *.txt*" .InitialFileName = "c:\" .AllowMultiSelect = False If .Show = -1 Then...
"DataChart" Jeszcze nie zaglądałem do załącznika, ale dlaczego właściwie w "Sheets("DataChart")" usuwasz dane tylko z jednej kolumny ".Columns(1)" skoro końcówka kodu sugeruje, że może ich być więcej (?) - zmienna "counter": Dodano po 1 Dane kopiuję z pliku sam do arkusza, zapisywane są w pliku tekstowym na karcie SD na mierniku. Nie importuje calego...
witam i dziękuję za odp nie wiem za bardzo gdzie mam zrobić wstawkę w makro aby to działało proszę o wskazówki na przykładzie: Sub przeplywy7() MyPath = "e:\test\" myname = Dir(MyPath & "*.xls", vbNormal) Do While myname <> "" ark = "raport" rn = "G7" arg = "'" & MyPath & "[" & myname & "]" & ark & "'!" & Range(rn).Range("A1").Address(,...
Jak już jest dopuszczona możliwość korzystania z makr to można wszystko. Poniżej kod ustawiający obszar wydruku (bez wydruku) na ilość stron wynikających z "E22" Kod nie jest w module tylko w kodzie arkusza POŚW w "sekcji" Change Działa tak, że każda zmiana wartości w E22 zmienia obszar wydruku (nie trzeba nic wciskać wystarczy zmienić wartość i wcisnąć...
Przetestuj poniższe makro: [syntax=vb]Sub Towar_Producent() Dim lLstRw& Dim i& Dim l% Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania Dim sCol$ 'kolumna z danymi Dim iNextSp% 'pozycja pierwszej spacji po odnalezionej gramaturze sCol = "A" With ActiveSheet sRegExpPatt = "\d+(\,|\.)\d+|\d+(\g|\k)"...
Tak, przy pomocy VBA. Nagraj makro poruszania się po tekście. Ctrl+Shift+strzałka w prawo Ctrl+strzałka w prawo Tak mniej więcej powinno to iść (piszę z głowy, czyli z niczego): Zamknij w/w w pętli For (1 To ActiveDocument.Words.Count) i sprawdzaj warunkowo 'Trim(Selection)' - zawsze doczepią się spacje, dlatego Trim. Warunki: Len(trim(selection))=11...
Witam, Napisałem małe makro do czyszczenia błędnych danych z listy. Nie wiem dlaczego ale pętla nie wyłącza się gdy warunek jest spełniony. [syntax=vb]Dim zasieg as long zasieg = cells(5000,1).end(xlup).row For i = 2 to zasieg Step 1 usun = Cells(i,1).value if Is Numeric(usun) = true or usun = " -" or usun = "NONE" Then if(IsNumeric(usun) = false and...
szkoda mi teraz czasu na uczenie się tego Cóż, forum stworzono dla tych, którym tego czasu nie szkoda... Przy porannej kawie naszło mnie znaleźć rozwiązanie bez rozpiski i wyszła taka pętelka[syntax=vb]Dim a As Integer, b As Integer, c As Integer, d As Integer a = 1 Do Until a = 4 b = a + 1 Do Until b = 5 c = b + 1 Do Until c = 6 d = c + 1 Do Until...
Excel wyświetla Nr błędu, więc możesz go przechwycić i oprogramować warunek. Z drugiej strony - lepiej tak skonstruować makro, aby ustrzec się takich błędów. Np instrukcja warunkowa: If (not) isnumeric(znak_z_klawiatury) przy zmianie, lub tp
Proponuje zrobić własną funkcję w makro [syntax=vb]Function Suma_Pisana(zakres As Range) As Double Dim a As String, wartosc As Double, i As Range, tabelka() As String, x As Double a = "" wartosc = 0 For Each i In zakres a = a & "+" & i.Value Next i a = Replace(a, "(", "") a = Replace(a, ")", "") tabelka() = (Split(a, "+")) For x = LBound(tabelka) To...
Prawie dobrze ;) Spróbuj: Cześć. Także użyłem Kolego Twojego makra i robi dobrą robotę, jednak nie wiem dlaczego sumę mnoży zawsze x 2 :?:
Witam Procedura mojego zadanie wygląda następująco. 1. Wczytuje plik txt do excela 2. "Obrabiam do wg. swoich potrzeb 3. Eksportuje dane do txt, nadpisując plik importowany. 1 makro do wczytywania mam napisane. Problem jest jednak z drugim, ponieważ muszę wyeksportować tylko dane z kolumn od a do i. Problem drugi to jak nadpisywać plik txt bez konieczności...
Zobacz, czy to zadziała: [syntax=vbnet]Const ci = 6 Const co = 9 Const r0 = 2 Sub ReCalc() Dim ar As Integer ar = r0 While Cells(ar, ci).Value <> "" If ((Cells(ar, co).Value < Cells(ar, ci).Value) And IsNumeric(Cells(ar, ci).Value)) Then Cells(ar, co).Value = Cells(ar, ci).Value End If ar = ar + 1 Wend End Sub Private Sub Worksheet_Activate()...
Witam, mam w skoroszycie zestawienia moich godzin pracy. Co pewien czas (miesiąc) eksportuję jeden skoroszyt danego miesiąca do pliku *.xls, który jest pozbawiony kodów VBA oraz funkcji i formatów komórek, czyli jest w postaci "strawnej" dla Androida. W związku z tym mam pytanie: Czy można jednorazowo wyłączyć (lub ominąć jednorazowo) w momencie wykonywania...