REKLAMA

isnumeric makro

Znaleziono około 60 wyników dla: isnumeric makro
  • VBA/MAKRO/EXCELL - Wstawianie i usuwanie pustych wierszy w konkrentych miejscach

    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,...

    Obsługa oprogramowania   27 Lut 2019 22:42 Odpowiedzi: 14    Wyświetleń: 1617
  • REKLAMA
  • [Excel VBA] - Makro do kopiowania komórki przy określonym warunku

    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

    Software serwis   16 Lis 2015 20:49 Odpowiedzi: 8    Wyświetleń: 1173
  • VBA- Excel makro na zliczanie wartości z wielu plików

    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...

    Software serwis   26 Sty 2017 21:23 Odpowiedzi: 0    Wyświetleń: 804
  • Excel-makro-kopiuj i wklej do nowo utorzonego arkusza jeśli suma >20

    [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...

    Programowanie Początkujący   20 Wrz 2017 09:13 Odpowiedzi: 26    Wyświetleń: 2316
  • makro z komunikatem do określania zakresu danych do wykresu

    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...

    Programowanie Początkujący   03 Sty 2011 13:33 Odpowiedzi: 21    Wyświetleń: 3302
  • REKLAMA
  • Excel - Wykres przestawny i makro

    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...

    Software serwis   31 Maj 2013 11:10 Odpowiedzi: 5    Wyświetleń: 1539
  • Jak napisać makro wpisujące datę do komórki? VBA i Excel.

    [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...

    Programowanie Początkujący   16 Sty 2023 15:43 Odpowiedzi: 13    Wyświetleń: 423
  • {Excel, VBA} Jak stworzyć makro z goal.seek z pominięciem komórek dla których nie szukam wyniku?

    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...

    Obsługa oprogramowania   12 Lut 2024 19:08 Odpowiedzi: 10    Wyświetleń: 132
  • Excel-makro zmieniające dane znaki na polskie litery

    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,...

    Software serwis   12 Lip 2012 17:35 Odpowiedzi: 18    Wyświetleń: 10800
  • VBA Makro - Przejscie z excela 97/2003 na 2007/2013. Wklejanie arkusza.

    [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ę...

    Programowanie Początkujący   18 Paź 2013 12:49 Odpowiedzi: 10    Wyświetleń: 4038
  • Makro nie działa na innym arkuszu. Kopiowałem kod w inny Arkusz.

    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...

    Programowanie   02 Gru 2020 19:22 Odpowiedzi: 10    Wyświetleń: 747
  • REKLAMA
  • Uzupełnienie makra w programie.

    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...

    Software serwis   31 Sty 2012 10:13 Odpowiedzi: 16    Wyświetleń: 1743
  • POŁĄCZENIE WYNIKU Z MAKRO Z FORMUŁĄ W KOMÓRCE

    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...

    Software serwis   14 Gru 2011 17:26 Odpowiedzi: 5    Wyświetleń: 1413
  • [vba] Makro do Worda - wstawianie zakładki z nazwą z zaznaczonego tekstu lub początku wiersza

    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)...

    Programowanie Początkujący   17 Wrz 2020 11:19 Odpowiedzi: 4    Wyświetleń: 534
  • Excel makro - zamiana danych

    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,...

    Software serwis   22 Wrz 2009 16:41 Odpowiedzi: 13    Wyświetleń: 4658
  • VBA Makro dzielące plik excel na wiele plików i arkuszy

    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...

    Programowanie Początkujący   19 Paź 2018 15:49 Odpowiedzi: 2    Wyświetleń: 1386
  • VBA - Obsługa błędów w pętli Do While, makra, harmonogram, rok wniosku, poziom

    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,...

    Obsługa oprogramowania   07 Lip 2022 16:49 Odpowiedzi: 6    Wyświetleń: 174
  • [Excel] VBA makro - problem

    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...

    Programowanie Początkujący   28 Paź 2009 00:58 Odpowiedzi: 21    Wyświetleń: 11146
  • makro do sprawdzenia wyniku formuły

    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)...

    Programowanie Początkujący   12 Maj 2011 21:16 Odpowiedzi: 3    Wyświetleń: 1538
  • Makro,jezyk VBA problem z kopiowanie miedzy arkuszami

    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),...

    Programowanie Początkujący   10 Lut 2011 19:11 Odpowiedzi: 4    Wyświetleń: 2959
  • Makro excel znajdywanie danych i zamiana

    "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...

    Software serwis   25 Sty 2012 12:28 Odpowiedzi: 25    Wyświetleń: 3561
  • Makro w VBA - Usuwanie zer wiodących

    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]

    Programowanie   07 Gru 2012 15:03 Odpowiedzi: 2    Wyświetleń: 1473
  • Excel - Połączenie dwóch makr worksheet_change

    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"...

    Software serwis   18 Cze 2013 13:52 Odpowiedzi: 5    Wyświetleń: 2862
  • Makro VBA Excel - wyliczanie sredniej z raportu

    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...

    Programowanie   13 Lut 2014 17:58 Odpowiedzi: 4    Wyświetleń: 1956
  • Makra - zastawienie podajace ilość oraz sumę wydatków dla danego dnia tygodnia.

    :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....

    Software serwis   25 Lis 2014 14:14 Odpowiedzi: 25    Wyświetleń: 1689
  • Excel makro do kopiowania kilku zakladek do jednej

    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...

    Software serwis   21 Maj 2015 11:39 Odpowiedzi: 2    Wyświetleń: 1050
  • [vba Excel] makro do tworzenia przefiltrowanej listy zakładek

    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...

    Programowanie   10 Lut 2016 00:56 Odpowiedzi: 9    Wyświetleń: 2673
  • VBA - Jeżeli wartość komórki inna niż liczbowa makro zwróci błąd

    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...

    Programowanie Początkujący   17 Sie 2017 14:03 Odpowiedzi: 21    Wyświetleń: 7356
  • [VBA / Excel] - Makro kopiujące jeśli liczba

    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]

    Programowanie Początkujący   22 Lut 2018 13:10 Odpowiedzi: 4    Wyświetleń: 939
  • Makro VBA usuwające określone kolumny w arkuszu na podstawie wartości

    [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...

    Programowanie   12 Cze 2018 12:57 Odpowiedzi: 2    Wyświetleń: 642
  • Jak automatycznie uruchomić makro zmieniające kolor karty w Excel 2010 po zmianie wartości?

    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...

    Software serwis   04 Sty 2019 14:46 Odpowiedzi: 2    Wyświetleń: 1149
  • Jak zmienić kolor czcionki po podmianie tekstu w Word przez makro Excel?

    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...

    Programowanie Początkujący   18 Maj 2020 19:23 Odpowiedzi: 9    Wyświetleń: 1137
  • Makro "wklej tylko wartości" nie działa poprawnie

    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ę...

    Obsługa oprogramowania   27 Lis 2023 14:56 Odpowiedzi: 23    Wyświetleń: 363
  • [Excel VBA] Całkowanie metodą trapezów i działania na wyniku

    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...

    Programowanie   20 Gru 2018 00:37 Odpowiedzi: 8    Wyświetleń: 1878
  • pogram w VBA kopiujący komórki pomiędzy plikami

    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...

    Programowanie Początkujący   23 Mar 2009 20:15 Odpowiedzi: 13    Wyświetleń: 13276
  • Excel [VBA] Wyszukanie pliku po nazwie i skopiowanie z niego wartości danej komó

    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...

    Programowanie Początkujący   29 Lip 2020 10:34 Odpowiedzi: 10    Wyświetleń: 2505
  • Excel sumowanie i edytowanie sumy a proporcjonalność składników sumowanych.

    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...

    Programowanie   12 Kwi 2019 10:52 Odpowiedzi: 10    Wyświetleń: 1629
  • [VBA Excel] dodanie wartości +1 do istniejącej komórki z tekstem

    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...

    Programowanie   21 Gru 2017 17:41 Odpowiedzi: 6    Wyświetleń: 4407
  • VBA Excel usuwanie wierszy nie zaczynających się od liczb

    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...

    Obsługa oprogramowania   20 Sie 2018 17:12 Odpowiedzi: 11    Wyświetleń: 894
  • VBA - Wyszukiwanie wartości 1 w komórkach A3-A10, pobieranie danych z A1-A2 i wysyłanie maila

    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...

    Programowanie Początkujący   28 Lut 2023 20:33 Odpowiedzi: 12    Wyświetleń: 390
  • Ms Excel nie działa funkcja napisana w VBA nie wiem dlaczego

    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,...

    Software serwis   26 Cze 2012 12:48 Odpowiedzi: 2    Wyświetleń: 2718
  • Excel-przenoszenie wyszukanych umów do poszczególnych arkuszy

    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...

    Software serwis   28 Lis 2012 19:54 Odpowiedzi: 50    Wyświetleń: 6156
  • Word - Word - automatyczna zmiana daty przy drukowaniu

    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...

    Software serwis   01 Lip 2014 10:39 Odpowiedzi: 3    Wyświetleń: 2979
  • {VB.NET} dodanie znaku do kolumny w excelu

    ??? 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" &...

    Programowanie Początkujący   08 Sty 2018 00:58 Odpowiedzi: 4    Wyświetleń: 558
  • VBA - zmiana koloru kształtu w zależności od wartości określonej komórki

    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:...

    Programowanie   04 Sie 2018 19:53 Odpowiedzi: 4    Wyświetleń: 1887
  • Kod Userform w Word - błąd wstawiania kwoty słownie i usuwania zakładek

    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,...

    Programowanie Początkujący   22 Paź 2023 09:09 Odpowiedzi: 4    Wyświetleń: 180
  • [VBA Exell] usównaie istniejącego wykresu

    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...

    Programowanie   08 Mar 2012 03:56 Odpowiedzi: 0    Wyświetleń: 1266
  • Jak skrócić zapis zakresu by uniknąć błędu Series formula is to long (VBA)?

    "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...

    Programowanie Początkujący   08 Lut 2019 12:09 Odpowiedzi: 12    Wyświetleń: 528
  • Excel aktualizacja łącza do wielu plików

    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(,...

    Software serwis   24 Lip 2012 01:52 Odpowiedzi: 11    Wyświetleń: 9449
  • Excel - Zmiana zakresu wydruku od wartości komórek

    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ąć...

    Software serwis   07 Lut 2013 11:35 Odpowiedzi: 6    Wyświetleń: 3864
  • Excel - wycinanie tekstu - skomplikowane

    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)"...

    Software serwis   22 Wrz 2015 08:46 Odpowiedzi: 7    Wyświetleń: 2004
  • office, word - Czyszczenie tekstu w wordzie

    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...

    Software serwis   14 Mar 2014 09:35 Odpowiedzi: 1    Wyświetleń: 1008
  • [Excel] - Czyszczenie zakresu z niepotrzebnych danych

    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...

    Programowanie Początkujący   21 Kwi 2014 22:12 Odpowiedzi: 5    Wyświetleń: 1812
  • Excel 2013 Kombinacje bez powtórzeń

    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...

    Programowanie Początkujący   26 Paź 2015 20:46 Odpowiedzi: 19    Wyświetleń: 25674
  • VBA EXCEL - Ograniczenie zawartości Combobox

    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

    Programowanie Początkujący   23 Wrz 2014 20:48 Odpowiedzi: 5    Wyświetleń: 2832
  • MS Excel - sumy - Specyficzne sumowanie - excel

    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...

    Software serwis   06 Lis 2014 15:16 Odpowiedzi: 12    Wyświetleń: 1080
  • Excel - Sumowanie z wielu plików

    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 :?:

    Software serwis   10 Wrz 2015 07:56 Odpowiedzi: 18    Wyświetleń: 7932
  • vba - Eksport pliku xls do txt

    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...

    Programowanie Początkujący   16 Sty 2016 14:35 Odpowiedzi: 7    Wyświetleń: 1758
  • Jak w Excelu śledzić i zapamiętywać maksymalną wartość w czasie?

    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()...

    Obsługa oprogramowania   18 Lut 2020 22:09 Odpowiedzi: 20    Wyświetleń: 441
  • Czy można wyłączyć (ominąć jednorazowo) zdarzenie Change w arkuszu

    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...

    Programowanie Początkujący   07 Sty 2024 16:30 Odpowiedzi: 7    Wyświetleń: 156