Witam. Właśnie poszukiwane z mojej strony.Visual Basic- Excel. - Jeżeli Ktoś z kolegów zna dobrą pozycję książkową Visual Basic z wiązaną z Excelem to bardzo proszę o tytuły. Będę wdzięczny.
Witam. Napisałem makro (excel 2010) które kopiuje pewien zakres (od A8 do kolumny E ostani zajęty wiersz) do komórki w kolumnie A pierwszy wolny wiersz w arkuszu w innym skoroszycie, problem polega na tym że chciałbym skopiować kilka zakresów (np A8 do kolumny E ostani zajęty wiersz, O8 do kolumny AK ostani zajęty wiersz, AM8 do kolumny BC ostani zajęty...
[syntax=vb]Sub copy_ujemne() For wiersz = 4 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(wiersz, 1) < 0 Then Cells(wiersz, 3) = Cells(wiersz, 1) Next End Sub [/syntax]
A tak trochę od siebie, nie łaska? [syntax=vb]Sub Polacz() Application.ScreenUpdating = False Zeszyt = ActiveWorkbook.Name sciezka = "C:\PlikiExcela\PlikDoImportu.xls" Workbooks.Open Filename:=sciezka Plik = Mid(sciezka, InStrRev(sciezka, "\") + 1) For x = 1 To Sheets.Count Windows(Plik).Activate Sheets(x).Select Range("A1:F1").Select Selection.Copy...
Jeśli makro, następnie tak
Trochę Cię okłamałem To nie kłam na przyszłość. Mama nie uczyła?;) A w takiej sytuacji umieść arkusz 'Zbiorczy', jako ostatni na liście arkuszy. P.S. Próbowałeś uruchomić to makro? Zapewne nie...
Dokładnie tu nie ma nic co by mogło nie zadziałać, chyba że jest to jakiś wycinek z większego kodu (jak w pierwszym poście). Możesz sprawdzać po kolei czyli zaczynając, potem od ptaszkuj rng1 sprawdź itd. [syntax=vbscript]Sub second() Dim rng1 As Variant Dim rng2 As Variant Dim box1 As Range Set box1 = Application.InputBox("Select column", , , , , ,...
[syntax=vbscript]Sub NowaKolumna() nk = Cells(60, Columns.Count).End(xlToLeft).Column + 1 Range("H60:H80").Copy Cells(60, nk) Application.CutCopyMode = False End Sub [/syntax]
Niestety na służbowym kompie nie zobaczę Twojego pliku, więc tylko kilka wskazówek. 1. Proponuję przygotować szablon do kopiowania w oddzielnym arkuszu, nieużywanym przez kontrolerów. Można tam zapisać w razie potrzeby coś jeszcze, a docelowo można go będzie ukryć. 2. Żeby skopiować obszar (tabelkę), musisz wiedzieć gdzie to trzeba skopiować. Możesz...
[syntax=vb]Sub Wklej() sh = ActiveSheet.Name Sheets("Baza").Select Range("A1:D1").Select Selection.Copy Sheets(sh).Select nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(nw, 1).Select ActiveSheet.Paste End Sub[/syntax] Kombinuj...
Chyba trzeba wstawić licznik do pętli. Sprawdź [syntax=vb]Sub Dostawy() Dim OstWiersz As Long Dim j As Integer, l As Integer Dim LArkuszy As Integer, LArkuszy2 As Integer, LWierszy As Integer Dim zakres As Range, zakres2 As Range, licznik As Integer 'kopiuję dane do nowego arkusza Sheets(1).Copy after:=Sheets(1) OstWiersz = Sheets(2).Cells(Cells.Rows.Count,...
Może Pan użyć instrukcji With: [syntax=vb]With XlApp.Worksheets(1) .Range("Q5,R5,V5,Z5,AD5,AH5,AL5,AP5,AT5,... .Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End With XlApp.Workbooks("Book1").Close savechanges:=True [/syntax]
Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change wywoływane zmianą w arkuszu, to jeżeli w tym zdarzeniu...
Trochę zależy jak to wygląda z resztą makra. Generalnie, wczytywanie powinno być niezależne od aktywnego arkusza. Czyli [syntax=vb]Sub wczytywanie_danych() Dim dane As Variant dane = Worksheets("Arkusz1").Range(Cells(1, 1), Cells(10000, 3)) End Sub [/syntax]
W s7-200 zrobiłem sobie prosty generator liczb losowych(podprogram SBR0) oraz podprogram(SBR1) losujący kilka liczb z zakresów podanych na wejściu. W podprogramach używam tylko zmiennych lokalnych. I gdy jest jeden podprogram losujący(SBR1) w OB1 to działa poprawnie, w przypadku gdy wrzucam drugi podprogram (drugi egzemplarz SBR1 dla drugiego urządzenia)...
Witaj. Zakładając, że oryginalne dane na pierwszym arkuszu, a wynik na drugi: [syntax=vb]Sub upraw() Dim bsk As Range, bsr As Range Dim rb&, rd&, cd&, cm& Set bsk = ThisWorkbook.Sheets(1).Columns(1).Cells Set bsr = ThisWorkbook.Sheets(1).Range("B:J").Rows rb = 2: rd = 2 With ThisWorkbook.Sheets(2) bsk(1).Copy .Cells(1, 1): bsr(1).Copy...
[syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook i = Application.FileDialog(msoFileDialogOpen... s = Application.FileDialog(msoFileDialogOpen... Set b = Workbooks.Open(s) a.Sheets(1).Range("K20:M23").Copy b.Sheets(1).Range("K20") b.Close True End Sub [/syntax]
Witaj nie tylko dane ze wskazanej daty, ale cały zakres od tej daty Ale jutro dane chcieliby zamknąć tych, które zostały skopiowane dzisiaj. To nie Zawada? Dodano po 17 [syntax=vb]Sub kopie() Sheets("konsolidacja danych").Activate With Sheets("plan") szerok = Application.CountA(.Rows(2)) - 1 wysoko = Application.CountA(.Columns(2)) - 1 kolumn = Application.Match(.Cells(1,...
A mógłbyś pokazać rozwiązanie z zastosowaniem makra, tak aby jeszcze pogrubiało No nie :cunning: - to zupełnie nie ma sensu łączenie rozwiązania "formułowego" z rozwiązaniem VBA :cry: Żeby uzyskać efekt jak na zrzucie: 864550 konieczne jest precyzyjne rzeźbienie (musisz przewidzieć, które fragmenty tekstu mają być pogrubione :crazyeyes: ) wszystkiego...
Zaznaczanie i kopiowanie dynamicznego zakresu kolumn A w treści piszesz o wierszach ... Jednak proszę o pomoc w modyfikacji tego kodu aby spełniał warunki opisane powyżej Załączyłeś ... dopiero później ... Udało mi się znaleźć i zmodyfikować kod, który zaznacza zakres tabeli Kod, który załączyłeś tyczy się zupełnie czegoś innego ... (at)Prot zamiast...
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
będzie miał w nazwie "Dane", ale będzie to po ciągu innych znaków 1. Podaj schemat takiego nazewnictwa - jeśli nie jest on stały, a nawet zmiennie-nieprzewidywalny, to znacznie lepszym rozwiązaniem byłoby zastosowanie chociażby "Application.GetOpenFilename" i ręczny wybór pliku z danymi - nie wszystko da się zautomatyzować. 2. Podaj przykład zakresu...
Prawdopodobnie uruchamiasz makro z aktywnym arkuszem innym niż "z". Każdy pojedynczy zakres w tym przypadku musi być precyzyjny, nawet jako argument. Path.Range(Path.Cells(), Path.Cells()) Masz do wyboru (zwróć uwagi na kropki przed Cells): [syntax=vb]with mainwkb.Worksheets("z") .Range(.Cells(i, 1), .Cells(i, 3)).copy 'itd End with 'co jest tym samym...
Witam. Nie mogę uporać się z kopiowaniem zmiennego zakresu z jednego arkusza do drugiego. Sytuacja wygląda następująco. Z arkuszua1 kopiuję zakres np. A2:M20 (ilość kolumn jest zawsze stała, ilość wierszy się zmienia) i musze go wkleić do arkusza2 od kolejnej niepustej komurki w kolumnie A. Z góry dzięki za wszelką pomoc. Pozdrawiam MałyLesiu
Jest wystarczająco fragment z zmodyfikowanymi danymi, nie należy wskazać prawdziwe i wszystko 7. Kopiuje zakres np. linii P P, P1 lub P2 - z którego to zależy?
Niestety, nie działa to prawidłowo. Moja radość była przedwczesna:( Nawet jeśli skopiowałem dane rzeczywiste do takich samych 3 kolumn jak w załączonym przykładowym pliku, nie uzyskuję pożądanych efektów. Wydaję mi się, że problem leży w tym, że zastosowałeś tutaj sortowanie...Nie może tak jednak to wyglądać, bo nazwy te nie są w kolejności alfabetycznej,...
od O2:O17 jest Gdańsk I ten zakres kopiujemy do L23, a co mamy zrobić z kolejnym miastem, zakres O18:30? Chcesz się poduczyć, czy oczekujesz gotowca? Jak to pierwsze, to lepiej na jakimś komunikatorze, a nie tutaj.
Punktem który ma definiować kolejne wiersze jest pusta komórka To trochę zmienia postać rzeczy, myślę że PROT rozwiązał problem globalnie :) Moją uproszczoną pętlę wystarczy zamienić na: [syntax=vbscript]For irow = 3 To 6000 If Len(Cells(irow, 1)) > 0 Then Worksheets("Arkusz_2").Cells(wiersz, kolumna).Value = Worksheets("Arkusz_1").Cells(irow, 1).Value...
Czy da się partycje wybrane kopiować? Tak. Można wybrać zakres sektorów tworzących partycje do kopiowania.
Mam małe pytanie a właściwie problem! Chodzi o, iż mam kilka zakresów danych w osobym arkuszu "Arkusz1". Każdy z tych zakresów ma trzy kolumny. Jaki byłby kod źródłowy jeżeli chciałbym za pomocą pojedyńczych przycisków móc wybrać kilka zakresów osobno do "Arkusza2". Przykładowo wybieram zakres 1 (za pomocą przycisku) i chciałbym następnie wybrać zakres...
Kopiuj i wklej zakres kolumn jezeli spelniony jest warunek... Szukam pomocy w napisaniu macra tak aby kopiowalo i wklejalo wartosci w kolumnach do dnia z data wczorajsza
sprawdź załącznik
Możesz go na końcu usunąć: sheets("Y").rows(1)entirerows.delete. Lub kopiować od Nr 2 [syntax=vb]With Sheets("X") .Rows ("2:" & .Rows.Count).SpecialCells(xlCellTypeVisi... Sheets("Y").Range("A1") End With[/syntax]
Dzięki Tez tak chciałem zrobić, tylko miałem błędy (literówki w kodzie), wiec szukałem na około jak to zrobić. Jeszcze raz dziękuje za podpowiedz.
Nie bardzo wiem, jak dobrać R zaznaczony kółkiem. Są podane w nocie aplikacyjnej optotriaka, stamtąd się wygodnie kopiuje, ale zakres jak kolega wyżej pisał. A jakie powinno być prawidłowe podłączenie ZD_IN ? Nie ma jednej dobrej wartości, wystarczy by Ci co okres przełączyło. Resztę dobierasz programowo.
Na przyszłość powinieneś dawać swój załącznik, najlepiej pokazujący to co już sam zrobiłeś, a czego jeszcze Ci brak. Ważny jest też układ danych. Tu go opisałeś dość dokładnie, ale zawsze łatwiej pomóc, gdy jest już jakiś punkt zaczepienia. Możesz zastosować na przykład taki kod: [syntax=vbscript]Sub Kopia() ' wyczyszczenie miejsca na wynik With Worksheets(2)...
Da się jakoś przekopiować najpierw połowę dysku, a potem drugą połowe żeby to finalnie scalić w jedno już na innym komputerze? - tak - kopiujesz dwa zakresy adresów LBA od 0 do N i od N+1 do końca, a potem w Total Commanderze masz opcję "scal pliki". 1/3 dysku i ani jednego uszkodzonego sektora - myślę, że ten wątek jest doskonałą ilustracją, jak ważna...
No tak czytając to któryś raz z kolei można rzeczywiście przypuszczać że rozumiem to tylko na swój sposób:) Mianowicie chodzi mi o to aby efekt w kolumnie nr 2 przy danych z kolumny nr 1 wyglądał jak poniżej Formuła ma startować od ostatniej komórki w kolumnie do góry 2001-02-03 KWAST45 2001-02-04 KWAST45 2001-02-05 KWAST45 2001-02-06 KWAST45 KWAST45...
Wybierasz opcję "kopiuj sektory", podajesz zakres, wskazujesz "do pliku" i podajesz, gdzie chcesz ten plik utworzyć. Znaleźć końcowy sektor też się da - w momencie, kiedy plik się kończy, reszta sektora jest wypełniona zerami. Niektóre pliki mają też sygnaturę końca. Jeśli znajdziesz początki tych plików, podamy Ci na tacy propozycję sektorów, które...
No teraz cokolwiek rozumiem :D i "najprościej" w arkuszach Google można to zrealizować jak w linkowanym przykładzie [url=https://docs.google.com/spreadsheet... Dobrze by było żebyś przeanalizował jak ten arkusz działa: jaka jest wykorzystana funkcja ("uniwersalna" - można ją...
Dwie wątpliwości: 1) Czy te formuły będą takie jak w przykładzie tzn. będą się odwoływać tylko do danych z tego samego wiersza? 2) Czy to ma być kopia z zaznaczenia (zaznaczam x wierszy i to kopiuję, tylko dokąd? jak określić miejsce docelowe?), czy kopia wszystkiego co jest (do ostatniego wypełnionego wiersza w określonej kolumnie), wtedy miejsce docelowe...
[syntax=vb]Sub kopia() If ActiveCell.Column <> 4 Then MsgBox "Wybierz indeks z kolumny D": Exit Sub ow = Sheets("Arkusz2").Range("C" & Rows.Count).End(xlUp).Row + 1 If ow < 15 Then ow = 15 r = ActiveCell.Row Range(Cells(r, "C"), Cells(r, "H")).Copy Sheets("Arkusz2").Range("C" & ow) End Sub [/syntax]
Dzięki wielki pięknie działa. Temat do zamknięcia.
To większego pena lub dysk USB pożycz lub podłącz ten dysk do komputera stacjonarnego na czas kopiowania jeżeli masz taką możliwość. Nie używaj tego dysku. Laptop jak rozumiem po gwarancji i DVD recovery po zakupie nie zrobiłeś ? Jeżeli się czujesz na siłach to można kopiować po kawałku określony zakres sektorów lub pliki obrazu osobno po kolei.
Hmm. Jak się orientujesz w tych wszystkich GoTo? To samo, uzupełnione, w innej wersji.[syntax=vb]Option Explicit Sub Kopiuj() Dim WksDo As Workbook, PierwszyWolny1 As Long, PierwszyWolny2 As Long On Error GoTo koniec If MsgBox("Rozpocząć kopiowanie ?", vbQuestion + vbYesNo) = vbYes Then 'Potwierdzenie rozpoczęcia kopiowania With Application .ScreenUpdating...
oto co wielki Mikroszit o tym mówi: Konwertowanie liczb przechowywanych jako tekst na liczby Cały zakres jednocześnie W pustej komórce wprowadź liczbę 1. Zaznacz komórkę i w menu Edycja kliknij polecenie Kopiuj. Zaznacz zakres liczb przechowywanych jako tekst, które mają być konwertowane. W menu Edycja kliknij polecenie Wklej specjalnie. W obszarze...
Miałeś w regule formatowania adres z $, czyli bezwzględny. Powinien być względny D2, ewentualnie $D2, ale przed 2 nie może być $. Można kopiować formatowanie, można od razu ustawić cały zakres, ale regułę piszemy dla pierwszej komórki.
Witam. Otóż chcę przenosząc formułę o jeden wiersz w dół, aby komórki w formule zwiększały się o 100 a nie o 1. Tzn. w komórce B1 mam formułę sumującą A1:A100, kopiując tą formułę do komórki B2, formuła zwiększa mi się względnie o 1 czyli A2:A101, a chciałbym aby zwiększała się o 100 czyli A101:A200. :D ale kolega forumowicz "ma wymagania" :D Wzór...
Zawsze możesz też zrobić tak aby Makro pytało Ciebie przy odpaleniu z jakiego pliku zewnętrznego ma kopiować jaki zakres danych.
Poszerz zakres i zastosuj clear zamiast clearcontents.
kopiowanie zakresów kopiowanie warunkowe zakresów kopiowanie wielu plikow
telewizor połączenie komputerem nissan odpalać dioda power mrugać niebieski
Jak rozebrać drukarkę Samsung SCX-3205 krok po kroku Aktualizacja firmware Blaupunkt BS42F2242NEB
