W załączniku.
Witaj [syntax=vbnet]Sub CellToComment() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection For Each Rng In WorkRng koment = koment & Rng.Value & vbLf Next WorkRng(1).Offset(WorkRng.Count).NoteTex... Text:=koment End Sub [/syntax]
W załączniku.
Hmm, może dwie pętle? Jedna do określenia Nr wiersza, druga do wypełniania... [syntax=vb]wrs = 1 strS = "MAGMA" maks = 1000 'ustawienie maksimum, coby nie wpaść w nieskończoną Do While Cells(wrs, 6) <> strS If wrs = maks Then Exit Sub wrs = wrs + 1 Loop Do While Cells(wrs, 7) <> "SUMA" If wrs = maks Then Exit Sub wrs = wrs + 1 Cells(wrs,...
Witam Tu masz odpowiedź http://www.elektroda.pl/rtvforum/topic31... wystarczy zmienić "linijkę"
Makra włączone? Może problem z nazwa/indeks. Spróbuj Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo byk If Target.Column = 1 Then Sheets(Trim(Str(Target.Row&#... = Target.Value End If Exit Sub byk: If Target.Value <> "" Then MsgBox "Brak arkusza o...
Sheets("DATA ENTRY " & s)
Jak masz już zapamiętany w zmiennej numer kolumny, to możesz odwołać się do komórki w trzecim wierszu przez [syntax=text]Cells(3, numer_kolumny)[/syntax] Jeśli potrzebujesz się odwoływać za każdym razem do innej kolumny, to: [syntax=text]Cells(3, ActiveCell.Column)[/syntax]
Użyj właściwości Text komórki zamiast Value, czyli [syntax=text].TextFrame.Characters.Text = Cells(3, 2).Text[/syntax]
[syntax=vbnet] For Each Ctrl In UserForm1.Controls If Not TypeName(Ctrl) = "Label" Then If TypeName(Ctrl) = "TextBox" And Ctrl.Value <> vbNullString Then ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, 1).Value & Ctrl.Value & vbNewLine End If End If Next [/syntax]
Zbliżone działanie do pożądanego :D tj. przenoszenie danych z katalogu do oferty przy pomocy dwukliku (makro działa pojedynczymi wierszami - oczekując na wpis ilości do oferty :ok: patrz na zrzut ) 978389 Drugie makro w "ofercie" usuwa wybrane wpisy (wybrany indeks :!: ,a przy okazji ilość :D ) 978391
Nie ma problemu - zmienimy pętlę warunkową na zwykłą. Na marginesie, jak widać w twoim załączniku, numery pisma przy "anulowaniu" dokumentu też są usuwane. Najpierw sprawdzimy ile jest wierszy, a potem pętlą będziemy sprawdzać czy wiersz nie był już skopiowany i czy ma numer zadania. Jeżeli tak to go przerzuci, jak nie "pójdzie" dalej. (taki wiersz...
Jeżeli to możliwe to poproszę o użycie formuły Proponuję formułę :spoko: [syntax=vbscript]=JEŻELI(NIE(CZY.BŁĄD(ZN...
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
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,...
Spójrz na to, może to być przydatne
... wynik z komórki E2 kopiowany byłby do ... odpowiednio komórki B2 ... Nagmatwał prezes ... tam jest 'ilość' a nie 'kwota' ... ale cóż niech będzie ... dla prezesa wszystko .... :D :D :D ... przenosi i ilość i kwotę: 842520 Ps.: Zdjąłem prezesowi listę pracowników z 'A2', bo mi zawadzała ... :|
Yogi (przypominasz mi dzieciństwo) ;). Nie pamiętam, czy był to 'Zwierzyniec', czy też 'Ekran z bratkiem'. Ale autor napisał: potrzebuję makro A do Autora. Może ten kod będzie wygodniejszy (jest bez obsługi błędów, sam się pobaw): [syntax=vb]Sub Przenies() Dim d As Date, p As Date, k As Date ow = Cells(Rows.Count, "B").End(xlUp).Row y = Sheets("Arkusz2").Cells(Rows.Count,...
Wstawiam plik z rozwiązaniem problemu, tak jak ja go zrozumiałem. W kodzie makra nie wstawiałem objaśnień, bo zmienne nazwałem aż naddto opisowo. Jeśli czegoś nie rozumiesz z procedury, korzystaj z F1 ustawiając kursor na nieznanym Ci "słowie". Aha, nie zapomnij włączyć makr w Excelu, najlepiej na stale. Dostęp do edytora VBA to chyba wiesz: Alt + F11...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Gdybyś opisał całe zagadnienie, to pewnie znalazłoby się lepsze rozwiązanie całości, ale to o co konkretnie pytasz można zapisać tak: [syntax=vbscript]Range("A2").Value = Range("A1").Value[/syntax]
automatycznie skopiowały się poniżej tabelki To spróbuj wykorzystać makro powiel() (uruchamiane skrótem ctrl+p ) :idea: :D z załączonego pliku. Dla pewności działania konieczne jest formatowanie ilości (Qty) jako liczby, a nie jako tekst :cry: (jak w Twoim przykładzie) :!: 1026922 1026916
Spróbuj w ogóle tak: [syntax=vba] Private Sub OK_Click() 'Worksheets("NOWOŚCI").Range("A4").End(x... 0).Value = TextBox1.Value 'Worksheets("NOWOŚCI").Range("B4").End(x... 0).Value = TextBox2.Value Worksheets("NOWOŚCI").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Value = TextBox1.Value Worksheets("NOWOŚCI").Range("B" & Cells(Rows.Count,...
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Dla mnie trochę przerost formy no ale każdy ma swój styl programowania. Zauważ że warunek w głównej procedurze wyjkonuje się jedynie gdy nie ma arkusza o danej nazwie. W przeciwnym wypadku nie robi nic. Proponuje dodać "w przeciwnym wypadku - gdy warunek jest niespełniony" czyli Else i ustawić temp na istniejący arkusz o danej nazwie. Z tym że wyjąć...
Mam jednak pytanie jak to się dzieje że wkleja to w odpowiednie miejsce? Cały mechanizm makra polega na przechodzeniu krokowym (założyłem wstępnie od wiersza 1 do 10 - ale to można odpowiednio dostosować do potrzeb) wzdłuż kolumn arkusza 1 i porównywaniu wartości z odpowiednimi komórkami arkusza 2 :D Jeśli makro napotka w którymś wierszu inne wartości...
W komórkach J3:L3 wpisujesz wartości alternatywne, które zastąpią te z WYSZUKAJ.PIONOWO. Jeśli te komórki zostawisz puste lub będzie tam wartość nieliczbowa, to pozostaje wynik pierwotny z WYSZUKAJ.PIONOWO.
pokazyje błąd. Nie powinno tak być, albo nie rozumiem. WYSZUKAJ.PIONOWO(A1;Y!A:B;2;0) tylko wtedy, jeśli LICZ.JEŻELI(Y!A:A;A1)>0 Innymi słowy jeśli w Y jest, w przeciwnym razie zapisz ""(empty string) Czy możliwe by nie zmieniał komórki Arkusza X. jesli nie wyszuka w Arkuszu Y odpowienika ? Nie, bo jesteśmy wszystkie formuły przepisze w klatki kolumny...
W arkuszu z pięcioma obszarami scalonymi nadal dobrze wskazuje ilość komórek dla każdego obszaru O ile obszary te nie stanowią ciągłej grupy, czyli są rozdzielone przynajmniej jednym wierszem i/lub kolumną, czyli stanowią pięć oddzielnych obszarów w arkuszu. Natomiast jeśli obszary te byłyby zagregowane np. jeden pod drugim, to wtedy " CurrentRegion.Rows.Count...
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...
Na początek terminologia: w Excelu skoroszyt (czyli to co jest zapisane w pliku) dzieli się na arkusze (nie zakładki). Co do meritum pytania. Można takie kopiowanie zrobić hurtem (od razu wszystkie komórki). Wtedy należy użyć funkcji TRANSPONUJ i jako argument podać cały zakres do skopiowania. Jeśli masz starszego Excela trzeba to zatwierdzić tablicowo...
[syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range For Each Komorka In Target.Cells Select Case Komorka.Value Case "D49", "D48", "D30", "D31", "D32", "D33", "D20", "D21", "D22", "D26", "D27", "D28", "D29" Komorka.Interior.Color = vbBlue Case "PL" Komorka.Interior.Color = vbYellow Case Else Komorka.Interior.Pattern =...
Na tej liście w Arkuszu1 brakuje komórki z kolumny E. Mam nadzieję, że to nie przeoczenie. Ponieważ łatwiej jest kopiować po kolei, więc wykonuję to jedno dodatkowe kopiowanie w pętli, a później nadpisuję skopiowaną wartość. A tak w ogóle to powinien być Twój załącznik! Proponuję taki kod (też uruchamiany dwuklikiem w wierszu, z którego chcemy kopiować):...
Cześć wam. Pomagam koledze, który prowadzi wulkanizację z przechowalnią opon i robię mu w LibreOffice Calc dokument do indeksowania przechowywanych opon. W załączeniu plik, który zrobiłem. Mam tutaj 4 problemy: *1* czy można ustawić parametry dokumentu tak, aby każdego nowego klienta dopisywać na samej górze, aby nie przewijać całej listy na dół przy...
Jak napisał (at)kkknc - taka funkcja nie istnieje. Przy użyciu klucza wyświetla się numer komórki pamięci, w której ten klucz jest zapisany. Jest to po to, by administrator mógł usunąć tylko dany klucz bez konieczności re-programowania wszystkiego od nowa. Jeśli już musisz, to da się to zrobić poprzez przypisanie do każdego lokalu tylko jednego klucza...
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...
Oto projekt. Początkowo Pan otworzyć i odczytać z makrami.(na otwarcie i zamknięcie książki) i poprawi stałych (bo nie mogę odgadnąć nazwy plików). Następnie skopiuj makra do prawdziwych plików Interesuje mnie jak długo potrwa pracy makro, ponieważ kopiowanie w komórki z formatowaniem (kolor, czcionki) zajmuje znacznie więcej czasu niż w komórki niesformatowany....
potrzebuję każdy wodomierz rozpisać oddzielnie i nie łączyć ciepłej wody w kuchni z ciepłej wody w łazience. Musi być każdy osobno. Kobitki, to takie marudy są odrobinę ... :| ... "Ułatwianie sobie życia" - dodać jedną kolumnę w arkuszu ''Arkusz1'' na "indeks" wylistowujący "adreso-wskazania" wodomierzy, np. w kolumnie ''E'' - i tak przecież są tam...
Zerknij wpierw tutaj, czy cokolwiek by ci się nadało do adaptacji pod twoje potrzeby: https://www.elektroda.pl/rtvforum/topic3... https://www.elektroda.pl/rtvforum/topic3...
Rozumiem, że chcesz to zrobić tekstowo :D No więc tak: Otwierasz nowy dokument (tutaj jest akurat LibreOffice , ale może MSOffice,OpenOffice lub inny)Klikasz na mały biały prostokącik (Rys,Lekcja1) http://obrazki.elektroda.pl/1146741900_1... zaznaczony jako (1).Wszystkie komórki podświetlą ci się na niebiesko.Wybierasz później Format...
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
Tabelkę wstawisz [syntax=vbscript]ActiveDocument.Tables.A... Range:=Selection.Range, NumRows:=2, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavi... możesz bezpośrednio z excela skopiować jakiś zakres i wkleić do worda, też otrzymasz tabelkę. Kolor słów/liter łatwo zmienisz w excelu (zastosuj to do komórki z tekstem "KolorTest") [syntax=vbscript]Cells(x,...
Witam, mogl by mi ktos pomoc i z edytowac makro ktore powinno kopiowac wartosc okreslonej komorki "f1" z arkusza "Handover" do drugiego skoroszytu "C:\Goods In\Goods In Data_ DO NOT DELETE__" w kolejna wolna komorke "A" arkuszu "Blue" potem zapisal i zamknal plik i powrocil do "handover" Mam ponizsze makro, ale ono kopiuje wartosci do arkuszu "Blue"w...
Do While ... Loop jest niewłaściwym warunkiem. Pętla For Each ... Nex przeszuka wszystkie komórki zakresu, natomiast wybór komórki z tekstem 6-cio znakowym powinien nastąpić przez If ... End if.
Nie bardzo rozumiem problem, bo piszesz nieprecyzyjnie. Moim zdaniem wszystko działa prawidłowo. Jeśli chcesz kopiować z innego pliku, oba pliki muszą być otwarte w tej samej instancji Excela. Nie można odwoływać się do danych w zamkniętym pliku. Błąd #ARG! występuje, gdy dane z drugiego pliku są niedostępne. Czy to jest ten błąd typu danych, o którym...
Nagraj makro w exelu jak wysyłasz wiadomość outlukiem, krok po kroku. Adres do wysłania bierzesz z komórki exela i wszystko co potrzebujesz. Będziesz miał kod. Potem można pozamieniać co trzeba aby działało np. tak że podajesz wiersz z adresem i samo wysyła. Tu też masz opis: https://support.microsoft.com/pl-pl/offi...
potrzebuje uzyskać kod w Vba Zacznij od rejestrowania makr.
Można szukać różnych rozwiązań, ale przede wszystkim potrzebny jest załącznik, żeby było widać jak te dane są sformatowane, czy wszystkie jednakowo (np zł czy PLN), czy są tylko te dwie waluty, czy zawsze jest wpisana waluta. Poza tym istotne jest do czego ma służyć wynik - czy tylko do oglądania, czy do jakichś dalszych obliczeń. Czy poza oznaczeniem...
Hej, nie wiem czy dokładnie o to Ci chodziło ale zrobiłem coś takiego: Sub kopiowanie_kolumn() Workbooks("plikA").Activate Dim nazwa As String Dim i As Integer Dim finalrow finalrow = Range("A1").End(xlToRight).Column nazwa = InputBox("Wprowadź nazwę kolumny: ") For i = 1 To finalrow If Cells(1, i) = nazwa Then Cells(2, i).Select Range(Selection, Selection.End(xlDown)).Select...
Jeśli koniecznie chcesz przenosić wartość jednej komórki do drugiej przy użyciu makra - to po zarejestrowaniu edytuj to makro i skoryguj wklejanie ze schowka (zapisana jedna wartość :D ) na wklejanie wartości komórki pierwotnej. Znacznie prostszy sposób przenoszenia wartości z jednej komórki do drugiej to łączenia typu d10 = a1 :!:
kopiowanie formuły komórki kopiowanie wartości komórki excel kopiowanie wartości komórki
client novell zgemma ustawienia tunera karta pamięci uszkodzona
sg3525 spawarka schemat sg3525 spawarka schemat
Zamiennik potencjometru posuwu drutu 47 KA Słabe działanie spryskiwacza tylnej szyby w Passacie B5 kombi