instr excel

Znaleziono około 145 wyników dla: instr excel
  • Excel - podział tekstu, stworzenie makra

    Spróbuj [syntax=vb] Sub mySplit() Dim bs As Range, mar() As String Dim r&, i&, n&, x$, xx$ Dim p&, pd&, ps&, pw&, lmi&, pn&, px&, pf&, pe&, sl& Const dig = "0123456789" Set bs = Sheets("dane").Range("b:g") r = 2 While bs(r, 1) <>...

    Programowanie Początkujący   11 Lip 2014 13:53 Odpowiedzi: 10    Wyświetleń: 1515
  • VBA Excel XML - Import z wielu plików tylko kilku danych

    To tylko kwestia dopasowania, metoda "prawie" identyczna dla obu przypadków. [syntax=vbscript]Option Compare Text Option Explicit Sub Proba() Dim katalog As String, plik As String, linia As String Dim licznik As Long, ko As Integer, startuj As Integer Dim tabela As Variant, i As Long katalog...

    Programowanie   02 Mar 2017 21:39 Odpowiedzi: 9    Wyświetleń: 2607
  • 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...

    Software serwis   12 Lip 2012 17:35 Odpowiedzi: 18    Wyświetleń: 10332
  • EXCEL- Filtrowanie w UserForm

    Czyżby taki prosty błąd?[syntax=vb] For i = 3 To ostWrs If (InStr(1, etat, "| " & .Cells(i, 5) & " |") > 0 Or .Cells(i, 5) Like etat) And _ (InStr(1, firma, "| " & .Cells(i, 9) & " |") > 0 Or .Cells(i, 9) Like firma) And _ (InStr(1, szef, "| " & .Cells(i, 10) & " |")...

    Software serwis   18 Lis 2013 18:37 Odpowiedzi: 4    Wyświetleń: 1329
  • VBA EXCEL - Funkcja użytkownika aktualizuje się co chwile

    Witam, Mam dość prostą własną funkcję (w komórkach A1:A5000), która zastępuje mi albo 1 rozbudowaną funkcję w funkcji excela albo 3 funkcje (w komórkach A1:C5000). Problem jest taki, że teraz za każdym razem mi się przelicza. Jak puszczam makro, to chyba z 5-10 razy przelicza mi się ta funkcja ( co...

    Programowanie Początkujący   20 Paź 2015 08:26 Odpowiedzi: 7    Wyświetleń: 1290
  • Excel makro znajdź ciąg znaków

    Nie wiem jak masz poukładane dane Założyłem że dane są w pierwszym arkuszu w kolumnie A Proszę przykład. Nie wprowadzałem zwrotu cyfr dpo arkusza bo jak wspomniałem nie wiem gdzie to zwrócić. Mam nadzieję że dasz sobię radę. Sub rozdziel() ilewierszy = Sheets(1).Range("A1&quo...

    Software serwis   30 Sty 2012 20:10 Odpowiedzi: 9    Wyświetleń: 5777
  • Excel- Kwestionariusz pracownika. Rozszerzenie możliwości pliku

    I właśnie tego się obawiałem że "można będzie zmienić" np na 9 "Filtr" zaproponowany przez kolege adamasa przy takiej konstrukcji trzeba by było poważnie rozbudowywać (np. do 8 Case z 9 przypadkami w każdym dla danej grupy) Proponuje trochę inne rozwiązanie (Mam nadzieje że zagra bo ponieważ nie...

    Software serwis   06 Mar 2013 22:05 Odpowiedzi: 83    Wyświetleń: 12447
  • Excel- Wklejenie wygenerowanej lisy do nowego pliku .xls

    Podobnie jak w moim przypadku, otworzyło nowy plik jednak bez wygenerowanej listy. Na screenie pokazuje mi gdzie jest błąd: ...jednak muszę jeszcze dodać że generowanie listy nie kończy się tylko na tym kodzie który dałem w temacie. Jest tam jeszcze linijka: ...a to jeszcze kod samego...

    Software serwis   10 Mar 2013 21:04 Odpowiedzi: 5    Wyświetleń: 1557
  • VBA EXCEL - Tworzenei makra do wczytywania części danych z pliku .txt

    W miarę odporne na zmienna strukturę pliku wejściowego: Dodano po 18 Zmien OR na: If p > 0 And d > 0 Then Dodano po 5 Masz z opisem, to będziesz w stanie sam poprzerabiać: [syntax=vb]Sub WczytajPlik() plik = "C:\Plik.txt" Open plik For Input As #1 Sheets("Arkusz1").Select Line...

    Programowanie Początkujący   02 Sie 2013 10:21 Odpowiedzi: 9    Wyświetleń: 3960
  • Excel-przenoszenie wyszukanych umów do poszczególnych arkuszy

    Zacznij od początku jeszcze raz bo coś za dużo usunąłeś z kodu (nie mam jak ci podesłać bo w pracy mam 2010 i rozwala mi plik) między tymi linjami kodu wprowadź warunek If IsNumeric(fragment2) Then fragment2 = "" kod = fragment1 & fragment2 Czyli ma wyglądać tak: ...

    Software serwis   28 Lis 2012 19:54 Odpowiedzi: 50    Wyświetleń: 5964
  • Excel - Modyfikacja kodu makro

    [syntax=vb] Sub SzukajCiagu() Dim x As Long, y As Long, z As Long, SzukaneSlowo As String x = 1 z = 1 Sheets("PrzeszukiwanyArkusz").Select ... Cells(x, 1) <> "" y = 1 While Sheets("ListaSlow").Cells(y, 1) <> "" SzukaneSlowo = Sheets("ListaSlow").Cells(y, 1) ...

    Software serwis   18 Gru 2012 15:08 Odpowiedzi: 5    Wyświetleń: 963
  • Excel formuła do zmiany kwoty na tekst (kwota słownie)

    Witam, dopiero zaczynam moją przygodę z Excelem - nie jestem informatykiem, nie mam wykształcenia ścisłego - także proszę o wyrozumiałość w razie czego ;) Chciałem uzyskać zapis kwoty słownie podobnie jak to opracował marek003, ale chciałem żeby waluta była na końcu. Ponadto w jakiś sposób rozwiązałem...

    Software serwis   04 Lis 2018 13:53 Odpowiedzi: 42    Wyświetleń: 187682
  • Excel - Wyszukanie fragmentu tekstu

    Kolega JRV podał formułę, ja podaje VBA. [syntax=vb]Sub qq() ostw = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ostw 'Nazwa a = Cells(x, 1) For y = 9 To 24 'Len(a) If Mid(a, y, 1) <> "0" Then Cells(x, 2) = Mid(a, y, 25 - y) Exit For ...

    Software serwis   09 Gru 2013 20:31 Odpowiedzi: 20    Wyświetleń: 2553
  • 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...

    Software serwis   22 Wrz 2015 08:46 Odpowiedzi: 7    Wyświetleń: 1947
  • Excel VBA - excel vba - kolorowanie wierszy po okreslonej dacie

    Stworzyłem prosta pętlę do kolorowanie wierszy po spełnieniu określonych warunków. [syntax=vb]'kolorowanie wierszy Dim i As Integer If InStr(LCase(dstCells(dstRow, 5)), "awaria") Then If InStr(LCase(dstCells(dstRow, 2)), "serwis") Then ...

    Programowanie Początkujący   25 Sie 2014 08:58 Odpowiedzi: 1    Wyświetleń: 2439
  • Excel - Wyciąganie z komórek określonego tekstu

    W odróżnieniu do kodu Kolegi powyżej, mój kod nie ogranicza długości wyrazu oraz nie ogranicza się do jednego wystąpienia szukanego tekstu. [syntax=vb]Function OO(t As String, s As String) As String o = InStr(1, t, s) If o = 0 Then OO = "" Exit Function End If poczatek = InStrRev(t,...

    Software serwis   28 Lis 2014 10:18 Odpowiedzi: 7    Wyświetleń: 1986
  • Excel - wyszukaj pionowo dla tekstu w jednej komorce

    Witam, Myślę nad zrobieniem czegoś w stylu wyszukaj.pionowo + zamień, dla tekstu zawartego w jednej komorce. Chodzi o to że z innego skoroszytu chce wyciągać wartości odpowiadające tekstowi zawartemu w powiedzmy komórce C1. Nie byłoby w tym nic trudnego gdyby w tej komorce znadowal sie tekst tylko...

    Software serwis   31 Lip 2015 19:36 Odpowiedzi: 10    Wyświetleń: 1950
  • [VBA Excel] Wyszukiwanie rekordu przy 2 zmiennych

    np: [syntax=vba]Option Explicit Sub bbb() Dim w As Long Sheets("Historia_ZLEC").Select On Error Resume Next w = Columns(4).Find(What:="kierowca", LookAt:=xlWhole).Row On Error GoTo 0 If w = 0 Then MsgBox "Nie znaleziono", vbOKOnly, "Uwaga": Exit Sub If Cells(w, 6).Value...

    Programowanie Początkujący   06 Maj 2018 11:10 Odpowiedzi: 5    Wyświetleń: 1089
  • VBA EXCEL 2013 - nowa funkcja (nie działa)

    Witam, Chciałem napisać nową funkcję, która zamieniała by liczbę na słowo. Posiłkując się internetem i stając na głowie, to co mam nie działa. Patrzyłem na kod już tyle razy, że mam dość. może ktoś z Was zrobi mi prezent świąteczny i rzuci okiem czy gdzieś nie mam błędu w kodzie. Przykładowy arkusz...

    Programowanie Początkujący   23 Gru 2020 10:57 Odpowiedzi: 2    Wyświetleń: 285
  • Excel formuła do zmiany kwoty na tekst (kwota słownie)

    Witajcie Wszystko ładnie ale mam problem. Używam makra: Function Słownie(Liczba As Variant, Optional Waluta As String) As Variant '****************************... Makro do przeliczania liczby na słownie ' (c) 2001 by Bartłomiej Sosenko 'Troszeczkę...

    Obsługa oprogramowania   28 Cze 2021 13:07 Odpowiedzi: 0    Wyświetleń: 240
  • Excel VBA funkcja wyszukiwania działająca w innym skoroszyci

    Proszę o pomoc w napisaniu funkcji w Excelu VBA, która wyszukuje określone słowo w pierwszej kolumnie i inne słowo w drugim wierszu a która wywoływana jest z innego skoroszytu. Napisałam funkcję, która działa w tym samym skoroszycie ale nie idzie mi zrobienie tak, aby działała gdy się ją uruchamia...

    Software serwis   31 Sie 2010 10:56 Odpowiedzi: 1    Wyświetleń: 2200
  • excel - Dwa pierwsze wyrazy z danego wiersza.

    [syntax=vb] Function DwaPierwsze(Tekst As String) As String DwaPierwsze = Left(Tekst, InStr(InStr(1, Tekst, " ") + 1, Tekst, " ")) End Function [/syntax] Taką funkcje wpisz w module, a w komórce, gdzie oczekujesz imienia i nazwiska wpisz =DwaPierwsze(A1). Zapewne można bez funkcji własnej,...

    Software serwis   27 Paź 2014 12:21 Odpowiedzi: 17    Wyświetleń: 7515
  • VBA, Excel - Pobieranie danych z pliku .csv

    Szukając ... rozwiązań natknęłam się na ... Gdzie mam pytać, jeśli nie na forum? : ) ... można na przykład w przeglądarce forumowej się "popytać" ... : ) itd. Poza tym pojęcie pobrania danych "bez otwierania pliku" jest bardzo względne. Aby coś z danego zbioru dyskowego pobrać, zbiór...

    Programowanie Początkujący   15 Sty 2019 00:27 Odpowiedzi: 9    Wyświetleń: 1653
  • EXCEL - Kontrola płatności faktury zbiorcze

    Excela używam raczej rzadko ale napisałem w VBA kawałek kodu, który rozdziela nr rachunków z ciągu tekstowego, w celu ich dalszego porównania z już istniejącymi nr rachunków. Możesz spróbować wykorzystać go (rozwinąć, dostosować) do własnych potrzeb. 11/2011 12/2011 13/2011 albo komunikat o...

    Software serwis   04 Sty 2012 01:03 Odpowiedzi: 27    Wyświetleń: 4378
  • Excel jak zrobić formułę lub odnośnik

    Może spróbuj przez podstawianie formuł. Makro przetestowałem na arkuszu "Zmiana N". Jeśli to jest to, to masz już z górki.[syntax=vb]Sub Proba() For j = 6 To 10 Step 2 zmF = InStr(Cells(3, j).Formula, "KW") zmF = Mid(Cells(3, j).Formula, zmF, 4) zmR = InputBox("W kolumnie " & j & "...

    Programowanie Początkujący   10 Kwi 2012 06:36 Odpowiedzi: 5    Wyświetleń: 5008
  • Vba Excel - Makro wyszukujące ciągi znaków ze zmiennymi parametrami

    Spróbuj [syntax=vb]Sub Makro2() Dim kom As Range, i As Integer, j As Integer For Each kom In UsedRange If kom.Value <> "" Then i = InStr(1, LCase(kom.Value), "<") Do While i > 0 j = InStr(i, LCase(kom.Value), ">") 'jeśli zabraknie ">", to zakoloruje do końca ...

    Programowanie Początkujący   25 Paź 2012 21:50 Odpowiedzi: 4    Wyświetleń: 2034
  • Vba Excel - Makro wyszukujące tagi html i zmieniające ich formatowanie

    Witam ponownie, chciałbym prosić o pomoc przy wyszukiwaniu tagów html o zmiennych parametrach. Aktualnie posiadam taki kod: [syntax=vb] Sub Makro1() Dim kom As Range, i As Integer, j As Integer For Each kom In UsedRange i = 1 If kom.Value <> "" Then Do i = InStr(i,...

    Programowanie Początkujący   18 Lis 2012 16:19 Odpowiedzi: 1    Wyświetleń: 1281
  • Excel - Wielokrotne zastosowanie funkcji "tekst jako kolumny"

    :arrow: JRV - Ciekawe podejście Z tym że może wystąpić kłopot przy błędnych danych tzn. jak np. zabraknie jednego ";" to np. zmienna3 wędruje w miejsce zmiennej 2 Ja poszedłem trochę inną drogą (dodałem komunikaty "kierunkowe" w razie błędu) [syntax=vb]Sub podziel() Dim ostWiersz As Double Dim...

    Software serwis   06 Cze 2014 17:38 Odpowiedzi: 20    Wyświetleń: 2991
  • Excel VBA - import pliku txt - szukanie ciagu znakow i wstawienie do nowej komor

    wszystko do jednej kolumny np. A [syntax=vb] sub stronki() dim r&, ro& ro=Cells(rows.Count, 1).End(xlUp).Row For r=1 to ro x=Cells(r, 1) If x Like "*http://*" then p=Instr(x, "http://") k=Instr(p, x, " ") If k=0 then k= Len(x)+1 Cells(r,1).offset(,1)=Mid(x,...

    Programowanie Początkujący   18 Lip 2014 11:53 Odpowiedzi: 7    Wyświetleń: 2655
  • makro - zapis pliku txt do excela

    Witam wszystkich, jestem tu nowa więc jeżeli umieściłam temat w złym miejscu to przepraszam. Przeglądałam już forum i wiem, że były podobne tematy ale nie znalazłam rozwiązania dla siebie. Otóż mam do napisania makro w excelu, które automatycznie będzie zczytywać dane z pliku txt. Plik txt ma taką...

    Programowanie   26 Sie 2014 08:58 Odpowiedzi: 3    Wyświetleń: 1395
  • VBA EXCEL - Ograniczenie zawartości Combobox

    ad.1 Przy zdarzeniu Change ComboBox'a sprawdzany jest każdy znak wprowadzany z klawiatury. Jeśli sprawdzany ma być tylko pierwszy, pierwszym warunkiem będzie Len(NazwaCombo.value)=1, następnie porównujesz (w pętli) z listą. Najprościej wstawić polecenie opuszczenia pętli przy pozytywnym wyniku porównania,...

    Programowanie Początkujący   23 Wrz 2014 20:48 Odpowiedzi: 5    Wyświetleń: 2709
  • Excel - Wyciąganie danych z nie identycznych arkuszy

    [syntax=vb]Function PierwszeSlowo(t As String) As String PierwszeSlowo = Left(t, InStr(1, t, " ") - 1) End Function Function Artykul(t As String) As String ps = Len(PierwszeSlowo(t)) - 1 Artykul = Mid(t, InStr(1, t, " ") + 1, InStrRev(t, "/") - 1 - ps) End Function Function TrzeciOdTylu(t...

    Programowanie Początkujący   27 Paź 2014 16:49 Odpowiedzi: 11    Wyświetleń: 987
  • EXCEL- ListBox, wyświetlanie danych w wielu kolumnah

    Witam. Próbują utworzyć ListBox w którym wyświetlało by mi dane w wielu kolumnach (dane z całego miesiąca). Niestety kod który zastosowałem pozwala wyświetlać dane tylko w max 10 kolumnach. Jednak dla przykładu napisałem kod który pokazuje co dokładnie chcę osiągnąć. Ogólnie to potrzebuję aby ListBox...

    Software serwis   23 Gru 2015 21:50 Odpowiedzi: 1    Wyświetleń: 1008
  • Excel - Tworzenie makra - sortowanie i przenoszenie między komórkami

    Po pierwsze. Jak poszerzasz dane to pamiętaj o poszerzeniu sortowania (do kolumny G): ">0" i zrezygnować z pętli. Chyba że: 1. "kod" może wystąpić dwa razy i wtedy też ma się pojawić dwa razy "zwrot..." 2. "Kod" może pojawić się po 10 znaku i wtedy jest "nieważny" Poniżej wersja 2 ale...

    Software serwis   04 Kwi 2016 23:23 Odpowiedzi: 48    Wyświetleń: 7605
  • VBA Excel - Zamiana tekstu na kolumny

    Dla Twojego konkretnego przypadku[syntax=vb]Sub podzial() Dim bs As Worksheet, bd As Worksheet Dim r&, c&, p%, k% Set bs = ActiveSheet Set bd = Sheets.Add(after:=bs) For r = 1 To Application.CountA(bs.Columns(1)) x = bs.Cells(r, 1) k = 0 For c = 1 To 7 p = k + 1 ...

    Programowanie Początkujący   13 Paź 2016 09:21 Odpowiedzi: 2    Wyświetleń: 1443
  • Wyszukaj pionowo i złącz teksty vba excel

    Witam serdecznie. Mam spory problem, z którym nie mogę sobie poradzić. Posiadam makro, które rozbija mi dane z komórek na człony wg zadanego klucza do kolumn L, M, N. Potrzebowałbym w kolumnie O połączyć dane z kolumn L i N (póki co jest tam formuła). W kolejnym kroku chciałbym na podstawie danych...

    Programowanie Początkujący   04 Kwi 2017 22:54 Odpowiedzi: 2    Wyświetleń: 1659
  • Makro VBA Excel - Utworzenie makra warunkowego

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

    Obsługa oprogramowania   30 Maj 2018 07:57 Odpowiedzi: 7    Wyświetleń: 873
  • Wyłączający się plik Excela

    Która wersja Excela się wyłącza? Mógłbyś może podesłać kod tego makra? Wersja Excela 365, Kod makra : Private Sub CommandButton1_Click() Me.CommandButton2.Visible = True Me.CommandButton1.Visible = False Me.Height = 350 End Sub Private Sub CommandButton2_Click() Me.CommandButton1.Visible...

    Obsługa oprogramowania   08 Lut 2021 15:52 Odpowiedzi: 4    Wyświetleń: 288
  • Excel VBA - Makro wyszukujące konkretne dane

    [syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) ...

    Obsługa oprogramowania   31 Sie 2021 10:23 Odpowiedzi: 5    Wyświetleń: 288
  • Excel - VBA do wyciągnięcia z komórki określonego ciągu znaków / cyfr

    Jak poniżej. Założenie, że zwraca pierwszy 26znakowy ciąg cyfr, po usunięciu spacji z tekstu. [syntax=vbscript]Function ZwrocIban(Szukaj_Komorka As Range) Dim dlugosctekstu, pozycja As Long Dim t, ciag, maska, iban As String Dim i As Long 'usuwamy spacje z tekstu t = Szukaj_Komorka t = Replace(t,...

    Software serwis   15 Lip 2022 06:46 Odpowiedzi: 10    Wyświetleń: 255
  • (VBA) EXCEL - przenoszenie i łączenie kolumn w nowych skoroszytach według filtru

    Serdecznie dziękuję! Teraz jest idealne! Ja co prawda sam wróciłem do kopiowania ostatnich trzech kolumn w ostatnim kodzie poprawionym przez Ciebie bo poległem przy zaokrągleniach , a tak było prościej. Nie mogłem też na razie dojść do tego jak zaznaczyć cały zakres nowo powstałej tabelki aby zrobić...

    Software serwis   06 Lut 2015 14:49 Odpowiedzi: 73    Wyświetleń: 5181
  • [EXCEL, VB] Makro excel 2003 na makro w excel 2007

    Zamykając temat. W pierwszym poście tego tematu jest kompletny kod pod EXCEL 2003 i XP (sprawdzony) Poniżej przedstawiam kod sprawdzony na EXCEL 2007 ( w większości opisane co i jak) [syntax=vb] Sub OperacjeHurtowe() 'makro dla excel 2007 'nazwa pliku startowego start2.xlsm i jest umieszczony...

    Software serwis   13 Paź 2011 16:45 Odpowiedzi: 6    Wyświetleń: 3859
  • Wyszukiwanie kolumny po nazwie Visual Basic (Excel makro)

    1. Przykład danych by się przydał do dalszych rozważań. 2. Zapoznaj się z 'InStr', operatorem 'Like' z maską danych oraz 'Find'. 3. dane pochodzące z zewnętrznego programu, które są przedstawione w excelu, w taki sposób, że na wyjściu programu otrzymuję arkusz excela Program sam tworzy plik excela...

    Programowanie Początkujący   22 Sie 2019 00:11 Odpowiedzi: 3    Wyświetleń: 369
  • Excel - Filtrowanie w excelu

    Owszem to filtrowanie danych ale w żadnym wypadku nie powinno być powiązane z auto-filtrem, tym bardziej jak masz excel 2003 i poniżej. Tu masz kod. Tłumaczyć? [syntax=vb]Sub Makro1() Dim ostWrs As Long, x As Long Dim tekst As String, szukane As String ostWrs = Range("B" & Rows.Count).End(xlUp).Row tekst...

    Software serwis   15 Mar 2013 18:01 Odpowiedzi: 5    Wyświetleń: 2007
  • EXCEL VBA MAKRO - Wysyłanie emaili z spersonalizowanym załącznikiem

    Cześć Chciałbym stworzyć makro, które wysyłało by emaile z listy z excel’a i dołączało spersonalizowane załącznik. W Arkuszu „lista” są komórki z spersonalizowanym numerem odbiorcy od „b6” do „b5006” np. D001425 a w komórkach od „c6” do „c5006”...

    Programowanie   23 Paź 2013 13:59 Odpowiedzi: 3    Wyświetleń: 7035
  • Excel - Sumowanie z wielu plików

    Moje poszukiwania w Googlach nie dały rezultatu. Na tym forum również nie znalazłem odpowiedzi pomimo że są tematy zbliżone do mojego problemu. Co ciekawe na innych forach również nikt nie wie jak to zrobić. Chciałbym Was tu prosić o pomoc jak to można zrobić. Chodzi mi o zbudowanie makra do zliczania...

    Software serwis   10 Wrz 2015 07:56 Odpowiedzi: 18    Wyświetleń: 7698
  • Wysyłanie automatycznych wiadomości email z excela

    Witam wszystkich! Mam kalendarz w excelu i chciałbym teraz mieć możliwość, aby excel wysyłał z automatu na wskazane adresy cały kalendarz po wprowadzonych zmianach w danych komórkach. Mam obecnie makro, które pozwala na to, ale przez naciśnięcie przycisku. Czy może robić to automatycznie? Czy mogę...

    Obsługa oprogramowania   21 Lut 2022 17:17 Odpowiedzi: 4    Wyświetleń: 123
  • Pliki .txt z określonymi wierszami do excela

    Witam. Potrzebuję pomocy z importem wielu plików txt do excela. Pliki txt mają podobne rozłożenie różnią się jedynie wartościami oraz liczbą wierszy. Potrafię stworzyć makro na kopiowanie z wybranego pliku txt określonych kolumn od np 20 wiersza. Dziś potrzebuję stworzyć makro do importowania...

    Programowanie Początkujący   19 Lip 2015 19:34 Odpowiedzi: 13    Wyświetleń: 1518
  • EXCEL- ComboBox, ListBox: Listy rozwijane i inne możliwości

    I to kolejny dowód że człowiek całe życie się uczy. Nie wiedziałem że w Excelu jest coś takiego jak ListView. Gdzie w projektowaniu UserForm jest coś takiego? Na załączonym screenie nic takiego nie mam :/ . Ogólnie to o taki efekt mi chodzi i coś takiego chciałbym osiągnąć. Tylko że w moich...

    Software serwis   03 Paź 2015 18:50 Odpowiedzi: 19    Wyświetleń: 3636
  • Excel, rozdzielenie danych kontrahenta

    Można by się tak pobawić najpierw wyodrębnić PNA, następnie [syntax=vbnet] dim SlownikMiejsc as new list(of string) with slownikmiejsc .add("Antonin") .add("Be... Wielkopolski") .add("STARGARD ") .add("Witkowo") itd.... end with dim rekordy as dictionary(of string,string)'...

    Programowanie   17 Mar 2019 23:12 Odpowiedzi: 21    Wyświetleń: 2055
  • Excel [VBA] | Rozdzielanie tekstu na dwie osobne kolumny

    Nie wiem po co z pięknej i poukładanej bazy tworzysz setki kolumn.:) Ale skoro tak, to: [syntax=vbscript]Sub Rozdzielanie() Application.ScreenUpdati... = False Sheets("Arkusz1").Select Set b = Sheets("Efekt końcowy") ow = Cells(Rows.Count, "A").End(xlUp).Row ok = Cells(1, Columns.Count).End(xlToLeft).Column For...

    Programowanie Początkujący   15 Sty 2020 08:34 Odpowiedzi: 16    Wyświetleń: 1725
  • VBA Skryp- drukowanie excela i word do PDF

    Użyj kodu Clubsa . Jest lepszy. W w/w kodzie jest kicha, bo pdftk gubi się, jak w nazwie pliku jest spacja. Nawet, jak poda mu się w cudzysłowach. Trochę przerobiłem kod Clubsa. P.S. Arkusz szedł na końcu, a ma być jako załącznik nr 1, czyli w środku. [syntax=vbscript]Sub elka() Dim p(2) As String,...

    Programowanie Początkujący   04 Lut 2020 18:14 Odpowiedzi: 35    Wyświetleń: 2484
  • VBA Excel - porównanie listy użytkowników podczas otwarcia pliku

    Nie bardzo rozumiem, masz listę użytkowników i nie umiesz znależć tego którego już znasz z loginu? Najprościej: zwykłe wyszukiwanie w tablicy (i co z tego, że to Excel). Jak wolisz po Excelowemu to użyj Range.Find i pobierz sobie wiersz (chyba to pionowa tablica?) i dalej to już proste. Jeżeli używasz...

    Programowanie Początkujący   25 Cze 2020 07:10 Odpowiedzi: 12    Wyświetleń: 819
  • [VBA] Excel - makro: Nie marnuj żywności!

    Witam, - w czasie epidemii koronawirusa, w czasie robienia zapasów artykułów spożywczych, pomyślałem, że dla zinwentaryzowania tego co w lodówce, na regale w spiżarni i wszystkiego co może się zmarnować - bo mija data przydatności do spożycia, napiszę żonie makro. Myślę, że może się przydać, tym bardziej,...

    Programowanie Początkujący   20 Mar 2020 19:24 Odpowiedzi: 5    Wyświetleń: 759
  • Makro w excelu przeszukujące Outlooka po temacie maila

    Napisałem na razie coś takiego: Option Explicit Dim szukana$, szukac_dalej As Variant, iFolder$ Dim oFolder As MAPIFolder, oMail As MailItem, x& Sub szukaj_wiadomosci_po_temacie() iFol... = Application.ActiveExplorer.CurrentFolder... = "dodatek" If FindTematCzastkowo(szukana) = False...

    Programowanie Początkujący   09 Lip 2020 14:46 Odpowiedzi: 2    Wyświetleń: 366
  • Excel odczytanie pozycji kilku wartości

    Zawsze warto napisać, w której wersji Excela ma pracować to rozwiązanie, bo w różnych wersjach są dostępne różne funkcje. Jeśli chodzi o rozdzielenie formułą do osobnych komórek danych rozdzielonych średnikami, to na upartego się da, ale to dość złożone. W tym przypadku sugerowałbym użycie VBA i funkcji...

    Obsługa oprogramowania   21 Sie 2021 17:18 Odpowiedzi: 13    Wyświetleń: 354
  • VBA Excel - import wybranych danych z arkusza zewnętrznego

    jednak wiersze dzieli na strony To nie jest największy problem. Najważniejsze, że struktura jest zachowana. Podam wkrótce kod. Dodano po 1 [syntax=vbscript]Sub Import() Set a = ThisWorkbook.Sheets("Arkusz 1") nw = 3 Set b = Workbooks.Open(ThisWorkbook.Path & "\Plik_B.xls") owb = Cells(Rows.Count,...

    Programowanie Początkujący   04 Paź 2021 19:47 Odpowiedzi: 3    Wyświetleń: 258
  • VBA i "paste" w Excelu

    Sporo roboty z przełączaniem ustawień regionalnych. Lepiej znaleźć kropkę w ciągu znakowym Instr(...) i zamienić ją na przecinek. Potem konwersja idzie już bez trudu :) Powodzenia

    Programowanie   30 Paź 2007 12:56 Odpowiedzi: 6    Wyświetleń: 2446
  • [EXCEL][vba] Ilość zapełnionych komórek w kolumnie

    Zależy od tego jaka jest struktura takiej komórki. Jeżeli długość jest zawsze taka sama a kod w tym samym miejscu, to możesz wybrać fragment tekstu od... do..., np. ActiveSheet.Cells(i, 2) = Mid(ActiveSheet.Cells(i, 1), 19, 6) Jeżeli kod jako jedyny zawiera myślnik: to...

    Programowanie Początkujący   10 Lut 2010 22:42 Odpowiedzi: 12    Wyświetleń: 14626
  • [VBA][Excel] Analiza zapisów partii szachowych

    Analiza trwa godzinę?? Na pewno kod można zoptymalizować, danych nie ma aż tak dużo. Jak dla mnie kilka minut to już by było za dużo. Tak na szybko (bo kod za długi żeby cały analizować ;P) parę uwag: - w przycisku ANALIZUJ znowu zgubiłeś Application.ScreenUpdating =... i Application.Calculation...

    Programowanie   14 Cze 2010 18:16 Odpowiedzi: 28    Wyświetleń: 5238
  • [Excel] VBA Składanie nazwy zmiennej

    Funkcja jest piękna. Osobiście lubię też Select Case, a i InStr chętnie używam. Wszystkie te elementy są tam zawarte i dobrze ze sobą współpracują. Moje prywatne zdanie: jeżeli jest kilka grup znaków, to można przypisać im unikalne kody (1, 2, 3, itd.) i umieścić je w tablicy zgodnie z ASCII znaku....

    Software serwis   10 Gru 2010 14:35 Odpowiedzi: 11    Wyświetleń: 4999
  • EXCEL-rozdzielenie tekstu w kolumnie; kilka tysięcy wierszy

    Jest możliwe. Do znalezienia spacji poczytaj o poleceniu InStr, do wycięcia części tekstu z lewej polecenie Left, z prawej Right, ze środka Mid w VBA.

    Programowanie   09 Gru 2010 20:25 Odpowiedzi: 3    Wyświetleń: 7219
  • Excel- kalkulator w okienkach

    :arrow: bobo InStr Trzeba podstawić Kolego wielkie dzięki. Jesteś naprawdę wielki. Masz PIWO!!! Dodano po 2 Przy okazji, czy jest jakaś literatura aby nauczyć się pisania w języku Visual Basic? Czy do tego jest potrzebna znajomość języka angielskiego?

    Software serwis   05 Paź 2011 16:46 Odpowiedzi: 17    Wyświetleń: 5329
  • Excel 2007, UserForm i Combobox

    dlaczego ograniczenie listy następuje dopiero po wpisaniu spacji Należy zmienić warunek porównujący stringi. Funkcja InStr szuka także wewnątrz. Np pamiętasz, że sala ma w nazwie "020" a nie pamiętasz początku. W przypadku długich ciągów metoda nie sprawdza się. Spróbuj [syntax=vb]If UCase(Left(lista(i,...

    Software serwis   06 Kwi 2012 10:28 Odpowiedzi: 14    Wyświetleń: 14854
  • VBA + excel + update (jak sprawdzic czy dany rekord istnieje w bazie danych)

    Rzucasz się od razu na głęboką wodę, mam nadzieję że już programowałeś wcześniej :) Są dwa sposoby rozwiązania Twojego problemu: 1. Przed wykonaniem UPDATE zrobić SELECT, i jeżeli nie zwróci on pożądanych wyników -> oznaczyć rekord jako nieistniejący w bazie. Sam czasami robię to w ten sposób: a....

    Programowanie Początkujący   05 Wrz 2011 13:15 Odpowiedzi: 2    Wyświetleń: 3668
  • [Excel] Wyszukiwanie tekstu

    Z takim... zorganizowaniem inaczej danych rzeczywiście pozostaje VBA. Np taka funkcja użytkownika

    Programowanie   07 Wrz 2011 10:28 Odpowiedzi: 12    Wyświetleń: 5343
  • Tworzenie nowych formuł w Excelu

    Najpierw musisz się dobrać do zawartości która jest w komórce Potem masz w linku który podałem wyżej funkcje InStr która zwraca Ci pozycje substringu w danym springu Ciebie nie interesuje pozycja tylko sam fakt zaistnienia m w przyadku niezaistnienia masz 0 w innym coś innego

    Software serwis   03 Lut 2015 13:52 Odpowiedzi: 14    Wyświetleń: 2703
  • Excel vba - wyszukanie i kopiowanie wierszy do arkusza vba

    W takim przypadku potrzebne są dwie pętle. Pierwsza For dla wszystkich arkuszy, których nazwa <>"RAPORT", wewnętrzna Do While...Loop z licznikiem dla Nr wiersza i instrukcją porównująca zawartość komórki, Np: If Instr(Cells(wiersz, 5).text, szukany_fragment)>0 Then i tu kopiowanie. Szukaną...

    Programowanie   12 Lis 2012 08:12 Odpowiedzi: 12    Wyświetleń: 8613
  • Vba Excel - Makro wyszukujące ciąg znaków i zmieniające jego czcionkę

    Trzeba było od razu ;) Można zamiast instrukcji If zastosować pętlę Do [syntax=vb]Sub Makro1() Dim szukany As Variant, kom As Range Dim i As Integer, s As Integer szukany = Array("<html>", "</html>", "<head>", "</head>") For Each kom In UsedRange If kom.Value <>...

    Programowanie Początkujący   18 Paź 2012 18:43 Odpowiedzi: 10    Wyświetleń: 5082
  • EXCEL 2007 - Generowanie formuly przez macro

    Da się... Właściwość "Formula" zwraca zawartość komórki w postaci String. Możesz z nim robić, co Ci się podoba (Left, Rigt, Mid, InStr). Dla zobrazowania: wpisz dowolne liczby w A1 i A2, dowolną formułę operującą na tych komórkach w B1, następnie uruchom[syntax=vb]Range("C1").Formula = Range("B1").Formula Range("D1").Formula...

    Software serwis   06 Lis 2012 20:51 Odpowiedzi: 2    Wyświetleń: 840
  • VBA EXCEL - Zmian koloru tła komórki jeśli wartość zaczyna się od ....

    Wprowadz inny warunek: [syntax=vb]... If InStr(1, kom.Value, "Z WYS") > 0 Then ...[/syntax]

    Software serwis   04 Sty 2013 13:59 Odpowiedzi: 5    Wyświetleń: 18111
  • EXCEL 2007 - wyszukanie słowa w tekście

    A1 = " ten chłopak jest Polakiem" A2 = " ten chłopak jest Niemcem" A3 = " Marek jest Polakiem" A4 = " Adam jest Niemcem" B1 = PozycjaSlowa("Polakiem:Niemcem"; A1) Chyba się nie zrozumieliśmy, skoro nie podałeś zdania: "Ten chłopak jest Polakiem, a tamten Niemcem". W takim przypadku moja...

    Software serwis   22 Lut 2013 10:48 Odpowiedzi: 15    Wyświetleń: 4914
  • Excel - Pobieranie nazw z tabeli słownika i ich zliczanie

    Udało mi się uporać z problemem dopiero po napisaniu makra. Jakby ktoś potrzebował to przesyłam załącznik ;) Function lista(ciag_wejsciowy) ark = ActiveSheet.Name Sheets("Słown... = 2 wynik = "" licznik = 0 Do While Worksheets("Słownik")....

    Software serwis   13 Maj 2013 10:16 Odpowiedzi: 3    Wyświetleń: 2076
  • Excel VBA - Generowanie wpisu z kolejnością

    Podepnij sobie następujący kod pod przycisk i przetestuj [syntax=vb]Dim lLstRw& Dim sLiczba$ lLstRw = Cells(Rows.Count, 7).End(xlUp).Row Select Case lLstRw Case Is = 1 Cells(lLstRw, 7).Offset(1, 0).Value = Cells(2, 3).Value & "_xyz_1" Case Is = 2 Cells(lLstRw, 7).Offset(1, 0).Value...

    Programowanie Początkujący   17 Lip 2013 10:29 Odpowiedzi: 4    Wyświetleń: 1008
  • excel - Jak dopisać do każdego wiersza na początku pewne wartości...

    [syntax=vb]Sub Id() For x = 1 To Cells(Rows.Count, "A").End(xlUp).Row t = Cells(x, 1) r = InStr(1, t, "|") Cells(x, 1) = x & "|""" & Left(t, r - 1) & """" & Mid(t, r) Next End Sub [/syntax] Domyślam się, że Kolega może nie wie co z tym kodem zrobić, prawda?

    Software serwis   11 Wrz 2013 11:43 Odpowiedzi: 17    Wyświetleń: 19335
  • [Ms Access/VBA] - Automatyczne wysyłanie maili - jak zamienić makro z excela?

    Oto przykład procedury wysyłającej mejla z poziomu Akcesa: [syntax=vb]Sub Wyslij(Mejl As String, HasloEmail As String, Tytul As String, Tekst As String, OdKogo As String, DoKogo As String, Zalacznik As String) Dim NazwaPliku, MiesiaC, Rok As String, SMTP As String SMTP = "mail.moj.pl" Dim zal()...

    Programowanie   24 Lis 2013 08:53 Odpowiedzi: 5    Wyświetleń: 9606
  • Excel - Pobieranie danych z plików txt do arkusza

    [syntax=vb]Sub Importuj() Dim Plik As String Plik = Dir("D:\Notowania\Omegancn\*.txt") Do While Plik <> "" Worksheets.Add().Name = Left(Plik, InStr(1, Plik, ".txt") - 1) With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;D:\Notowania\Omegancn\" & Plik,...

    Software serwis   12 Sty 2014 20:26 Odpowiedzi: 20    Wyświetleń: 2835
  • Excel makro wysyłające email do paru osób DW

    Pozwolę sobie ubrać ten kod w wygodną procedurę. [syntax=vb]Sub WyslijMejla(Uzytkownik As String, Haslo As String, SerwerSMTP As String, Tytul As String, Tresc As String, OdKogo As String, DoKogo As String, Zalacznik As String) Dim KonfiguracjaKonta As Object, Mejl As Object Set KonfiguracjaKonta...

    Software serwis   21 Sty 2014 18:47 Odpowiedzi: 4    Wyświetleń: 2106
  • Excel - Makro wyszukujące frazę z kolumny B i przypisujące do tekstu w kolumnieA

    Spróbuj np. takim makrem: [syntax=vb]Private Sub CommandButton1_Click() ost_a = Cells(Rows.Count, "A").End(xlUp).Row ost_b = Cells(Rows.Count, "B").End(xlUp).Row For b = 2 To ost_b For a = 2 To ost_a If InStr(Cells(a, "A").Value, Cells(b, "B").Value) > 0 Then Cells(b,...

    Programowanie Początkujący   13 Maj 2014 22:50 Odpowiedzi: 10    Wyświetleń: 1899
  • Excel VBA niewidzialne pliki .csv

    Jeżeli ten kod też nie zadziała, to szukaj problemu w zabezpieczeniach. [syntax=vb]Sub PobierzCSV() Sheets("Arkusz1").Select ... Katalog As String, Plik As String, Zeszyt As String, s As String, nw As Long Katalog = ActiveWorkbook.Path & "\" Application.Calculation = xlCalculationManual Application.EnableE...

    Software serwis   17 Lip 2014 14:15 Odpowiedzi: 2    Wyświetleń: 999
  • Excel- Filtrowanie z użyciem dat

    Nie ja nie chcę żadnego gotowca. Wcześniej nie mogłem wstawić tego co już mam bo pisałem temat na szybko. W dalszym ciągu nie wiem jak to rozwiązać. Mam w oknie UserForms jak widać dwa pola do wyboru rodzaju daty: 1. txtMiesiac - do wyboru miesiąca 2. txtRok - do wyboru roku Poniższym...

    Software serwis   30 Paź 2014 07:49 Odpowiedzi: 5    Wyświetleń: 1107
  • Excel - Porownanie kolumn - tylko unikatowe komorki

    [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next k = Target.Column If k = 4 Then Ew = Cells(Rows.Count, "E").End(xlUp).Row + 1 ow = Cells(Rows.Count, "C").End(xlUp).Row For x = 1 To ow If InStr(1, Cells(x, 3), Target) > 0 Then ...

    Software serwis   23 Lis 2014 13:17 Odpowiedzi: 4    Wyświetleń: 699
  • Macro VBA - Excel zmienia pli tylko do odczytu

    Jeżeli dobrze zrozumiałem, to takie makro: [syntax=vb]Sub PobiezCSV() Poczatek = "2015-01-01 10:00" koniec = "2015-01-01 11:00" Dim w As Worksheet Set w = Sheets("Wynik") Open "C:\ala.csv" For Input As #1 x = 1 Do While Not EOF(1) Line Input #1, l If InStr(1, l, Poczatek) > 0 Then ...

    Początkujący Naprawy   28 Sty 2015 06:28 Odpowiedzi: 23    Wyświetleń: 2226
  • VBA Excel 2007 - Pobieranie danych z sieci WEB logowanie

    Po długim boju i pomocy znajomego udało się. [syntax=vb]'Needs references to Microsoft HTML Object Library and Microsoft Internet Controls Option Explicit Sub Test() Const cURL = "" Const cUsername = "xxxxxx" 'REPLACE XXXX WITH YOUR USER NAME Const cPassword = "xxxxxx" ...

    Programowanie Początkujący   19 Lut 2015 17:36 Odpowiedzi: 11    Wyświetleń: 5712
  • VBA Excel - Kopiowanie sekwencji wierszy z pliku txt i wyszukiwanie z kolumn

    Super!!! Bardzo dziękuję, działa znakomicie, przez chwilę wydawało mi się, że będzie to skomplikowane. Gdyby kogoś w przyszłość interesował cały kod to proszę: [syntax=vb] Sub Parsuj() Open "c:\tmp\kod.txt" For Input As #1 Do While Not EOF(1) Line Input #1, a b = Left(a, 5) If...

    Programowanie Początkujący   18 Lut 2015 13:01 Odpowiedzi: 4    Wyświetleń: 1356
  • VBA, makro, excel - Parowanie komórek wg klucza

    [syntax=vb]Sub Porownaj() Dim s2 As Worksheet Set s2 = Sheets("Arkusz2") Sheets("Arkusz1").Sel... = Cells(Rows.Count, "A").End(xlUp).Row owy = s2.Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To owx For y = 1 To owy If InStr(1, Cells(x, 1), s2.Cells(y, 1)) > 0 Then ...

    Programowanie   23 Kwi 2015 08:48 Odpowiedzi: 4    Wyświetleń: 1041
  • Excel - Filtrowanie pliku po wielu słowach.

    Proszę. 'Exit For '<- tu można dodać wyjście z pętli klucza (w celu uniknięcia duplikatów) End If Else Exit For End If Next Else Exit For End If Next arkusz_filtra.Activate Acti... = 0 ActiveWindow.SplitRow = 1 ActiveWindow.FreezePanes = True Application.ScreenUpdating...

    Software serwis   24 Kwi 2015 10:27 Odpowiedzi: 2    Wyświetleń: 723
  • EXCEL - stworzenie makra lub formuły

    Mała poprawka: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 11 Then Dim ar() As String q = 0 a = Split(Target, " ") For aa = 0 To UBound(a) For x = 5 To 13 If Cells(x, 4) = a(aa)...

    Programowanie Początkujący   12 Cze 2015 14:22 Odpowiedzi: 4    Wyświetleń: 759
  • VBA Excel] - Usuwanie wierszy pod dwoma warunkami

    Coś takiego powinno zadziałać: [syntax=vbnet]Sub Makro1() Range("A2").Select While (ActiveCell.Offset(0, 6).Value <> "") If ((ActiveCell.Value = 5) Or _ (InStr(1, LCase(ActiveCell.Offset(0, 6).Value), "invoice", vbTextCompare) > 0)) Then ActiveCell.Offset(1,...

    Software serwis   18 Sie 2015 21:37 Odpowiedzi: 8    Wyświetleń: 1626
  • Excel - zsynchronizowane listy rozwijane

    Ile jeszcze będzie tych wariantów? Jeśli adresy list są różne, to najrozsądniej, jak myślę nadać im takie same nazwy i te nazwy wykorzystać do identyfikacji. Przykładowy kod: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wks As Worksheet, nazwa As String ...

    Software serwis   25 Wrz 2015 14:40 Odpowiedzi: 10    Wyświetleń: 855
  • jak wyodrębnić cyfry z tekstu excel

    Mysle, ze tylko nestandartowa funkcje(UDF) [syntax=vb]Function celarz(ByVal txt As String) As Integer Const dig = "1234567890" Dim i% For i = 1 To Len(txt) If InStr(dig, Mid(txt, i, 1)) > 0 Then Exit For Next celarz = Val(Mid(txt, i, 2)) End Function [/syntax]

    Programowanie Początkujący   19 Paź 2015 07:02 Odpowiedzi: 10    Wyświetleń: 1806
  • EXCEL- ListBox: kolumny i nagłówek

    Witam. Tym razem piszę bo mam problem z kolumnami w ListBox. Mam w LisBox ustawione 12 kolumn w których mają mi się wyśietlić dane. Poniższy kod miałby to zrobić. Problem w tym że kod wysypuje mi się przy 11 i 12 kolumnie. Wydaje mi się że kod jest ok ale tych dwóch kolumn nie chce mi wyświetlić danych....

    Software serwis   17 Paź 2015 10:47 Odpowiedzi: 1    Wyświetleń: 663
  • [Excel VBA] - Makro do kopiowania komórki przy określonym warunku

    Witam serdecznie. Potrzebuję stworzyć makro, które w przypadku gdy w kolumnie H będzie "0", wytnie z kolumny J wartość liczbową i wklei ją do kolumny O w tym samym wierszu. Próbowałem stworzyć takie makro, ale niestety bez rezultatu. [syntax=vbscript]Dim rng As Range Dim rngCell As Range Dim...

    Software serwis   16 Lis 2015 20:49 Odpowiedzi: 8    Wyświetleń: 1122
  • EXCEL [VBA] - export skoroszytu do .CSV rozdz. znakiem tabulacji + nazywanie pli

    [syntax=vb]Dim folder As String Application.DisplayAlerts = False folder = Left(ActiveWorkbook.FullName, InStr(ActiveWorkbook.FullName, ".") - 1) Sheets("LW").Copy ActiveWorkbook.Sa... Filename:= _ folder & Format(Date, " dd-mm-yyyy") & ".csv", FileFormat:=xlTextWindows ActiveWorkboo...

    Software serwis   08 Mar 2016 11:22 Odpowiedzi: 9    Wyświetleń: 2196
  • [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)...

    Programowanie   10 Lut 2016 00:56 Odpowiedzi: 9    Wyświetleń: 2538
  • Excel VBA - Kopiowanie kilku znaków z komórki

    Odejmij po prostu. Np tutaj [syntax=vbscript]Sub TmToStr2(ow As Long) With Sheets("Arkusz2") For i = 2 To ow zwrot = "LE" BH = "BH" startOD = 1 Dim x As Integer For x = 1 To 10 'zwroty i BH If InStr(startOD, .Cells(i, 7), zwrot, vbTextCompare) = x Then...

    Programowanie Początkujący   18 Lut 2016 09:40 Odpowiedzi: 9    Wyświetleń: 1203
  • Excel VBA Makro - Makro wyszukujące znak w komórce i kopiowanie zawartości wiers

    Bierzesz Tekst do zmiennej roboczej typu string. Wyszukujesz (InStr) w tekście znaków "||" (może ze spacjami?) i wycinasz (Left) tekst do kolumny C. Potem skracasz tekst (Right albo Mid) o ten wykorzystany kawałek i powtarzasz w pętki aż "zniknie". Pozostaje trochę kogiki tworzenia wierszy i to wszystko.

    Programowanie Początkujący   04 Mar 2016 12:16 Odpowiedzi: 4    Wyświetleń: 2181
  • Excel VBA Makro - Oczyszczanie komórki z niektórych danych

    nazwiska i mimiona z danego wiersza muszą być po sobie w jednej komórce oddzielone np; tak samo nrSAP - nie że wkleja je pod sobą Dodano po 1 oki już wiem jak zrobić , żeby w jednej komórce po średniku zapisywało, dla potomnych wklejam kod może komuś się przyda [syntax=vbscript]Sub SAPuj() Dim...

    Programowanie Początkujący   21 Kwi 2016 11:10 Odpowiedzi: 6    Wyświetleń: 942
  • VBA Excel - VBA - wyszukanie produktów w jadłospisie

    Witam Chciałbym pomóc żonce w jej ciężkiej pracy ale niestety jestem za słaby w tworzeniu własnego kodu VBA więc proszę Was o pomoc :) Jadłospis jest rozpisany na kilku arkuszach w excel , w pierwszym arkuszu jest lista produktów które powinny być wyszukiwane w tych jadłospisach i zaznaczane np. pogrubieniem...

    Programowanie Początkujący   16 Maj 2016 12:36 Odpowiedzi: 14    Wyświetleń: 1374
  • Excel format liczb dowyświetlenia

    Myslim, ze tylko makro w kodzie arkuszu[syntax=vb]Private Sub Worksheet_Change(ByVal Tgt As Range) If Tgt = "" Then Exit Sub p = InStr(Tgt, ",") l = Len(Tgt) + 1 If p Then l = p Tgt.NumberFormat = "0." & String(7 - l, "0") End Sub [/syntax]

    Software serwis   02 Wrz 2016 14:21 Odpowiedzi: 7    Wyświetleń: 924
  • Excel - Kod formatowania wielu TextBox-ów

    jaky ma byc wynik z tego: "12,3/4ftj56we,4" ? Nie wiem co jest w textbox Dodano po 10 Co na to?[syntax=vb]Function zmien_na_punkt$(src$) dig = "012345689" For i = 1 To Len(src) c = Mid(src, i, 1) If InStr(dig, c) Then w = w & c ElseIf Right(w, 1) <> "."...

    Software serwis   28 Gru 2016 17:39 Odpowiedzi: 16    Wyświetleń: 696
  • [EXCEL] - Kolor czcionki w zależności od daty

    A kto wie co bedzie zaznaczeno? Sprawa dotyczy daty, więc w ciągu trzeba szukać czegoś, co przypomina datę. Tu autor wie w jakim formacie ją zapisuje. W ostateczności 'Instr' roku z mała korektą powinno dać radę...

    Programowanie Początkujący   30 Sty 2017 09:48 Odpowiedzi: 24    Wyświetleń: 1815
  • VBA EXCEL - Kopiowanie arkuszy jeden po drugin

    Chciałbym uściślić. Mam w skoroszycie bazowym (nazwę go DD) kilka tabelek w której formuły są typu B7=B5-B6, C7=C5-C6 itd. Zrobiłem makro, które przenosi dane z pierwszego skoroszytu z pozycji B6 na pozycję B5 w następnym skoroszycie i kopiuje skoroszyt. Przy pierwszym kopiowaniu (JA1) jest ok, ale...

    Programowanie Początkujący   23 Mar 2017 00:08 Odpowiedzi: 3    Wyświetleń: 1845
  • Excel przenoszenie wartości kilku komórek z kilku kart gdy spełniony warunek

    Zakisił Ci się jakiś błąd w arkuszu "podział na kolory". Przynajmniej w tym załączonym pliku. Trzeba było zrobić kopię i to dopiero w Calc (!). Moja propozycja: -ComboBox, wypełniany przy WorkbookOpen z arkusza "Opcje" (możesz sobie dopisywać kolory) -dodatkowa gałąź w instrukcji If sprawdzająca...

    Obsługa oprogramowania   02 Paź 2017 10:14 Odpowiedzi: 4    Wyświetleń: 999
  • Eksport danych z pliku excel do pliku .txt

    Witam Może być makro [syntax=vbscript]Sub Zapisz() Application.ScreenUpdating = False plik = Left(ActiveWorkbook.FullName, InStr(ActiveWorkbook.FullName, ".")) & "txt" ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=plik, FileFormat:=xlCSVMSDOS ActiveWorkbook.Close False MsgBox...

    Obsługa oprogramowania   03 Sty 2018 13:50 Odpowiedzi: 4    Wyświetleń: 5298
  • EXCEL - Filtrowanie kolumny + wiersz poprzedni

    Linię: If Kom.Value Like (Nazwisko & "*") Then zastąp: If InStr(Kom.Value, Nazwisko) > 0 Then

    Obsługa oprogramowania   16 Maj 2018 07:59 Odpowiedzi: 8    Wyświetleń: 300
  • Excel - filtrowanie dat na podstawie konkretnego roku

    Witam. Mam taki kod jak poniżej, tym kodem przefiltruję wymagane daty które zgadzają się z miesiącem i rokiem: Alpex.cmMIESIAC & "." & Alpex.cmROK , i tu jest wszystko OK. Ale chcę zrobić jeszcze jedno filtrowanie, ale tylko na podstawie samego roku. Niestety mam takie zaćmienie umysłu że nie wiem...

    Obsługa oprogramowania   27 Lip 2018 16:10 Odpowiedzi: 3    Wyświetleń: 267
  • Excel - rozdzielenie ciągu znaków gwiazdkami (*)

    Może i da się to zrobić formułą, ale ja bym to zrobił takim makro: Const Acc = "abcdefghijklmnopqrstuvwxyzABCDEFGH... W tej linijce są zdefiniowane wszystkie znaki, które są dopuszczalne. Możesz sobie dopisać jakiekolwiek inne. Jeśli znaku nie ma na tej liście,...

    Obsługa oprogramowania   12 Wrz 2018 22:29 Odpowiedzi: 6    Wyświetleń: 582
  • [Excel,VBA] kopiowanie danych z aktywnej, otwartej strony IE

    "W tym przypadku to nie działa". Działa, działa, choć proste nie jest. :) Do "złapania" okna IE ja używam czegoś takiego i działa: [syntax=vbscript] Private Function GetIE(Addr As String) As Object Dim objShell As Object, objAllWindows As Object, IE As Object Set objShell = CreateObject("Shell.Application") ...

    Programowanie Początkujący   12 Sie 2019 08:42 Odpowiedzi: 20    Wyświetleń: 1995
  • VB.Net operacje na DataGridView - pobrane z pliku Excela

    Filtrowanie w datagridview jest toporne, spróbuj nieco inaczej poprzez iteracje [syntax=vbnet] For i =0 to Dgv.rows.count - 1 Dim wkom as string = Dgv.rows(i). Cells(0).value.tostring.tolower If instr(wkom, textbox1.Text.tolower,text)=0 then Dgv.rows(i). Visible=false Else Dgv.rows(i). Visible=true...

    Programowanie   02 Sie 2020 08:38 Odpowiedzi: 8    Wyświetleń: 654
  • Kopiowanie wszystkich wierszy, gdy wartość w kolumnie jest niepusta- Excel VBA

    Ja używam takiej funkcji. Jako parametr podajesz odpowiedni kawałek nazwy pliku. Po wywołaniu sprawdż czy nie jest puste i możesz używać: Workbooks(GetExcel(".xls")).Activate i dalej to już pewnie wiesz co. [syntax=vbscript] Private Function GetExcel(Na As String) As String Dim S As String, Wb As...

    Programowanie   19 Lip 2019 13:36 Odpowiedzi: 19    Wyświetleń: 1002
  • [VBA Excel] - Makro usuwanie wierszy

    [syntax=vbscript]Sub BIO() ow = Cells(Rows.Count, "K").End(xlUp).Row For x = ow To 1 Step -1 f = False k = Cells(x, "K") If Left(k, 4) = "bio " Or Right(k, 4) = " bio" Or InStr(1, k, " bio ") > 0 Or k = "bio" Then f = True If Not f Then Rows(x).EntireRow.Delete Next End Sub [/syntax]

    Obsługa oprogramowania   11 Lis 2019 12:33 Odpowiedzi: 2    Wyświetleń: 1260
  • VBA kopiowanie warunkowe wierszy Excel

    Witam Temat niestety oklepany - na swoje usprawiedliwienie powiem, że przeszukałam forum i usilnie staram się dopasować znalezione wskazówki i fragmenty makr do swoich potrzeb. W pewnym stopniu mi się udało, ale gdzieś jest błąd którego nie potrafię namierzyć. Zależy mi na tym, żeby wyszukiwana...

    Programowanie Początkujący   11 Lut 2020 16:51 Odpowiedzi: 8    Wyświetleń: 546
  • [VBA EXCEL] Konwersja czasu na liczbę i odwrotnie.

    Witam, Napisałem program, który zamienia czas (hhh:mm) na liczbę. W drugą stronę też działa. Rozwiązanie dla textboxów w formularzu. Mam pytanie jako początkujący. Co zmienilibyście w tym programie, aby był on bardziej czytelny i ewentualnie krótszy? Podejrzewam, że bardziej doświadczonym z zakresu...

    Programowanie Początkujący   16 Mar 2020 19:22 Odpowiedzi: 9    Wyświetleń: 699
  • excel PODSUMOWANIE DLA KILKU ARKUSZY

    Można to zrobić np. za pomocą VBA. Napisałem funkcję UDF, która tworzy listę (tablicę) nazw miejscowości odczytanych z zakresów wg podanego schematu. Wywołanie funkcji: [syntax=text]=List3D(schemat adresu)[/syntax] schemat adresu zawiera nazwę arkusza ze znakami zastępczymi w postaci akceptowanej...

    Programowanie Początkujący   18 Kwi 2020 07:47 Odpowiedzi: 16    Wyświetleń: 567
  • Excel - Pobieranie nazwy pliku bez rozszerzenia

    Witam. Mam mały problem z pobraniem nazwy plik z wykluczeniem rozszerzenia z kropką. Mam kod ja poniżej i działa oczywiście poprawnie ale pod warunkiem że w nazwie jest tylko ta jedna kropka z rozszerzeniem. Jak poprawić kod aby pobrał całą nazwę pliku z ewentualnymi wszystkimi kropkami jakie plik może...

    Obsługa oprogramowania   02 Maj 2020 07:10 Odpowiedzi: 2    Wyświetleń: 720
  • EXCEL - Część wspólna dwóch ciągów

    [syntax=vbscript]Function CzescWspolna(Pierwszy As String, Drugi As String, Dlugosc As Integer) As String For x = 1 To Len(Pierwszy) a = Mid(Pierwszy, x, Dlugosc) If Len(a) = Dlugosc And InStr(1, Drugi, a) > 0 Then CzescWspolna = a Exit For End If Next End Function [/syntax]

    Obsługa oprogramowania   19 Maj 2020 08:23 Odpowiedzi: 6    Wyświetleń: 429
  • EXCEL VBA wysyłanie maila (Prześlij dalej) na podstawie

    Poniżej kod, który działa i wyszukuje mi wiadomości, które w temacie mają wprowadzone przez użytkownika frazy. Dzięki licznikowi zwraca on tylko jednego maila, jeśli znajdzie już o owym temacie w skrzynce (a nie wszystkie, które znajdzie), aczkolwiek chciałbym, aby makro zwracało mi ostatni wysłany,...

    Programowanie Początkujący   14 Lip 2020 18:37 Odpowiedzi: 5    Wyświetleń: 513
  • Makro excel tylko wybrane znaki w komórce

    Można też makro, jeśli wygodniej. [syntax=vbnet]Const D = "ZWRP" Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range(Range("A1"), Range("C5")), Target) Is Nothing Then Exit Sub If Target.Value = "" Then Exit Sub Dim x As Integer For x = 1 To Len(Target.Value) If InStr(D,...

    Obsługa oprogramowania   19 Sie 2020 18:55 Odpowiedzi: 9    Wyświetleń: 645
  • Excel - Błędy w makrach przy zsynchronizowanym pliku z OneDrive

    Po wymianie informacji pw i testach (at)romanbolek wrzucę kod, który powinien pomóc osobom korzystających z OneDrive (sam go nie posiadam). Niech każdy wybierze odpowiednią literę dysku (od kolegi (at)romanbolek dostałem pw że nie działa A z inna ok, może (at)JaroFon przetestuje i da info). Wynikiem...

    Obsługa oprogramowania   25 Wrz 2020 17:48 Odpowiedzi: 20    Wyświetleń: 1161
  • Excel - Wyciągnięcie daty z tekstu wpisanego w komórkę

    Ogólnie to konieczne by było makro z wyrażeniami regularnymi Nie koniecznie, przy tak prostym układzie, może być proste makro. [syntax=vbscript]Sub elka() For x = 3 To Cells(Rows.Count, 5).End(xlUp).Row Cells(x, 6) = Mid(Cells(x, 5), InStr(Cells(x, 5), ".") - 2, 10) Next End Sub[/syntax]

    Obsługa oprogramowania   03 Lis 2020 18:20 Odpowiedzi: 22    Wyświetleń: 822
  • [VBA] EXCEL - Makro zapisujące plik - kopiowanie makr zapisanych w module

    Dlaczego takie udziwnianie? Jest przecież metoda SaveCopyAs. Schemat mógłby być taki: [syntax=vbscript]Private Sub Workbook_Open() Dim plik As String plik = Left(Me.Name, InStr(Me.Name, Year(Date)) - 1) Me.SaveCopyAs plik & Format(Now, "yyyy-MM-dd_hh_mm_ss") & ".xlsm" End Sub[/syntax]Folder...

    Obsługa oprogramowania   19 Lut 2021 08:58 Odpowiedzi: 3    Wyświetleń: 1230
  • Excel VBA Monitorowanie terminów - dat posiadanych zewoleń

    W sposobie formatowania nic nie zmieniałem. Dodałem funkcję UDF Daty, która zamienia zapis w kolumnie H na tablicę dat, która jest potem używana do definicji reguł formatowania warunkowego. Akceptowalne zapisy w kolumnie H: Pojedyncza data w formacie: d.m.rrrr (z dwiema kropkami) Ciągły przedział...

    Obsługa oprogramowania   24 Maj 2021 18:38 Odpowiedzi: 26    Wyświetleń: 990
  • Macro. Kopiowanie wbranych danych z plików do zbiorczego Excela.

    Niestety, nie zobaczę Twojego pliku - pozabezpieczany służbowy komp. Trochę nie rozumiem. Jeżeli PMI to robimy dokładnie to samo co dla SO? Czy zatem trzeba to rozdzielać? Jeżeli już trzeba to czy zamiast różnej liczby znaków możemy brać pod uwagę zawsze 2? Będzie łatwiej wydzielić. Zastosowałbym taki...

    Programowanie Początkujący   28 Mar 2022 09:50 Odpowiedzi: 3    Wyświetleń: 210
  • Excel - Makro, kopiowanie do CSV i usuwanie danych

    [syntax=vbscript]Sub CSV() ow = Cells(Rows.Count, "A").End(xlUp).Row ok = Cells(1, Columns.Count).End(xlToLeft).Column Ope... ThisWorkbook.Path & "\PlikCSV.csv" For Output As #1 For x = 2 To ow For y = 1 To ok a = Cells(x, y) If InStr(1, a, ";") > 0 Then a = Chr(34) & a & Chr(34) ...

    Obsługa oprogramowania   16 Lip 2022 07:12 Odpowiedzi: 9    Wyświetleń: 252
  • Excel / Access VBA - nazwa aktualnej sieci

    Poleceniem Shell możesz uruchomić plik .bat z taką treścią: netsh wlan show network > C:\PlikiExcel\Siec.txt A potem wyciąć nazwę sieci z pliku Siec.txt. [syntax=vbscript]Sub Siec() Shell ("C:\PlikiExcel\a.bat") 'Plik a.bat: netsh wlan show network > C:\PlikiExcel\Siec.txt Set FSO = CreateObject("Scripting.FileSystemObject...

    Programowanie   04 Wrz 2022 18:04 Odpowiedzi: 5    Wyświetleń: 180
  • VBA jako skaner w wordzie

    Makro do przetestowania. Uwagi: 1. Najlepiej wrzucić kod do modułu "normal.dotm". Najprościej: otworzyć Worda z menu 'Start', nagrać dowolne makro wybierając miejsce przechowywanie "szablon globalny". Następnie zastąpić je poniższym, włączyć referencje i zamknąć Worda z zapisem szablonu. Makro...

    Programowanie Początkujący   19 Gru 2015 09:57 Odpowiedzi: 20    Wyświetleń: 2073
  • Jak zrobić prostą, samodzielną aplikację pod Windows

    Witam. Potrzebuję zrobić aplikację/makro, która będzie działała pod Windowsem. Aplikacja ma posiadać jeden przycisk (albo wcale go nie mieć). Po jej wywołaniu ma ona otworzyć plik tekstowy (log innej aplikacji) i przeszukać go od końca w poszukiwaniu określonego ciągu znaków. W zależności, na jaki...

    Programowanie Początkujący   13 Mar 2022 12:14 Odpowiedzi: 14    Wyświetleń: 384
  • VBA/excel - Zmiana wypełnienia obiektu poprzez vba

    Utknąłem, znalazłem w internecie fajną funkcję do tworzenia kodów qR. Zmodyfikowałem ją na swoje potrzeby, jednak chciałbym zmienić rozmiar kodu który ładuje się do obiektu excel i nie potrafię. Na excel 2010 nagrałem makro i skopiowałem kod do funkcji, ale w excel 2007 kod nie działa, nie ma też opcji...

    Programowanie Początkujący   12 Gru 2014 10:24 Odpowiedzi: 2    Wyświetleń: 987
  • formularz vba - zapis,edycja - Zapis i edycja wprowadzonych danych do formularza

    Skoro tylko jeden rekord, to wystarczy, w UserForm_Initialize przywrócić wartości poszczególnych kontrolek. Tak naprawdę nie potrzebujesz dwóch przycisków - wystarczy jeden, który załaduje dane z istniejącego formularza (ten z UserForm1.Show). Cały kod zapisywania zamiast w module Formularze_VBA,...

    Programowanie Początkujący   07 Kwi 2013 13:06 Odpowiedzi: 6    Wyświetleń: 3750
  • VBA - makro - zczytywanie danych z pliku txt po kolumnach

    Witam Was ponownie. Tym razem chciałam zapytać w jaki sposób napisać makro w VBA, które wczytuje mi z pliku txt do excela dane w takiej formie: nagłówek1 nagłówek 23 58 45 47 56 62 itd. prędzej miałam napisane makro,...

    Programowanie   25 Wrz 2014 02:13 Odpowiedzi: 1    Wyświetleń: 1449
  • [VBA] [PowerShell] Lista plików + ich zawartość

    [syntax=vbscript]Public nw As Long Sub Pesele() nw = Cells(Rows.Count, "B").End(xlUp).Row + 1 Folder = "C:\Test\" Set FSO = CreateObject("Scripting.FileSystemObject... FSO.GetFolder(Folder) End Sub Sub CzytajFoldery(Folder) For Each Podfolder In Folder.SubFolders CzytajFoldery...

    Programowanie   22 Lut 2021 15:04 Odpowiedzi: 5    Wyświetleń: 258
  • 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...

    Programowanie Początkujący   23 Mar 2009 20:15 Odpowiedzi: 13    Wyświetleń: 13039
  • Potrzebuję zrobić makro kopiujące wiersz i wklejające go do innego pliku

    Drogi adamasie, przede wszystkim bardzo dziękuję za odpowiedź... niestety moja wiedza o makrach w excelu kończy się na tym, że wiem o ich istnieniu. Dlatego mimo dużych chęci (przeszukałam kilka miejsc w poszukiwaniu odpowiedzi na pytanie czym jest tajemnicze InStr i już wiem, że jest czymś w rodzaju...

    Programowanie Początkujący   23 Maj 2012 17:44 Odpowiedzi: 7    Wyświetleń: 5079
  • VBA - Zaznaczenie wszystkich arkuszy i zapisanie każdego z osobna do pliku

    Robiłem kiedyś podobne makro, ale zapisuje ono zakres złożony z iluśtam kolumn i 40 wierszy do kolejnych plików ich nazwa jest nazwą oryginału plus numer i jest logowana. [syntax=vbs]Sub import_export() ' ' import_export Macro ' This macro reads the selected excel file and splits it to multiply...

    Programowanie Początkujący   27 Wrz 2012 09:32 Odpowiedzi: 3    Wyświetleń: 3345
  • [VBA] Podział danych w arkuszu według dwóch kolumn i eksport do osobnych plików

    Witam Mam skoroszyt z pięcioma arkuszami, w których opracowuję dane. (w załączeniu). W ostatnim arkuszu "dane_end" mam wynik opracowania. Arkusz ten za pomocą makra eksportuję do nowego pliku. Jest "ok" jeżeli dane dotyczą jednego dnia i jednej jednostki. Opracowane dane są zawarte w kolumnach od...

    Programowanie Początkujący   14 Sie 2019 07:53 Odpowiedzi: 12    Wyświetleń: 660
  • Proste makro do kopiowania między arkuszami

    W której linii? P.S. Na końcu należy włączyć odświeżanie, przydałby się filtr dla plików Excela, na czas działania makra wyłączyłbym zdarzenia i alarmy (pliki mogą zawierać makra, itp)...[syntax=vb]Sub Merge() Dim bookList As Workbook Dim MergeObj As Object, dirObj As Object, filesObj As Object,...

    Programowanie   25 Lis 2013 13:07 Odpowiedzi: 8    Wyświetleń: 2835
  • [VBS][MAKRA] pobieranie danych z pliku i tworzenie wykresu

    Można to osiągnąć np. taką kombinacją komend (do wywołania okna dialogowego potrzebujesz załączyć referencję do Microsoft Office 11 Object Library - w edytorze VBA tools->refrences) 'funkcja pobiera katalog z pełnej ścieżki Function GetDirName(ScanString As String) As String Dim intPos...

    Programowanie Początkujący   17 Sty 2010 21:39 Odpowiedzi: 7    Wyświetleń: 7282
  • Makro identyfikujące nazwę zalogowanego użytkownika.

    Witam, szukam pomocy w edycji makro, które identyfikuje nazwę zalogowanego użytkownika tak aby podczas zapisywania dokonanych w excelu zmian wpisywało w komórce "i8" nazwę zalogowanego użytkownika. Znalazłem coś takiego jednak po wklejeniu działa dopiero po uruchomieniu makro, a nie automatycznie. Ze...

    Software serwis   20 Mar 2011 18:59 Odpowiedzi: 4    Wyświetleń: 4799
  • Makro VBA do pobierania wybranych danych z pliku mt940

    A niech no Kolega rzuci okiem na [url=]ten temat, ostatni lub przedostatni post. Jest tam gotowe rozwiązanie jak czytać z pliku txt do excela. Trzeba jedynie trochę pobawić się z tekstem całej linii przechowywanym w zmiennej MyNumber: takie funkcje jak Left(tekst, ile_znaków), Mid(tekst, pozycja_startu,...

    Programowanie   28 Lip 2011 11:21 Odpowiedzi: 3    Wyświetleń: 6829
  • Excell - Kopiowanie wierszy z jednego pliku do drugiego spelniajac warunki

    Piszę poniekąd w imieniu Autora i swoim. Okazało się, że na Windows 7 i Office 2007 kod: [syntax=vb] Sub ImportujRaporty() Dim pl As String Application.ScreenUpdating = False Application.DisplayAlerts = False iw = ActiveWorkbook.Name Dim Rap As Workbook, Out As Workbook pl = "C:\Wynik.xlsx" inf...

    Programowanie Początkujący   05 Maj 2015 16:44 Odpowiedzi: 19    Wyświetleń: 1221
  • Wyszukanie fragmentu tekstu w komórce - VBA

    Na szybko napisałem coś takiego. Przetestuj: [syntax=vb]Sub kody() Dim lLstRw& Dim rngTmp As Excel.Range Dim tblKody() 'tablica z kodami do wyszukania tblKody = Array(6, 7, 8, 9, 10) lLstRw = Cells(Rows.Count, 1).End(xlUp).Row Set rngTmp = Range(Cells(1, 1), Cells(lLstRw, 1)) For Each...

    Programowanie Początkujący   04 Sty 2017 15:42 Odpowiedzi: 10    Wyświetleń: 3387
  • VBA odczyt danych z XMLa do stringa lub danej liczbowej

    Jaka tam składnia jest, jeśli chodzi o opcje dostępu do plików ? Czy jest, np.: Line Input #filenumber, varname ? Input #filenumber, varlist ? LOF(filenumber), EOF(filenumber) ? oraz do dzielenia tekstu na części ? Split(expression, delimiter, limit, compare) ? Mid(string, start, length)...

    Programowanie Początkujący   12 Lut 2018 21:53 Odpowiedzi: 9    Wyświetleń: 936
  • Exel wyszukanie podobnych komórek

    Dorzućmy więc funkcję wyszukiwania łańcucha (string) w innym łańcuchu. Taka funkcja pozwoli znaleźć pozycje separatorów i dopiero na podstawie ich położenia wycinać fragment tekstu. Jakie to funkcje? W VBA InStr, w Excelu dawno nie używałem, chyba SZUKAJ.TEKST.

    Programowanie Początkujący   07 Cze 2018 14:30 Odpowiedzi: 4    Wyświetleń: 393
  • MS Access - automatyczna inkrementacja rekordów

    Powiedz im, że tak się nie robi. To nie Excel. Przykładowy kod przycisku 'Dodaj fakturę'. [syntax=vbscript]Private Sub DodajFakture_Click() inf = MsgBox("Dodać fakturę?", vbYesNo, "UWAGA") If inf = vbYes Then If DCount("[IdFaktury]", "Faktury") = 0 Then nr = "1/" & year(Date) ...

    Programowanie Początkujący   29 Wrz 2021 08:56 Odpowiedzi: 40    Wyświetleń: 666