zamykanie msgbox

[Access] Błędne odczytywanie wartości w Listbox Multiselect

Przede wszystkim, to wyjmij poza pętle otwieranie i zamykanie RS. Dla testu dodaj MsgBox z wartościami wybranymi z pola listy.

Excel - Jak uruchomić plik z UserForms jako Administrator?

Tak na szybko przerobione z Twojej procedury Private Sub cmdLogowanie_Click() 'nie Enter If Me.txtPassword.Value = "test" Then 'tu robisz co potrzeba 'i zamykasz formę Unload Me Else MsgBox "Błędne haslo! Wpisz poprawne hasło", vbExclamation, "Logowanie" 'zeruję wartość i ustawiam kursor txtPassword.Value = ""...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Excel - Kod do wyświetlania komunikatu o braku plików i zamykania otwartych plików

Trzeba wrzucić to w pętlę. Jak znajdzie robi warunek PRAWDA Jak nie znajdzie to w warunku FAŁSZ wyświetla Msgbox i kończy działanie

Visual Basic: Jak obsłużyć brak portu COM bez zamykania programu?

Private Sub Form_Load() On Error GoTo Blad 'kod obslugi portu Exit Sub Blad: MsgBox "Problem z portem" End Sub

Ukrycie komunikatu po uruchomieniu polecenia shutdown

Mam taki skrypt napisany w notatniku: (at)echo off start nazwa.vbs. shutdown -s -t 30 pause >>null Plik nazwa.vbs.: msgbox"zamykanie komputera", vbCritical , "informacja" Takie coś wyświetla komunikat o tym, że komputer zostanie zamknięty za 30 sekund, lecz nie chcę by wyświetlał się komunikat ten niebieski od Windowsa który informuje że komputer zostanie...

Makro do tworzenia dynamicznego makra z podmianą funkcji (kopiuj-drukuj-zamknij) w pętli

DZIĘKI . Sprawdzę w wolnym czasie i dam znać. Dodano po 5 DZIĘKUJE ZA POMOC .Problem rozwiązałem przez użycie MsgBox i przekierowania za jednym podejściem przez Call do drugiego makra. Jest ok zamykam problem.

Visual BasiC for Access - import/kopiowanie określonych plików xml

U mnie działa tak. Timer ustawiam przy otwieraniu formularza: [syntax=vb]Private Sub Form_Open(Cancel As Integer) Form.TimerInterval = 10000 End Sub Private Sub Form_Timer() MsgBox "10 sekund poszło jak z bicza strzelił, zamykam." DoCmd.Close acForm, "Formularz1" End Sub [/syntax]

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

Jak wyłączyć Msgbox w Excel VBA?

Może źle to nazywam - ale nawet jak nie rejestrujesz makra, tylko po prostu zamykasz plik, to zostaniesz odpytany o jego zapis. Tutaj mówię o tym samym. Zresztą nieważne, fragment kodu, który wkleiłeś rozwiązał mój problem - wielkie dzięki! :)

VBA - Jak użyć zmiennej jako nazwy skoroszytu w Excelu?

Brakuje wyjścia "z etykiety" [syntax=vbscript]koniec_1: MsgBox ("Witaj! " & pracownik) ark = pracownik Worksheets(ark).Active unload me 'zamykamy uForm[/syntax] Ale o wiele czytelniej byłoby z instrukcją warunkową (o pewnym anachronizmie GoTo nie wspomnę) [syntax=vbscript]Dim pracownik As String, ark As String start: pracownik = InputBox("Imię i...

VBA Excel: Automatyczne kopiowanie i zapis danych przy zamykaniu pliku

Teraz jednak chciałbym, aby od czasu do czasu była możliwość zapisania tych dwóch plików jednocześnie Dziwi mnie Twój kod :D w którym najpierw zamykasz (bez pytania) aktywny skoroszyt, a potem chcesz go zachować :?: :cry: Ale w kwestii wyboru sposobu zapisywania - to można wykorzystać kod typu: [syntax=vbscript] Select Case MsgBox("Czy zapisać oba...

VBA - Błąd w kodzie przy automatycznym zamykaniu Excela

A spróbuj tak, co się będzie działo ? (Może nie przywracasz pierwotnego działania wszystkim, zmienionym uprzednio, klawiszom ?) [syntax=vba]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim nrPlikuWyj1 As Integer: nrPlikuWyj1 = FreeFile Dim op1 As String: op1 = ThisWorkbook.Name Dim op2 As String: op2 = Application.UserName & "/" & Environ("Username")...

Kopiowanie danych z jednego do drugiego arkusza w te same miejsca

Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać Zakładając, że rozpoczynasz od makra (makro w module), spróbuj tak: 1. Usuń zamykanie pliku i czyszczenie zmiennej 'wb' 2. Deklarację zmiennej 'wb' przenieś do nagłówka modułu 3. Zamknij przypisanie oraz 'FileDialog' w instrukcji warunkowej...

Excel- Okno UserForm, wyświetlanie i sprawdzanie formatów.

Jak wyżej. W tym przypadku należy oprogramować zdarzenie ramki. Poniżej przykład dla Frame_Exit. Jednym z minusów jest to, że ramka "odezwie" się także przy zamykaniu formularza. Dlatego dodatkowy warunek i czyszczenie zawartości. Jeśli ramka służy tylko celom estetycznym, prościej będzie zamiast niej wstawić pusty Label z obramowaniem... [syntax=vb]Private...

[EXCEL, VB] Jak przerobić makro z Excel 2003 na Excel 2007 bez Application.FileSearch?

Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...

jak dodać dane do konkretnego arkusza używając inputboxa w user form

1. Klawisze "blokowane" są w wyniku działania kodu procedury: cmbGra3 ' nie ma zogniskowania (focus), to w/w procedura nie działa, jeśli ma to ' Cancel = True ' blokuje możliwość opuszczenia ' Combobox '. 2. W procedurze zdarzeniowej ' Private Sub cmbGra3_Change ', kod: Private Sub cmbGra3_Change ' - gdy na pytanie: "Czy chcesz dodac nowa Gre" odpowiadasz...

[VBA] Jak ustawić warunek wysyłki plików do odpowiednich odbiorców w Outlooku?

:arrow: marcindargiewicz Zerknij na datę założenia tematu ;) ' i tutaj mam problem z warunkiem ' adresat = adresat 'adresat wiadomości pobierany z kolumny E w zależności od nazwy pliku przyporządkowanej w kolumnie D If Cells(j, 4) = ThisEntry Then    adres = Cells(j, 4) MsgBox ThisEntry + " " + Cells(j, 4) I tu jest (był) pies pogrzebany... Z oczywistych...

Jak dodać wiadomość przy konkretnym warunku VBA Excel

Czy jest możliwość jakiejś aktualizacji przed przełączeniem do userform Ps3Kupno bo po dodaniu nowej pozycji za każdym razem muszę zamykać user form żeby zaczęło działac? [syntax=vbscript]Private Sub cmbSubmit2_Click() If TextBox1 = "" Then Call MsgBox("WPROWADZ DANE") Else Dim sheet As Worksheet Set sheet = ThisWorkbook.Sheets("List") nr = sheet.Cells(Rows.count,...

VBA: Jak zapisać dane w kolejnych kolumnach, gdy B3-B52 są zajęte?

Nie poddałem się i w końcu zajarzyłem. [syntax=vb]Private Sub CommandButton1_Click() Dim wiersz As Long If Me.OptionButton1 Or Me.OptionButton2 Then wiersz = Val(Me.Label1) kolumn = Range("h" & wiersz) If Me.OptionButton1.Value Then ocena = 1 Else ocena = 0 Sheets("ARK_1").Cells(wiersz, kolumn) = ocena Sheets("ARK_1").Cells(wiersz, kolumn) = 0 - Me.OptionButton1...

VBA Excel - Kopiowanie danych z innych plików do pliku zbiorczego-poprawa kodu

Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...

VBA Excel - Kopiowanie danych oraz przypisanie do nich wartości.

Cześć, mam pewien problem odnośnie rozwiązania przypisania danej wartości w każdym wierszu gdzie następuje kopiowanie danych z jednego arkusza do drugiego. [syntax=vbscript] Private Sub CommandButton1_Click() CutCopyMode = False Dim strPlik As String Dim i, b, z As Integer Dim data As String Application.ScreenUpdating = False ' Kopiowanie danych do...

EXCEL VBA - Przypisanie MsgBox w BeforeSave do wielu skoroszytów

Ale mnie chodzi o Makro wstawiające do bieżącego Skoroszytu (Zeszytu) Makro we we właściwości: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) No i w czym problem? Ja podobnie jak adamas_nt nie rozumiem problemu... plik1.xls ok plik2.xls ok plik3.xls ok

Excel Spr. użytkownika, ograniczenie czasowe, włączenie makr

Witam. Mam pewien problem z arkuszem, dokładnie chciałem sobie zrobić coś takiego że jest sprawdzane kilka warunków by móc używać danego pliku excela. Z VB jestem niestety zielony, ale dzięki informacjom znalezionym coś tam sobie próbuje skleić. Mianowicie mam już coś takiego: ThisWorkbook: Kod: Option Explicit 'własna obsługa zapisu przy zamykaniu...

VBA Excel - Zapisywanie arkusza ze sparawdzeniem podczas zamykania skoroszytu

[syntax=vbscript] Private Sub CommandButton5_Click() On Error Resume Next 'po błędzie kontynuuje dalej Dim DatExample As Date DatExample = Date Dim x As String Dim s As String Dim y As String Application.ScreenUpdating = False Dim answer As Integer answer = MsgBox("Wybrałeś DPF/Drukuj,Czy chcesz kontynuować?", vbYesNo + vbQuestion, "UWAGA!!!DPF/DRUKUJ....")...

[VBA] Jak odczytać dane z portu RS232 w VB 2005 i wyświetlić w TextBox?

Witam wszystkich. Zaczynam przygodę z VB 2005. Postanowiłem, że napiszę program który odczytuje wartość napięcia z woltomierza, który ma wyjście na port RS(232). Problem mam następujący, że nie potrafię odczytać bufora i wrzucić dane do np.textbox. Według dokumentacji miernika, ramka zawiera 16 znaków hex, które wyświetlają mi się w oknie MessageBox...

VBA - Excel 2007 Automatyczne czyszczenie zakresu komórek wg konkretnej daty.

Dziękuje Panowie, zatem tak: nie wiem co źle robie, ale Worksheet_Calculate wywołuje okienko, ale się wiesza i na wielokrotne potwierdzanie nie reaguje. Teraz mam taki kod: Private Sub Worksheet_Calculate() If Worksheets("Formularz").Range("B1") = "1" And Worksheets("Formularz").Range("H12") <= "0" Then inf = MsgBox("Wpisujesz nowy miesiąc?", vbYesNo,...

VBA Excel - Jak uniknąć nadpisywania danych przy wgrywaniu makrem?

Witam, mam makro do wgrywania danych. Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu . Proszę to poprawić. [syntax=vb][/syntax]

Jak w VBA skopiować komórki między plikami Excel z walidacją numeru?

1. Kopiowanie jest możliwe tylko przy otwartych plikach. Możesz otwierać je i zamykać w kodzie Np. Workbooks.Open Filename:=ThisWorkbook.Path & "\Zlecenia wystawione TE 2009.xls" 'jezeli w tej samej lokalizacji 'tutaj kopiowanie i wklejanie Workbooks("Zlecenia wystawione TE 2009.xls").Close (savechanges = False)'zamykam...

VBA: Jak zatrzymać licznik w Excelu po zapisaniu nowego pliku?

Najlepiej byłoby jednak usuwać kod przed zapisaniem kopii. I dla pewności (gdybyś jednak zapomniał) postawić warunek wykonywania procedury w BOOK1.xls: Private Sub Workbook_Open() If ActiveWorkbook.Name = "BOOK1.xls" Then Dim LiczbaOdwiedzin 'Twoja procedura End If End Sub Dopisanie jeszcze trzech linijek: If ActiveWorkbook.Name <>...

Excel - wymuszenie zapisania nowego pliku (blokada funkcji "zapisz")

Witam serdecznie. Mam kłopot z napisaniem makra VBA, które ma "zmusić" użytkownika do zapisania zmian w arkuszu tylko przez opcję "zapisz jako" (opcja "zapisz" musi być wyłączona). Chodzi o to, aby skoroszyt źródłowy nie został przypadkiem nadpisany - co mogłoby zepsuć jego funkcjonalność. Chodzi o to, żeby użytkownik otrzymał komunikat, że nie można...

Access - podformularz zewnętrzny i aktywowanie obiektów

Witam ponownie :) Dzięki Waszym radom udało mi się już ukończyć program. Wszystko działa jak należy, formularze są ze sobą powiązane, aplikacja jest dynamiczna. Postanowiłem dodać do niej jednak kilka drobiazgów i tu znowu potrzebuję Waszych wskazówek. 1. Kolejna sprawa: chciałbym, by przy otwieraniu formularza "Data" (dotyczy chyba powyzszego poleceniu)...

VB2010 - Odczyt danych z portu szeregowego za pomocą mscomm

Jeśli umiesz otwierać port i zamykać to już dobrze. Dodaj na formę kontrolkę combobox - nie wiem który będzie miała numer - zmienisz w kodzie jeśli już masz taką kontrolkę. Jeśli bedzie to pierwsza kontrolka, to jej numer będzie ComboBox1. W zdarzeniu Load formy (Private Sub Form1_Load......) umieść kod: [syntax=vb] For numer_portu As Integer = 0 To...

VBA- Excel. MsgBox-Uzupełnij dane w komórce F7-I7 jeżeli E7 zawiera dany tekst.

zawartość komórki E7 i jeżeli komórka zawiera tekst np. "DOSTARCZONO", to jako wymóg zapisu danych, jest uzupełnienie komórek F7, G7, H7, I7 w komórce E7 jest inny tekst niż wymagany, komórki F7, G7, H7, I7 są zablokowane do edycji, ale zapis danych jest możliwy Sposoby zapisu ".xls'a": 1. Menu główne: przynajmniej 4 opcje zapisu "bezpośredniego" -...

VBA Excel - konwertowanie z pliku CSV na polskie znaki

Cześć, mam napisane makro do wgrywanie danych z pliku typu .csv. Wszystko mi się przegrywa tak jak chce (jeżeli rozchodzi się o miejsca) Jednak zauważyłem jeden problem - polskie znaki znikają, a format godziny np. 00:10 zamienia mi się na dane np. 0.3456. Czy ktoś może wie czemu tak się dzieje i jak to rozwiązać?? [syntax=vb]Sub Przycisk1_Kliknięcie()...

Excel - odkrywanie kolumn tylko przez wybranych użytkowników

Witam ponownie. Jak to zwykle bywa, plany sobie a życie sobie. Narobiłem się jak dziki osioł a pod koniec, gdy doszło do haseł, dowiedziałem się że oprócz naszej (nocnej zmiany) ten skoroszyt jest edytowany jeszcze przez rzeszę ludzi z dniówki. A w związku z tym zakładanie haseł na poszczególne osoby mija się z celem. Jako że dla nas najważniejsze jest...

Jak automatycznie zamknąć okienko informacyjne w programie po wpisaniu tekstu?

Zrezygnuj w takim razie z MsgBox i przygotuj sobie stosowany formularz(yk). W Initalize uruchom makro z opóźnieniem (Application.Ontime), w którym będzie jedna linijka zamykająca formularz(yk) + On Error Resume Next, gdyby zamknięcie nastąpiło przed czasem...

VBA: Jak wydrukować i zamknąć otwarty plik PDF?

Sprawdziłem moim ulubionym Foxit Readerem i [syntax=vbscript]q = Shell("C:\Program Files (x86)\Foxit Software\Foxit Reader\Foxit reader.exe /p " & FolderPath & Filename, vbMinimizedNoFocus)[/syntax] drukuje w tle. Żadnych okienek. Nie trzeba też zamykać procesu, bo sam się zamyka. [syntax=vbscript]Sub Zlicz() Dim FolderPath As String, Filename...

Kopiowanie wszystkich wierszy, gdy wartość w kolumnie jest niepusta- Excel VBA

To pewnie będzie trzeba zmienić podejście. Masz dane z ostatniego miesiąca (ile wierszy?) i potrafisz go przekonwertować do wymaganej postaci, masz z poprzednich miesięcy (znowu ile?) i to wszystko potem musisz złączyć (czy tu nie wejdziemy w ograniczenie Excela?) i przetwarzać? Dobrze to rozumiem? Jeżeli potrafisz przekonwertować plik w rozsądnym...

Excel, txt - Import do arkusza z pliku txt tylko wybranych danych.

Przy czym plik txt jest koszmarnie sformatowany Dlaczego zaraz koszmarnie?? Całkiem przyzwoicie - dane powtarzają się w przewidywalnych grupach. Wystarczy podzielić na tablicę wg spacji i w zależności od długości tablicy skopiować dane w odpowiednią komórkę: [syntax=vb]Private Sub CommandButton1_Click() Dim linia As String Dim tabl() As String Application.ScreenUpdating...

VBA excel Pojawiający się i znikający CommandButton

Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...

VBS - skrypt do przesyłania plików .xml na serwer FTP i archiwizacja

msgbox "bark " :D Dodano po 5 dalej wyskakuje mi błąd który wysłałem wcześniej w załączniku :( http://obrazki.elektroda.pl/2901563100_1... Dodano po 19 Witam. Nie wiem dlaczego ale nie działało mi to za dobrze. Doszedłem do wniosku, że zmieniam taktykę i biorę się za powershella. wrzucam kod, może komuś się przyda. Tematu nie zamykam...

VBA problem z podwójna pętlą "if them else"

Znalazłem rozwiązanie. Nie wierze ze było takie proste. zamykam temat. [syntax=VBA]Private Sub Anuluj_click() Unload Me Dodaj1.Hide Menu.Show End Sub Private Sub UserForm_Initialize() ComboBox2.AddItem "Nie" ComboBox2.AddItem "Tak" ComboBox1.RowSource = "A2:A13" End Sub Private Sub ok_Click() If ComboBox1 = "wybierz" Or TextBox1 = "" Or TextBox2 = ""...

Excel VBA makro - Scalanie plików z folderu, formatowanie i okienka dialogowe

JRV, dzięki za dobre chęci. Tylko, że taki kod do wpisywania zakresu kopiowania danych, powoduje, że trzeba wpisywać zakres po kolei dla wszystkich plików, a ja chciałem aby można było wpisać jeden raz dla wszystkich plików. Na chwilę obecną mam już wszystko zrobione, wszystko już działa jak należy, łącznie z licznikiem scalonych plików :D . W razie...

Makro VBA zamyka plik Rejestr po wykonaniu operacji - dlaczego?

Witam wszystkich, mam drobny problem, mam pewne makro które ma za zadanie zapisac istniejący plik, przejść do drugiego pliku "Rejestr", w Rejestrze odszukać konkretny numer, w linijce z konkretnym numerem zmienić wartość jednej z komórek, oraz na końcu zamknąć plik z którego zostało uruchomione makro. I wszystko działa do chwili aż makro nie zamknie...

Makro-otwieranie pliku i kopiowanie arkusza

Witam Nie rozumiem tylko co to jest za skoroszyt Windows("Za+é¦ůcznik nr 2 rachunku umowy zlecenie.xls").Activate? Makro masz w jednym otwierasz drugi i kopiujesz do trzeciego pliku? Przepraszam może to jest mało zrozumiałe, ale ja próbuję metodą prób i błędów. Poniżej częściowy kod mojego makra, które wygląda teraz tak: [syntax=vbscript]Sub Pobieranie_IL()...

MAKRO-VBA EXCEL: Automatyzacja kopiowania danych i tworzenia wykresów

Dziekuje za odpowiedz z kursu napewno skorzystam i wezme sie za prace... poszedlem troche na latwizne i udalo mi sie przerobic czyjes makro i smiga wysmienicie moze komus tez sie przyda pozdrawiam Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz As Long Dim sciezka As String ' okreslam sciezke szukania...

[VBA] - Prośba o przerobienie kodu, by nie wyskakiwał błąd autoryzacji

Jak przerobić makro poniżej, by działało przy otwartym skoroszycie źródłowym (nie mogę go zamykać), z którego ma pobierać dane, gdyż obecnie wyskakuje mi taki błąd (dane oczywiście pobiera): http://obrazki.elektroda.pl/7726577100_1... i przenosi do tej linii Set wb = GetObject(strQ) Kod zamyka skoroszyt źródłowy (a chciałbym,...

excel vba - komunikat o nie wypełnieniu komórki jeżeli warunek

Dzień dobry, Proszę spróbować zastosować takie makro: [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim s As Long, n As Long, i As Long With ActiveSheet.UsedRange s = .Row n = .Rows.Count For i = 1 To n If .Cells(i, "A") > 0 And .Cells(i, "K") = "" Then .Cells(i, "K").Activate MsgBox ("Komórka K" & i + s - 1 & " nie została wypełniona."...

[Excel] Odczyt danych z plików, odczyt wartości z nazwy plik

*Aldrin jezeli dobrze Cie rozumiem to dla kazdej kopiowanej komorki z pliku zleceniexxx mam zastosowac petle, ktora bedzie przenosic/kopiowac wartosci ze zleceniexxx do zestawienie_szef ?? Dodano po 14 wstepnie widze, ze ten skrypt bedzie mi pomocny :) Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz...

Makro vb porównanie plików z danymi coś w rodzaju wyszukaj pionowo

Jak tam postępy? Ja to widzę mniej więcej w ten deseń [syntax=vb]Sub PorównajDane() Dim plik1 As Workbook, plik2 As Workbook Dim i As Long, j As Long, w As Long Dim Omega_a As Integer, Omega_b As Integer On Error Resume Next Set plik1 = Workbooks(Range("G6").Value) Set plik2 = Workbooks(Range("G9").Value) If Err > 0 Then MsgBox "Błąd otwarcia plików,...

Excell wyszukiwanie tekstu i kopiowanie do innego arkusza

Witam Proszę o pomoc. Potrzebuje wykorzystać poniższy kod do wyszukania określonego tekstu w skoroszytach zapisanych w katalogu "DANE" i skopiowania całego wiersza do skoroszytu "Zbiorczy" Jednym zdaniem chodzi o wyszukiwanie tekstu w wielu plikach xls i zapisywanie ich do jednego arkusza. Czy jesteście w stanie mi w tym pomóc? kod: Sub OperacjeHurtowe2()...

Excel/VBA - Sumowanie komórek z wyświetleniem wyniku

"Wyskakujące okno" - trzeba wykorzystać UserForm, MsgBox sie do tego nie przyda. Przy zdarzeniu Initialize formularza, wpisz wywołanie procedury zamykającej formularz przez Application.OnTime (opis z przykładem w pomocy). Sumuj przez Worksheetfunction.Sum(argumenty), wartość przypisz do Label.Caption i... to wszystko.

[ATMEGA][C] - Porządny stos TCP/IP na AVR (alternatywa dla tuxgraphics.org)

nie otrzymałeś satysfakcjonującej Cię porady nawet od autora książki na podstawie której tworzysz swój projekt Dokładnie.. Autor z tego co zauważyłem przestawił się już całkowicie na komercję. Ale jego prawo. W sumie nigdy jeszcze nie widziałem aby udzielił pełnej odpowiedzi. Ale patrząc 2-3 lata wstecz jak sam zadawał pytania takie jak ja teraz można...

Makro do kopiowania danych z wielu plików do arkuszy I L - IX L

Zobacz z wcięciami [syntax=vbscript]Sub wstawianie_IL_z_załącznikami() 'te dane mają być w makrze pobierającym arkusze Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Dim tblArkusze() Application.ScreenUpdating = False tblArkusze() = Array("I L", "II L", "III L", "IV L", "V L", "VI L", "VII L", "VIII L", "IX L") Set wkb1 = ThisWorkbook Set...

Makro Excel-SolidWorks: Dopisywanie konfiguracji z poprawnym formatem liczby

poszczególnych konfiguracji w tabeli arkusza Excel z poziomu SolidWorks Nie wiem jak to wygląda w Solid Works, ale zakładam, że tam jest VBA i z jego poziomu łączysz się z Excelem przez referencje. Jeśli tak to chyba należało by pisać tak (Nie w Excelu!): [syntax=vb]Sub RunMakro() Call OpenExcel40(Empty) End Sub Private Sub OpenExcel40(DimCol) Dim...

VBA Excel – makro kopiujące dane z maila do arkusza 2 (A4:A6) i obsługa pliku otwartego

Panowie codziennie dostaje maila w takim układzie wykonano: 11 do realizacji: 5 nie wykonano: 5 chciałbym stowrzyc makro ktore po przyjsciu maila odpali excela i skopiuje te trzy wiersze do innego arkusza excelowego (arkusza 2) ale do wierszy A4 A5 A6. czyli: wykonano: 11 ma trafic do A4 itd. dokument excelowy zawiera puste wpisy czyli wykonano: do...

Excel Makro - wyszukaj pionowo z tablicy w innym pliku

Działa w takim zestawieniu Masz źle zrobioną instrukcje 'If Not otwarty Then' a co jeżeli plik masz otwarty? "nie pytaj ponownie", po którego aktywacji kolejne załączenie makra, do zamknięcia arkusza masz makro do zamknięcia arkusza? odnośnie pierwszego pytania: Jeśli plik jest otwarty to makro pomija wykonanie otwarcia arkusza "baza". Jeśli nie jest...

VB 2010 - Jak zrobić że po wciśnięciu Button1 zrobi Print Screen?

Poprzedni temat został zamknięty... hmmm... no nic. Tu masz klasę do rejestracji klawiszy skrótu: Opis działania: Uruchamiasz program i klikasz klawisz skrótu lub przycisk. Okno chowa się na 1s, po 500ms robiony jest screen. Timer1 - realizuje opóźnienie 500ms test - flaga określająca stan timera - jeśli prawda to zrzut ekranu, jeśli fałsz to pokaż...

Access import z Excela - jak zamknąć plik po wczytaniu listy arkuszy?

W skrócie: będę robił import do Accesa z Excela ale tylko wybranych arkuszy. Stąd konieczność ich pokazania (zapisu) w celu późniejszego wybrania przez użytkownika. Znalazłem taką procedurę która robi dokładnie to czego potrzebuję: [syntax=vbscript]Private Sub arkusze() Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False Set objWorkbook...

Visual C# - Jak skonfigurować zapis logu do pliku .ini w programie terminala?

A co dokładnie nie wychodzi? Nie mam na czym sprawdzić, ale jak w kod patrzę, to wydaje się, że powinno działać (oczywiście po zmianie na Option.LogFileName = string.Parse(...), bo w programie masz char.Parse). Zresztą kod łatwo zdebugować, wstaw gdzie trzeba msgboxa, może metoda zapisująca do pliku się nie wywołuje, bo nie otrzymujesz takiego końca...

Excel VBA - Wyłączenie chrony udostępnionego arkusza z poziomu VBA

Kurcze, jeżeli chodzi o VBA to jestem zaczynającym samoukiem. Nie znam reguł stosowania wszystkich funkcji. Mogę prosić Cię o rzucenie okiem na mój kod i poradzenie w jaki sposób użyć Twojej funkcji? [syntax=vbscript] Private a As Integer 'zmienna globalna Private haslo As String Sub MsgBox_error1() 'wyświetla omunikat o błedzie MsgBox "Wypełnij wszystkie...

Visual Basic - aplikacja zamyka okno, ale działa w tle, jak to naprawić?

Ten program to gra tetris napisana w visual basicu. Wczesniej program zamykal sie normalnie. Dołączam kod do głównej formatki, przy ktorej powstaje ten problem. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 And Timer1.Enabled = True Then ' wlaczenie/ wyłączenie pauzy - SPACJA Timer1.Enabled = False Label2.Visible = True...