Witam. VB 2008 Basic Express Edition Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i1 As Long Dim i2 As Long i1 = 0 i2 = 0 For i1 = 1 To 40000000000000 ...
Hej, Mam prośbę o pomoc. Mam plik z makrem, który wskazuje folder, w którym znajdują się wszystkie dokumenty z których musze pobrac dane. Wszystkie dokumenty są zaszyfrowane z tym samym hasłem "1111". Dane muszę pobrac z zakładki, która jest veryhiden "do exportu" zakres komórek...
to dla mnie jeszcze za wysokie progi, czy moze mi ktos to wytlumaczyc czemu mam blad w:
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 11 Or Target.Column = 15 Then For Each c In Intersect(Target, Columns(Target.Column)) If LCase(Cells(c.Row, Target.Column).Value) <> "withdrawn" Then If c.Interior.ColorIndex = 44 Then Range(Cells(c.Row,...
Pozwolę sobie wtrącić... Dość wygodne w takim przypadku jest wykorzystanie zdarzenia Exit. "Z urzędu" mamy zadeklarowaną zmienną 'Cancel', kodu mniej i (moim zdaniem) czytelniej się robi. Po drugie. Warunki sprawdzające długość ciągu i znaki wewnątrz są raczej zbędne, mogą wręcz...
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...
Witam serdecznie, pobieram czas systemowy i chciałbym sprawdzić porównać go z moimi danymi, jeśli godzina i minuta są takie same wyświetla okienko.... z góry dziękuje za wskazanie gdzie tkwi problem Fragment kodu który nie działa tak jak powinien, porównanie argumentów: .if hour...
Cześć, Mam w jednym pliku kilka arkuszy o różnych nazwach. Chcę wydrukować tylko te arkusze, które spełniają mój warunek, te arkusze które nie spełniają warunku mają zostać pominięte do drukowania. Na razie mam kod, który drukuje wszystkie arkusze do pdf, ale baza się rozrasta i nie...
zmieniłem kod na: Sheets(ark).Select With Range("a" & wrs & ":q" & wrs).Interior .ColorIndex = 3 End With i wszystko działa...:) Mam pytanie chce żeby wyświetlił się msgbox lecz nie zatrzyma on czytania kodu i w tym samym czasie bedzie obsługiwana...
Witam, z reguły staram się wyczerpać źródła mi dostępne,ale w tej sytuacji... nie wiem nie potrafię ogarnąć tematu. Ogóle założenie jest dość proste, w recordset mogą być rekordy, które mogą być kolejno takie same ( ten sam produkt), ale mogą też być różne po czym np. znów...
Popełniłeś dwa błędy w jednym wierszu... Do wyboru If IsNumeric((Cells(i, "I").Value)) = True Then If IsNumeric((Cells(i, 9).Value)) = True Then Natomiast wyszukanie ostatniego wiersza z nazwiskiem możesz zrobić w pętli przez porównanie....
Z Twojej procedury Sub Petla() If Range("Z2").Value <> "." Then oraz Arkusz1.Rows("2:2")... Shift:=xlUp Ale to już nie ma znaczenia... A co koledzy na to Sub Petla() a = 1 b = 1 With Sheets("Arkusz1") ...
hmm, nie za bardzo o to chodziło, ale dzięki za odpowiedz. zmiany pracują w systemie i rzadko dwa lata z rzędu wypadają tak samo :( ja zrobilem cos takiego lopatologia ale dziala czy ktos jest w stanie doradzic co do kodu? [syntax=vb]Option Explicit Sub dniowki() With Selection ...
Mały przykład [syntax=vb]Sub Petla() Dim licznik As Integer, ile As Integer ile = 500 'ile = Range("E1") Do While licznik < ile licznik = licznik + 1 test = Cells(licznik, 1) Loop MsgBox licznik End Sub[/syntax]
Witaj fragment: Wielkie dzięki kolego, troszkę musiałem pokombinować, bo na początku pętla liczyła do 25 i wysyłała, a jak zostało mniej niż 25, to już nie. Okazało się, że dodanie poniżej pętli tego fragmentu odpowiedzialnego za wysyłkę rozwiązało problem. W całości wygląda...
Potrzebuje pomocy. Potrzebuje makra, które zrealizuje mi coś takiego - otwiera automatycznie dwa dokumenty - jeden jako dokument xls drugi jako txt. To mi działa. Chciałbym aby z pliku txt z komórki A2 szukał jej w pliku xls po komórkach A i jeżeli znajdzie pasujący wynik to wklei zawartość...
Oczywiście problem rozwiązałem "półautomatycznie" przez kod w vb net: [syntax=vbnet]Dim str As String = "Select NrEwidKontrahenta, Max(DataWstawienia) AS OstatData FROM KONTRAHENCI GROUP BY NrEwidKontrahenta" Dim da As New OleDb.OleDbDataAdapter(str, cnn) da.Fill(ds) petla: ...
Witam, Napisałem makro które wylicza mi przerwy pomiędzy datami wystawionych faktur, wszystko działa tak jak chciałem ale tylko na małej ilości danych. Mam do sprawdzenia 340000 wiersz i trwa to za długo. Proszę o pomoc. [syntax=vb] Sub licz_przerwy() Application.ScreenUp... = False ActiveSheet.Name...
Zrobiłem trochę inaczej tzn. bez drugiego arkusza, z nadpisywaniem starych wartości i tym błędem do obróbki (błąd dodawany jest do ostatniej pozycji w rozbiciu aby pieniążki się zgadzały co do joty ;) ) Pliczek w załączniku do obejrzenia. [syntax=vb]Sub rozbij() Const dni = 365 For...
Cześć :) Proponuję tak: 1. Najpierw pętlą wyświetlić nazwy we fragmentatorze (lub numery pól żeby wiedzieć że np. pole 1 to "kogut" pole 2 to "kaczka" itd. ) 2. Odwołać się do konkretnej nazwy w konkretnym fragmentatorze i ustawić jej właściwość selected na true lub false...
Czesc, Mam taki problem napisalam przerobilam funkcje znaleziona w internecie na swoje potrzeby :-) jestem laikiem totalnym jezeli chodzi o VBA. Z gory przepraszam za nie uzywanie polskich znakow. Problem jest nastepujacy moja funkcja dziala na zasadzie przypomnienia mailowego wysylanego z excela...