Witam. Po przesiadce na nowszego EXCELA mam duży problem z prawidłowym działaniem kodów napisanych przez poprzedniego użytkownika, proszę o pomoc w korekcie makra: [syntax=html] Option Explicit Sub ADO_pobierz_z_2007(strSourceFile As String, strSQL As String, TargetCell As Range) Dim oConScores As ADODB.Connection, rs As ADODB.Recordset Set oConScores...
Witam serdecznie, z góry przepraszam że odgrzewam kotleta ale muszę przyłączyć się do tematu ponieważ z uwagi na to że nie znalazłem w sieci odpowiedzi na swoje pytanie. Nie wiem czy autorowi tematu chodziło o to samo ale zadam pytanie jeszcze raz. Czy jest możliwe przeprowadzenie scraping'u /bądź jak to nazwane jest tutaj skopiowaniem strony/, na uprzednio...
Słuchajcie mam cos takiego: Szanowni koledzy juz sie trudze i trudze i ni hu hu nie umiem dobrnąć do konca :( otóż robię makro symulujące losowanie multilotka z tym ze potrzebuję jeszcze takiego myku który bedzie wskazywał ilość trafień. Zrobiłem juz user forma i skrypt mniej wiecej taki: Option Explicit Private Sub CommandButton1_Click() Dim Ilosc_liczb...
makro które chciałem napisać ma przechodzić między kartami i zbierać informacje. Opis makra Zaczynamy makro w konkretnej karcie pobieramy z miej informacje // all działa Zmieniamy kartę której nazwę pobieramy z konkretnej komórce poprzedniej karty // all działa Wyszukujemy pierwszej komórki o której informacje pobieramy z poprzedniej karty // all działa...
Witam, czy któryś z szanownych forumowiczów jest wstanie pomóc mi skrócić makro ? [syntax=vb]Sub KP() ' ' KP Makro ' ' Sheets("LICZENIE I SORTOWANIE").Select Columns("A:K").Select Range("A573").Activate Selection.Copy Sheets("DRUKI SORTOWANIE").Select Range("A1").Select ActiveSheet.Paste Columns("G:G").Select ActiveWorkbook.Worksheets("DRUKI SORTOWANIE").Sort.SortFields.Clear...
Witam, Cel: stworzenie makra, które wydrukuje zawartość arkuszy od 2 do 8, w których w komórce c1 znajduje się liczba większa od 0. Stworzyłem na podstawie informacji znalezionych w internecie następujący kod: Compile Error Invalid Outside Procedure Program zatrzymuje się i podświetla na żółto pierwszą linię kodu tj.: Sub druk() Wydaje mi się, że pozostała...
Spróbuj przeczytać ten artykuł: 3.1.11. Nie wysyłaj wiadomości, które nic nie wnoszą do dyskusji. Wprowadzają w błąd, są niebezpieczne czy nie rozwiązują problemu użytkownika.
Witam, Po ostatniej aktualizacji WIN przed każdym uruchomieniem Excella 2007 mam konfigurowanie pakietu ze względu na brak stdole32.tlb. Próbowałem skorzystać z podpowiedzi: Ale nie pomagały i po którymś restarcie pojawił się dodatkowy błąd pliku uruchomieniowego run.dll - brak pliku LogiLDA.dll Na tym etapie poddałem się, bo nie idzie to w dobrym kierunku....
Szanowni Koledzy, Mam następujący problem: plik xlsm, który zawiera makra do eksportu plików w formatach xml oraz csv jest uruchamiany na nowym komputerze ze świeżo zainstalowanym Office 2013. Makro eksportu xml działa poprawnie, natomiast makra do eksportu csv wywołują powiadomienie o błędzie "Automation error - Wystąpił wyjątek" . Po wpisaniu przerwania...
Witam W pracy używam poniższego kodu do zapisywania w jednym skoroszycie wszystkich wprowadzonych przez użytkowników zmian w pliku. Mam z nim dwa problemy: Po pierwsze za każdym zaznaczeniem dwóch i więcej komórek wywala mi błąd jak na zdjęciu: Druga sprawa to przy kopiowaniu kilku komórek za pomocą ctrl c/v zmienione wartości nie pojawiają się w skoroszycie...
...i pewnie jeszcze kilka innych sposobów by się znalazło Najprościej ;) Zaptaszkuj referencje "Microsoft Excel xx.x Object Library" i masz dostęp do obiektów Excela. Możesz Np otworzyć plik w ukrytej instancji i "obrabiać" arkusze do woli...[syntax=vb]Dim exc As Excel.Application Dim wb As Excel.Workbook Dim w As Long On Error GoTo koniec Set exc...
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...
Można otworzyć dwa pliki w dwóch oknach w jednej instancji Excel'a Przełącza się to poleceniem w oknie imediate: Application.ShowWindowsInTaskbar = true Na pewno gdzieś w ustawieniach można to też przełączyć. Jeżeli koniecznie chcesz to z poziomu makra możesz stworzyć oddzielną instancję excel'a i do niej otworzyć. Chociaż jest to kłopotliwe bo często...
witam mam takie pytanie mam nastepujacy kod 'Zmusza prekompilator do kontroli zmiennych Option Explicit 'Deklaracja zmiennych obiektowych Private ObiektExcelApp As Excel.Application Private WithEvents ObiektExcelArkusz As Excel.Worksheet 'To potrzebne, zeby dobrac sie do zdarzenia SelectionChange Private Sub Check1_Click() ObiektExcelApp.Visible...
Jak przekopiować tabelę z excela do Worda, w którym jest zdanie wstępu,a chcę pod nim umieścić tabelę? Lub jak w kodzie dodać to zdanie? Bazuję na tym kodzie. Jestem początkujący w VBA i próbowałem szukać dlaczego po tym, jak zaczynam ustawiać wysokość wierszy pojawia mi się taki komunikat: "the remote server machine does not exist or is unavailable"...
Dzień dobry, Nie za bardzo rozumiem, dlaczego makro które tworzy w komórce zwykłą listę rozwijaną: Sub lista_rozwijana1() Range ("J11").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$D$2:$D$7" .IgnoreBlank =...
Napisałem takiego case`a. Chodzi o to, że jak wpiszę wartość do komórki (2, 9) to chciałby żeby makro automatycznie się uruchamiało w tym momencie, a nie dopiero po kliknięciu sekwencji klawiszy przypisanych do makro. Sub copy() Dim nr_kolumny As Integer Dim il_kolumn As Integer Dim il_wierszy As Integer nr_kolumny = 2 il_wierszy = 6 Select Case Worksheets("Cost").Cells(2,...
Witam, Jak w temacie. Combobox o nazwie SMkolor w userformie, próbuję dodać listę z innego arkusza(Kolor) niż aktywny(mogą różne arkusze), problem w tym, że nie wiem jak napisać kod który dodał by tylko pola wypełnione z pierwszej kolumny arkusza "Kolor". Czy mógłby ktoś miły pomóc? Dodano po 55 Jakby co to sobie już poradziłem, wklejam kod... może...
1. WindowsXP Proffesional i nie instalowałem żadnych poprawek, ponieważ kiedy ostatni raz zainstalowałem SP2 to z komputerem działy się dziwne rzeczy. 2. Logfile of HijackThis v1.99.1 Scan saved at 20:32:00, on 2007-05-08 Platform: Windows XP Dodatek SP. 1 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP1 (6.00.2800.1106)...
Dzięki za podpowiedź. Tak więc zrobiłem coś takiego: [syntax=csharp] public partial class Form1 : Form { excelActiveRow; BindingSource bindingSource1 = new BindingSource(); SqlDataAdapter dataAdapter = new SqlDataAdapter(); private void GetData(string selectCommand) { try { String connectionString = "Integrated Security=SSPI;Persist Security Info=False;"...
Niestety moje tabele maja dane - jest to plik magazynowy używany do ewidencji stanów magazynowych. Moje tabele są zdefiniowane w Excel Wszystkie tabele mają dokładnie ten sam układ (tzn te same nazwy oraz ilość kolumn) - różnią sie tylko danymi. Jest ich ok 100 w jednym pliku i tyle samo w drugim więc trochę pracy jest. Poniżej przykładowy kawałek kodu...
Hej, Mam problem z excelem. Raz w miesiacu musze uzupelniac tabele ze szkoleniami jakie odbyli 200 osob 37 roznych szkolen. Dane dostaje w wersji Jan Kowalski szkolenia HR 20/01/2019 musze je przepisac do tabeli gdzie w kolumnie mam nazwe szkolen, a wiersze odpowiadaja danym pracownikom. Jestem w stanie do pustej tabeli przy pomocy formul przeniesc...
Hej, Mam problem z excelem. Raz w miesiacu musze uzupelniac tabele ze szkoleniami jakie odbyli pracownicy w danym miesiacu- 200 osob 37 roznych szkolen. Dane dostaje w wersji Jan Kowalski szkolenia HR 20/01/2019 musze je przepisac do tabeli gdzie w kolumnie mam nazwe szkolen, a wiersze odpowiadaja danym pracownikom. Jestem w stanie do pustej tabeli...
Witam, w ostatnim czasie stworzyłem kod, którego zadaniem jest wysłanie maila. Interesuje mnie aby wartość komórki została pobrana z arkusza oraz dodana w tekście maila. Niestety posiadam problem z kodem (załącznik1). Wiadomość email otrzymuje w nieczytelnej formie (załącznik 2) Czy jest możliwość uzyskania poprawnego efektu ? ZAŁĄCZNIK 1 Sub WyslijMail_CDO()...
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...
Witam, znalazłem kod który kopiuje wiersze w których występuje słowo NOWY Kod: Sub Kopiuj1() Dim OstW As Long Dim Tbl As Variant Dim x As Long Dim y As Long Dim ArkDane As Excel.Worksheet Dim ArkWynik As Excel.Worksheet Application.ScreenUpdating = False Set ArkDane = ThisWorkbook.Worksheets("Dane&q... Set ArkWynik = ThisWorkbook.Worksheets("Wynik&...
Jeszcze kropki, o których pisał bobo . Pomógł można mu kliknąć, zasłużył... Tu stosowna poprawka. Przed linią z "On Error..." wklej [syntax=vb]Target.Value = Replace(Target.Value, ",", ".")[/syntax] Popatrz tutaj: [url=]Link
Czyli kopiujesz nie tylko formaty. Podmień kod arkusza na[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("zakres2")) Is Nothing Then 'tu ustaw zakres symbolów grup If Target.Count = 1 Then Application.ScreenUpdating = False szuk = UCase(Target.Value) 'szukanie odniesienia (komórki z tekstem "Wzór systemu")...
Witam. Od dawna korzystam z szychtownicy która bardzo ułatwia mi pracę. Jednak postanowiłem trochę ją przerobić i bardziej udoskonalić. Dlatego bardzo prosiłbym o pomoc bo nie ze wszystkim mogę sobie poradzić. Dołączony plik zawiera pięć różnych szychtownic (do tej pory wszystkie pięć było w jednym arkuszu) teraz je rozdzieliłem i nie wiem jak przerobić...
Nie to zdarzenie, nie taka składnia, reszta OK...[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A6")) Is Nothing Then On Error Resume Next 'gdybyś czyścił zakres Application.EnableEvents = False Target.Value = Replace(Target.Value, " ", Chr(10)) Application.EnableEvents = True End If End Sub[/syntax]
Spróbuj z arkuszem z załącznika (podmień kod)[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False On Error Resume Next 'gdybyś czyścił zakres If Not Intersect(Target, Range("B1:B29")) Is Nothing Then Target.Value = Replace(Target.Value, " ", Chr(10)) ElseIf Target.Column = 1 Then wrs = (Target.Value * 2) -...
Spróbuj (z poziomu Worda)[syntax=vb]Sub nic() Dim oExcel As Object On Error Resume Next Err.Clear Set oExcel = GetObject(, "Excel.Application") If Err = 0 Then For i = 1 To oExcel.Workbooks.Count 'MsgBox oExcel.Workbooks(i).Name oExcel.Workbooks(i).Close savechanges:=True Next End If Set oExcel = Nothing End Sub[/syntax]
Mam w oknie TextBox które służy mi do dodawania daty kod jak poniżej. Kod sprawdza czy dobrze zadałem format daty. Jednak czy można zrobić tak żeby kod zawsze brał pod uwagę jeden format daty niezależnie od regionu? Tz. chcę żeby kod zawsze zwracał datę w formacie 'dd.mm.yyyy'. Chodzi o to że mój plik często uruchamiam na czeskim komputerze a tam właśnie...
Po Next dodać [syntax=vb] .Cells(w,1).value = .Cells(w-1,1).value + 1[/syntax] Powinno działać. Pamiętaj tylko, że gdy w = 1 dostaniesz error, bo spróbujesz się odnieść do Row = 0. Oraz, jeśli ta komórka nad nie będzie liczbą(bądź pusta), a spróbujesz do niej dodać 1. Można temu zapobiec dodając kilka If'ów. Jednakże myślę, że nie jest to takie znów...
Ten kod jest uruchamiany w ThisWorkbook przy zamknięciu pliku jak widać w poniższym kodzie: [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim frm As Object, i As Integer On Error Resume Next Application.EnableEvents = False For Each frm In VBA.UserForms Unload frm Next Call Sortuj("Lista pracowników") ListaForName .... .... ....[/syntax]...
Mam podobny kod wykorzystany w oknie gdzie wpisuję daty (dodałem do niego Twój sposób zaznaczania) jednak mam problem z tym kodem bo nie działa poprawnie ale tylko dlatego że okno 'TextBox' jest włożone w sumie do dwój okien 'Frame' (bez 'Frame' działa poprawnie). Czy można coś zrobić żeby kod działał poprawnie bez konieczności usuwania 'Frame'? A to...
Chciałbym zadać kilka pytań związanych z wyświetlaniem i sprawdzaniem formatów w oknie 'UserForm'. Jedno z nich: mam poniższy kod umieszczony w oknie 'TextBox' Ogólnie to kod dział poprawnie jednak problem pojawia się kiedy okno 'TextBox' umieszczę w 'Frame', wówczas kod przestaje działać i nie informuje mnie o niepoprawnie wprowadzonej formie daty....
Przetestuj następujące makro [syntax=vb]Sub koloruj() Dim lLstRw& Dim iLstCol% Dim rngTmp As Range lLstRw = Cells(Rows.Count, 3).End(xlUp).Row iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column On Error Resume Next For i = 4 To lLstRw Step 4 Set rngTmp = Range(Cells(i, 4), Cells(i, iLstCol)).SpecialCells(xlCellTypeConstan... If Not rngTmp Is Nothing...
Przetestuj [syntax=vb] Sub Edit_obl() Dim r& Dim obl As Range, nam As Range 'tt = Timer With Sheets("DataBaza2") r = .Cells(Rows.Count, "V").End(xlUp).Row Set etalon = .Range(.Cells(3, "V"), .Cells(r, "V")) End With Set nam = etalon.Offset(, 1).Cells nam = etalon.Value Set obl = Range("oblPalej") For i = nam.Count To 1 Step -1 Set k = obl.Find(what:=nam(i).Text,...
Witam. Bardzo proszę o pomoc w prześledzeniu poniższego kodu i jeśli jest to możliwe poprawieniu go tak aby działał jak najbardziej sprawnie i poprawnie. Kod ogólnie robi to co chcę ale robi to bardzo długo i w pewnym momencie wywala błąd. Zadaniem kodu ma być aby z pliku o nazwie 'TEST.xlms' z arkusza 'DataBaza3' pobrać listę jaka znajduje się w kolumnach...
zobacz to (dodałem jeszcze opcje z wykluczeniem błędu ListIndex) [syntax=vb]Private Sub A1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) On Error GoTo koniec If KeyCode <> 13 Then Exit Sub With Szychtownica .lstPracownicy.ListIndex = .lstPracownicy.ListIndex + 1 KeyCode = 0 .A1.SelStart = 0 .A1.SelLength = Len(.A1.Value)...
[syntax=vb]Dim ObjXL As Object, xlWkBk, StrWkBks As String ' Test to see if there is a copy of Microsoft Excel already running. On Error Resume Next Set ObjXL = GetObject(, "Excel.Application") If Err.Number <> 0 Then MsgBox "No Excel Files are open (Excel is not running)" Exit Sub End If For Each xlWkBk In ObjXL.Workbooks StrWkBks = StrWkBks...
Dzięki bardzo. Działa wyśmienicie. A czy mógłbym poprosić o przeglądnięcie poniższego kodu i sprawdzenie czy można by go jakoś udoskonalić, przyśpieszyć jego działanie? Kod działa jak najbardziej poprawnie ale trochę musi przemielić zanim zrobi to co ma zrobić [syntax=vb]Dim ark As Worksheet Set ark = ActiveSheet ActiveSheet.Unprotect Password:=haslo...
Przetestuj kod: [syntax=vb]Sub uzupelnij() Dim shSrc As Excel.Worksheet Dim shDest As Excel.Worksheet Dim lLstRwSrc& Dim rngTmp As Excel.Range Dim colUniq As Collection Dim vBox As Variant Set colUniq = New Collection Set shSrc = Sheets("baza") Set shDest = Sheets("PRE-ALERT") With shSrc lLstRwSrc = .Cells(Rows.Count, 1).End(xlUp).Row Set rngTmp = Range(.Cells(2,...
Nie znam niestety VBA... Musze napisać makro :D Na początek (nauki :cry: ) zapamiętaj, że VBA jest z reguły dedykowane do konkretnej sytuacji :arrow: najlepszym "opisem sytuacji" zaś są przykładowe pliki wejściowe i wyjściowe :!: (ewentualnie uzupełnione opisem ścieżek ich lokalizacji). Przykładowo jeśli miałbyś tylko jeden plik do importu z csv to...
Potrzebuje makro które będzie łączyć tekst z komórek w jedną ,z zachowaniem formatu w komórkach, a dokładnie pogrubienia tekstu . Mam tutaj działające makro ale strasznie obciąża komputer ,potrzebuje to zmodyfikować i zeby działało sprawnie dla 120 komórek Private Sub CommandButton61_Click() Application.ScreenUpdating = False Dim arkusz As Excel.Worksheet,...
Bardzo dziękuję za odpowiedź, po wprowadzeniu zmian wyskoczył mi jednak syntax error. Jakaś rada?
Witam na Elektrodzie znalazłem bardzo fajne makro które tworzy dokumenty "wordowskie" na podstawie danych z tabeli excela. Jestem w stanie przerobić je do swoich potrzeb ale nie umiem "działać" makrami na plikach wordowskich z poziomu excela. Czy jest ktoś w stanie tak poprawić kod aby po utworzeniu plików "wordowskich" ich zawartość połączyć w jeden...
nagrałem takie makro które otwiera nowy skoroszyt, kopiuje zawartość całego pliku do nowego skoroszytu, usuwa niepotrzebne dane, zapisuje nowy skoroszyt pod nazwą którą sam wpisałem, zamyka nowy plik, wraca do pliku pierwotnego i tworzy w nim hiperłącze do pliku który właśnie zapisałem. I teraz potrzebowałbym aby nazwa pliku zapisywanego była brana...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Range("b10") = "Turning" Then Range("D10").Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="210;122;212;224;183;166;902;1... .IgnoreBlank = True .InCellDropdown = True .InputTitle...
(at)maciejgonet Miałem wcześniej jeszcze w jednym miejscu faktycznie. Usunąłem i dalej to samo. Dodam, że w 'Ten arkusz' mam teraz taki kod: Private Sub Workbook_Open() MsgBox "Witaj " & Environ("Username") & "!" _ & vbNewLine & vbNewLine & "tekst powiadomienia" _ & vbNewLine & vbNewLine & "Miłego dnia!" MsgBox "Jakiś tekst", vbExclamation, " UWAGA...
Cześć, Może ktoś podpowiedzieć jak działa to makro ? Tj gdzie tu jest wklej zawartość do pliku .. albo co zmienić aby to działało. Generalnie mam arkusz z dużą ilością obliczeń i chcę część z nich zapisać do pliku CSV - to makro robi teoretycznie to co chcę tj zaznacza się interesujące komórki i potem ono tworzy plik CSV i wkleja zawartość która niestety...
Witam, Dobiłem się do terminala w dysku Conner Technology (ExcelStor) CT210; parametry: 38400 8N1 Rx, Tx to dwie przelotki na konektorze J3 zaraz obok flasha. Log ze startu dysku: Copyright ©1997-1999, STMicroelectronics, Inc. All rights reserved. Intf task initialized Cache task initialized Disk task initialized Test task initialized Selftest...
1. Z pamięcią jest wszystko w porządku. Kiedyś były drobne problemy ale zostały zlikwidowane. 2. Oto log z hijackthis : Logfile of HijackThis v1.99.1 Scan saved at 12:04:01, on 2007-01-26 Platform: Windows XP Dodatek SP. 1 (WinNT 5.01.2600) MSIE: Internet Explorer v6.00 SP1 (6.00.2800.1106) Running processes: C:\WINDOWS\System32\smss.exe C:\WINDOWS\system32\winlogon.exe...
Tak jak kolega Aldrin zauważył błędnie były nazwy kolumn w stosunku do zwracanych danych. Ja powiększyłem iolość kolumn tak by i "uwagi" były widoczne. Dodatkowo zmieniłem opis (i wyliczenia) do drugiej kolumny by pokazywało liczbę porządkowa danego arkusza a nie wiersz. Wg mnie jest to logiczniejsze w razie wydruków list. Również nie ingerowałem w...
Witam wczoraj sciągałem pare plików, mianowicie Worda 2007 oraz keygen'a itp. Po pewyn czasie komputer mi się wyłączył. Zawsze po po logowaniu na windowsa, wyskakuje mi taki komunikat, co to oznacza. Komputer mam cały zmulony. Dodam że jak wpisuje coś w gogle i kliknam na linka, czasami mi ładuje tą strone potem przeskakuje na jakieś ******ły m.i wygrałeś...
Hej, Pojawił mi się taki problem przy konwersji zmiennych. Po Rs-ie odbieram stringa składającego się z 4 znaków (wszystkie to cyfry) i wrzucam to na TextBoxa, ale również chciałbym to przerzucić do komórki Excela. Fragment kodu: Private Sub MSComm5_OnComm() Dim Wartosc_S As String Wartosc_S = Trim(MSComm5.Input) TextBox1 = Wartosc_S TextBox2 = Val(Wartosc_S)...
Może InputBox? Np tak przeróbka makra wyżej[syntax=vb](...) On Error Resume Next wrs = InputBox("Podaj Nr wiersza początkowego", "Proszę wpisać liczbę", 6) max = InputBox("Podaj Nr wiersza końcowego", "Proszę wpisać liczbę") On Error GoTo 0 If wrs < 2 Then Exit Sub If wrs > max Then max = Rows.Count Do While Cells(wrs, 4) <> "" And wrs <=...
zależy od wersji Excela Zarówno Excel jak i windę mam w wer. angielskiej. (win. XP Pro, Excel 2007) Dodano po 7 Coś znalazłem tu: doczytam jak to zrobić. p.s. Wkrótce wyjeżdżam to odezwę się za kilka tyg. i dam znać jak poszło, ale do tematu na pewno powrócę. Już za samo to, że uświadomiłeś mnie że się da to zrobić, to Ci się Kolego "krzynka piwska"...
gdyż mam makro które tworzy mi CSV Napisałem na szybko takie coś: [syntax=vb] ''' <summary> ''' Zapisuje bierzący arkusz do pliku CSV ''' </summary> Sub SaveCSV() Dim R As Range Dim cmax As Integer Dim rmax As Integer Dim srow As String Dim fname As String cmax = Excel.ActiveSheet.UsedRange.Columns.Coun... rmax = Excel.ActiveSheet.UsedRange.Rows.Count.....
Funkcje i procedury znajdują się w module VB. Skopiuj moją funkcję do schowka, a potem, to już z górki, bo: Alt+F11, Alt+I, M, Ctrl+V, Alt+F4. W arkuszu w komórce B1: =Zlozonosc(A1) Kolego jestem jednak za mały w uszach abym to ogarnął. Kopiuje i nic. Zapewne chodzi o podstawienie odpowiedniego wiersza i kolumny. W miejsce Wartość wpisałem F6 (interesująca...
Dzięki. Mógłbym przysiąc, że tego też próbowałem wcześniej.. nieważne, w każdym razie działa, dzięki. Mam jeszcze jedno pytanie. Też niezbyt trudne. Dawno nic nie robiłem w matlabie i simulinku po prostu i to dlatego. Tym razem jest w drugą stronę. Mam blok 'to workspace' i macierz, którą przekazuję, chce zaimportować do excela. Zmienna się nazywa FkoutINT....
Hej, dzięki za odpowiedź Dodano po 15 Mam jeszcze jedno pytanie. Czy poniższy kod jest poprawny? [syntax=vb]Else If Sheets("Sheet1").Cells(irow, 11).Value = "Dex" & Sheets("Sheet1").Cells(irow, 13).Value = "2" Then Dim ieApp ost_end = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Sheet1").Select For irow = 2 To ost_end Sheet3.Cells.ClearContents...
Czołem, Przyda mi się pomoc w przebudowaniu makra jakie posiadam. W chwili obecnej mam makro, które drukuje mi wszystkie dokumenty per filtr w raportu. Potrzebuje zamienić opcję drukowania na: 1)Otwarcie szablonu prezentacji 2)Aktualizację danych i wykresów per filtr tabeli przestawnej 3)Zapis jako prezentacji nazwš filtra z aktualnš datš (komórka z...
Z VBA w Excelu mam do czynienia od niedawna i chciałbym prosić o pomoc z kodem jakim dysponuję. Powstał on poprzez rejestrację makra i skopiowanie pewnej części z sieci. Ta zarejestrowana część nie daje mi spokoju bo można to osiągnąć w bardziej uniwersalny sposób dla wszystkich arkuszy w pliku. Tak więc chciałbym aby zawartość komórek w zakresie od...
Zrób wpierw symulację obciążenia takiego skoroszytu ze zdjęciami dla paruset/parutysięcy wierszy, bo może okaże się, że nie da się takiego zeszytu przeglądać. A zdjęcia przecież zawsze można spakować i przesłać zainteresowanemu, żeby je sobie rozpakował u siebie na dysku. Po co je wklejać do arkusza ? Zwłaszcza, że i tak niewiele trzeba, żeby "uszkodzić"...
Stara wersja DFMnow! już się nie uruchomi. Numerical Innovations ma taką politykę, że ich darmowa edycja softu (czyli DFMNow) musi być zaktualizowana raz na rok, w przeciwnym wypadku się nie uruchomi. Takiego "ograniczenia" pozbawiona jest wersja pełna (czyli FAB3000). Tu, jeśli user tak zdecyduje, może używać przestarzałego softu do woli. W wersji...
Ostatnio nie zajmowałem się tematyką VBA. A jak się nie ćwiczy...... Udało mi się stworzyć coś takiego: Sub LOGINY() On Error GoTo ErrorInfo If Range("login_1k").Find... SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate...
Hej, kochani. Zwracam się o pomoc z makrami, które opiszę zaraz poniżej. Kilka dni temu postanowiłem zrobić sobie program, który nieco ułatwiłby mi pracę. Uczę się VBA od zera i o ile z początku fajnie łapałem i po kilku-kilkunastu próbach drobne problemy rozwiązywałem, tak teraz zaczęły się schody. Makra, w dalszym ciągu są banalnie proste, lecz zagmatwałem...
Możesz wypróbować taką funkcję UDF: [syntax=vbscript]Function Cross(graf As String, x As Double, y As Double) As String On Error Resume Next With ActiveSheet.ChartObjects(graf).Chart .Axes(xlValue).CrossesAt = y .Axes(xlCategory).CrossesAt = x End With End Function[/syntax] Działa na pewno w starszych wersjach Excela. W najnowszym nie testowałem. Jest...
Dzien dobry. Zalaczam plik Excel. Na gorze mamy automatyczny przycisk NEW LINE, i chodzi o to, ze wciskajac ten przycisk tworzyl sie nowy wiersz z zawartoscia formul. Czyli majac, np. 100 osob i klikajac kolejno na NEW LINE aby otwieral sie wiersz kolejny po juz istniejacym. Na dzien dzisiejszy mam tak ze otwiera sie zawsze wiersz "2", tak jak zreszta...
Cześć, Przeszukałem forum, ale nie znalazłem tego czego szukam. W skrócie: 1. Mam tabelkę z kolumnami .to, .cc, .bcc, .subject, .body 2. Każda linia to inny adresat i inna treść (treść uzależniona od wyniku) Potrzeba: Treść wiadomości jest w komórce od F2 do X - może być 10 adresatów, ale może być i 15000 (w zależności od akcji) Napisałam kod, działa,...
Witam. Z samej ciekawości pobrałem własny plik i stwierdziłem, że makro jest na swoim miejscu. Ja osobiście używam excel 2007 i nie mam problemu z uruchomieniem. Tak na wszelki wypadek to w kleje go tu. Sub CzyPowtorki() Dim Unik As New Collection Dim Tbl As Variant Dim Komunikat As String Dim OstW As Long Dim x As Long With ThisWorkbook.Worksheets("Arkusz...
Witam, mam problem. Na jednej ze stron znalazłem makro które działa w jednym arkuszu. Chciałbym je zastosować do kilku jednakowych arkuszy, nie mam doświadczenia z makrami i dlatego proszę o poradę jak to zrobić. Z góry dziękuje. Option Explicit Dim Zakres As Range Private Sub Workbook_Open() Call Ustal_zakres End Sub Private Sub Workbook_SheetChange(ByVal...
nie wiem dlaczego gdy operuje na jednej kolumnie wszystko hula ładnie: [syntax=vb]Set mainwkb = ThisWorkbook Set newwkb = Workbooks.Add For i = 1 To count mainwkb.Worksheets("z").Cells(i, 1).Copy newwkb.Worksheets("Arkusz1").Cells(i * qty + 1, 1) newwkb.Worksheets("Arkusz1").Cells(i * qty + 1, 1).autofill Destination:=Range(Cells(i * qty + 1, 1), Cells(i...
W całej linii. Dla sprawdzenia rozbij sobie na osobne zakresy i spróbuj zaznaczyć, Np: .Range(.Cells(i, "A") & .Cells(i, j) & .Rows.Count).select Tu wyrzuci Ci błąd 1004 lub syntax error. Argument Range to string, lub dwie komórki "narożników", oddzielone przecinkiem: Range(Cells(r, w), Cells(r1, w1)) Dodano po chwili No dobra, trochę podpowiem. Ale...
Laptop Toshiba Satellite C670-105, do odzyskania pliki worda i excela, materiały z wykładów. Nie wiem ile tego jest bo nie ja użytkowałem tego laptopa. Załączam plik SMART [syntax=text]smartctl 6.0 2012-10-10 r3643 [i686-linux-3.5.6-pmagic] (local build) Copyright (C) 2002-12, Bruce Allen, Christian Franke, www.smartmontools.org === START OF INFORMATION...
Widzę, że problem jest na tyle złożony, iż wysypali się przy nim wszyscy znawcy tematu. Podpowiem zatem jak by ów mógłby wygldać. [syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 3 And Target.Row < 100 And Target.Column >= 3 And Target.Column < 7 And Range(Cells(Target.Row, 3) = "" Or Cells(Target.Row, 4)...
Cześć Chciałbym połaczyć za pomocą kodu VBA kilka kolumn w jedną. Normalnie w excelu napisałbym cos takiego =(A1&" "&B1&" "&C1) ale chciałbym użyc przycisku. Napisałem cos takiego ale niestety wywala mi błąd 1004 Application defined or object defined error. [syntax=vb]zasieg = 6500 Dim polaczadresy As Range Set polaczadresy = Range("D1") polaczadresy.Select...
witam, jestem bardzo początkującym "programistą" i nie bardzo rozumiem rozwiązania przedstawionego w tym wątku, a również mam problem z funkcją tablicową. Mój kod działa w pętli i to na kilku różnych arkuszach. Nagrany kod wyglada tak: [syntax=vb]Range("H14").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(SUM(IFERROR(('od 13.01'!R[-9]C1:R[1754]C1>=R[-13]C)*('...
eee mam jeszcze pytanko do tego rozwiązania 1. uruchamiam excela wyszukiwanie działa włączam tryb projektowania aby np przesunąć czy zmienić rozmiar okienka po wyłączeniu trybu projektowania wyszukiwanie nie działa a przynajmniej na ekranie nie ma reakcji poza lekkim migotaniem przy wpisywaniu takim jak przy działającym wyszukiwaniu jeżeli zapiszę zmiany...
Aktualizacja firmwaru do wersji 15.807 powinna rozwiązać problem poniżej lista skorygowanych problemów przez nową wersję Release Memo FS-3820N (B-28) FS-3830N (B-21) Version 158.07 Release: 2005/04/19 (Status date:2005/4/19) REFERENCE CHECK SUM LABEL NAME U-NO ROM TYPE PPC750CXe 1C75 SB21K15807 YS01 4MB-DIMM This is the latest official version firmware...
W domu 2016, w pracy 2013. Była jedna Missing, teraz znów błąd. W tym samym miejscu Compile error. Syntax Error Dodano po 4 Już naprawiłem, problem leżał w czymś innym :-)
Dokładnie o coś takiego mi chodziło. Tylko jeszcze chciałem dodatkowo wprowadzić zmienne row i column dla zakresu poprzez instrukcję If Else lub For . Znalazłem następujący kod na angielskiej stronie. Sub ADDCLM() On Error Resume Next Dim Dept_Row As Long Dim Dept_Clm As Long Table1 = Sheet1.Range("A3:A13") ' Employee_ID Column from Employee table Table2...
Witam Chodzi mi o to żeby makro VBA dopisywało mi do zapytanie SQL wartość z komórki (a docelowo z wielu komórek). Doszedłem do takiego kodu: [syntax=vbscript]With ActiveSheet.ListObjects.Add(SourceType:=... Source:= _ "ODBC;DSN=DTB;UID=USER;;SERVER=DTBS;", Destination:=Range("$C$1")) _ .QueryTable .CommandText = Array( _ "SELECT INVENTORY_PART.PART_NO,...
Range(" A1:S" & n+1 ).Select tak próbowałam i wyrzuciło mnie z Excel :( Chodziło mi o wiersze lub komórki A:Sn+1 Przy wszystkich zaproponowanych wyrzuca mnie z Excela. Natomiast przy zastosowaniu Rows("n:n").Select wyrzuca błąd: Run-time error: '1004': Application-defined or object-defined error :(
IMHO potrzebujesz jedynie przepisywania wartości z komórki do komórki, otoczonego jakimś sensownym "przyspieszaczem działania" odpornym na błędy, np. tak:[syntax=vbscript]Sub Zapis() On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wsRaport = Sheets("Raport") Set wsSpr2 = Sheets("Sprawozdanie -2")...
Witam, Mam dane w kolumnie A i B. Kolumna A jest wypełniona do np. 100 wiersza, a kolumna B do np. 50 (numery wierszy zmienne). Chciałabym aby w kolumnie B wpisywało tekst np. "XXX" począwszy od pierwszej wolnej komórki kolumny B do ostatniej wypełnionej komórki kolumny A. Próbowałam tak: Dim i For i = Range("B" & ActiveSheet.Cells.Rows.Count).End(xlUp)....
Dzień dobry, proszę o pomoc w napisaniu makro, które wykonuje poniższe czynności: 1. Zaznacz całą widoczną tabelę (tabela może mieć różną ilość wierszy). 2. Skopiuj zaznaczoną tabelę do kolejnego arkusza. 3. Dodaj kolumnę z lewej strony tabeli, która będzie częścią tej tabeli. 4. W nowo dodanej kolumnie wypełnij wartości do końca tabeli (tabela może...
Otwierasz plik i obsługujesz On Error.
OK działa. Super, dzięki. A czy do mojego kodu mogę dodać tworzenie tabeli 2x2 (wiersze, kolumny). i tak, żeby np. w którejś kolumnie pisać dwoma stylami. Tzn. był napis "KolorTest" w którym to napis "Kolor" będzie czerwony a "Test" czarny? Dodano po 5 Może bardziej sprecyzuję o co mi chodzi: W tej procedurze jestem już w stanie (dzięki OJM) wrzucić...
Nie analizowałem Twojego kodu, jest ciut mało czytelny :) Mały przykład z Dir [syntax=vb]Sub przyklad() Dim ws As Worksheet, wkb As Workbook sciezka = Application.DefaultFilePath & "\" plik = Dir(sciezka & "*.xls") Do While plik <> "" Set wkb = Workbooks.Open(plik) For i = 1 To wkb.Sheets.Count On Error Resume Next 'piernik wie gdzie tego...
Witam. Znów mam problem z Excelem. Mianowicie w firmie gdzie pracuje człowiek człowiekowi wilkiem przy wysyłaniu zbiorczego planu dostaw przewoźnicy się burzą że jeden ma lepiej drugi gorzej. Że ktoś jest bardziej faworyzowany inny mniej. Wpadłem na pomysł żeby skombinować makro, które dzieli plan dostaw na oddzielne pliki, takie, w których przewoźnik...
Cześć, mam na warsztacie ostatnio temat związany z transpozycją tabeli. W tabeli w załączniku potrzebuję przepisać wartości kolumn od 0-9 (stałe - w sensie ilość się nie zmieni, bo po osiągnięciu każdej 9 licznik przeskakuje o kolejny wiersz) przyporządkowane do serii wierszy, do układu dwóch kolumn, otrzymując w pierwszej kolumnie licznik z połączenia...
Cześć! Mam następujący problem. Wprowadziłem formułę do komórki S1, która w zależności od kombinacji komórek B7 i C7 wyświetla indywidualny numer. Taki sam numer mają zdjęcia w folderze z excelem. W makrze napisałem formułę, która w zależności od S1 wyświetla odpowiednie zdjęcie. Wszystko super działa, po zmianie kombinacji numer się zmienia, ale zdjęcie...
Jakiś czas temu, miałem podobny problem i załatwiłem to za pomocą PDFCreator-a z firmy zwanej [url=]PDFForge i takiego skryptu: [syntax=vbscript]Const MagicWord = "aaabbbxxxx12345" //haslo Set objArgs = WScript.Arguments If objArgs.Count = 0 Then MsgBox "This script needs a parameter!", vbExclamation, AppTitle WScript.Quit End If fname = objArgs(0)...
Jak już znajdzie to masz adres komórki i możesz z nim kombinować Sub szukaj() gdzie = ActiveCell.Address On Error Resume Next Columns("B").Select 'przypisanie adresu komórki zawierającej szukany tekst do zmiennej znalezione = Selection.Find(What:="AM.1.... Logging/004a IIS Failure Access Audit", LookAt:=xlPart).Address...
Numeru portu z tego co pamiętam nie trzeba, co do sprawdzenia to wystarczy sobie napisać prostą aplikację, która jedyne co robi to łączy się z określoną bazą. Po jej uruchomieniu będziesz wiedział "na czym stoisz", ewentualnie dostaniesz stosowny error i po jego treści powinieneś wpaść na to co jest źle, ewentualnie wrzuć go tu pewnie coś się poradzi.
Ojej! Ale najważniejsze, że próbujesz ;) Przy okazji: wklejając kod, umieść go pomiędzy znacznikami Syntax (opcja listing kodu) Poniżej przykład oparty o 'Dir'. Przeanalizuj, dostosuj do własnych potrzeb [syntax=vb]Sub Find_Id() Dim strPath As String, wb As String Dim ostWrs As Long, i As Long, test As Variant strPath = ThisWorkbook.Path 'jeśli w tym...
Dzięki wielka za kod:) Lecz mam z nim problem. Przy uruchamianiu wyskakuje mi błąd: Run-time error '9': subscript out of range A przy debugowaniu podkreśla: [syntax=vb]Windows("Analiza").Activate[/... Ok, poradzilem sobie ;) wystarczyło dodać .xlsm