FAQ  Regulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj  Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ Strona Główna » Główna kategoria forum » Mam problem z makrem » Kopiowanie danych z formularza do arkusza excel Poprzedni temat «» Następny temat ID tematu: 74006 Kopiowanie danych z formularza do arkusza excel Autor Wiadomość SZWAJCAR007 Fan Excela Posty: 66 Wysłany: 19-01-2023, 18:41   Kopiowanie danych z formularza do arkusza excel Witam, jak powinien wyglądać kod, który umożliwi przenoszenie danych z pól formularza do wiersza w arkuszu Excel. Przenoszenie do wiersza w arkuszu powinno być tylko wtedy jeżeli jest wartość w polu NR_ASORT_1. Kolejny wiersz powinien być wypełniony jeżeli będzie wartość w polu NR_ASORT_2 i tak dalej dla kolejnych wierszy. Podejrzewam, że powinienem tu zastosować pętlę . poniżej kod jaki mam na tą chwilę Kod: Private Sub ToggleButton1_Click() If MsgBox("Czy na pewno chcesz dodać dane do rejestru", _     vbQuestion + vbYesNo, "Pytanie") <> vbYes Then Exit Sub Dim NowyWiersz As Integer NowyWiersz = Sheets("Dane_baza").UsedRange.Rows.Count + 1 Sheets("Dane_baza").Range("C" & NowyWiersz).Value = NR_ASORT_1.Value Sheets("Dane_baza").Range("D" & NowyWiersz).Value = PARAGRAF_1.Value Sheets("Dane_baza").Range("E" & NowyWiersz).Value = ŻR_FIN_WYD_NAZWA_1.Value Sheets("Dane_baza").Range("F" & NowyWiersz).Value = ŻR_FIN_WYT_1.Value Sheets("Dane_baza").Range("G" & NowyWiersz).Value = DZIAŁ_1.Value Sheets("Dane_baza").Range("C" & NowyWiersz).Value = NR_ASORT_2.Value Sheets("Dane_baza").Range("D" & NowyWiersz).Value = PARAGRAF_2.Value Sheets("Dane_baza").Range("E" & NowyWiersz).Value = ŻR_FIN_WYD_NAZWA_2.Value Sheets("Dane_baza").Range("F" & NowyWiersz).Value = ŻR_FIN_WYT_2.Value Sheets("Dane_baza").Range("G" & NowyWiersz).Value = DZIAŁ_2.Value Sheets("Dane_baza").Range("C" & NowyWiersz).Value = NR_ASORT_3.Value Sheets("Dane_baza").Range("D" & NowyWiersz).Value = PARAGRAF_2.Value Sheets("Dane_baza").Range("E" & NowyWiersz).Value = ŻR_FIN_WYD_NAZWA_3.Value Sheets("Dane_baza").Range("F" & NowyWiersz).Value = ŻR_FIN_WYT_3.Value Sheets("Dane_baza").Range("G" & NowyWiersz).Value = DZIAŁ_3.Value End Sub ID posta: 424363 Tajan Pomógł: 5234 razy Posty: 11412 Wysłany: 19-01-2023, 19:21    Najczęściej stosuje się takie rozwiązanie: Kod: Private Sub ToggleButton1_Click() If MsgBox("Czy na pewno chcesz dodać dane do rejestru", _           vbQuestion + vbYesNo, "Pytanie") <> vbYes Then Exit Sub Dim NowyWiersz As Integer Dim i As Long NowyWiersz = Sheets("Dane_baza").UsedRange.Rows.Count + 1 For i = 1 To 3   If Me.Controls("NR_ASORT_" & i).Value <> "" Then     With Sheets("Dane_baza")       .Range("C" & NowyWiersz).Value = Me.Controls("NR_ASORT_" & i).Value       .Range("D" & NowyWiersz).Value = Me.Controls("PARAGRAF_" & i).Value       .Range("E" & NowyWiersz).Value = Me.Controls("ŻR_FIN_WYD_NAZWA_" & i).Value       .Range("F" & NowyWiersz).Value = Me.Controls("ŻR_FIN_WYT_" & i).Value       .Range("G" & NowyWiersz).Value = Me.Controls("DZIAŁ_" & i).Value     End With       NowyWiersz = NowyWiersz + 1   End If Next End Sub ID posta: 424364 SZWAJCAR007 Fan Excela Posty: 66 Wysłany: 19-01-2023, 20:41    Dzięki wielkie. Działa super. O to mi chodziło. ID posta: 424365 Wyświetl posty z ostatnich: Wszystkie Posty15 Minut30 Minut1 Godziny2 Godzin6 Godzin12 Godzin1 Dzień2 Dni3 Dni4 Dni5 Dni6 Dni7 Dni2 Tygodnie1 Miesiąc3 Miesiące6 Miesięcy1 Rok Najpierw StarszeNajpierw Nowsze  Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ Strona Główna » Główna kategoria forum » Mam problem z makrem » Kopiowanie danych z formularza do arkusza excel Nie możesz pisać nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz głosować w ankietach Nie możesz załączać plików na tym forum Możesz ściągać załączniki na tym forum Dodaj temat do Ulubionych Wersja do druku Skocz do: Wybierz forumExcel Forum - Porady, Pomoc, Excel Help, Excel FAQ Strona Główna|--Ogłoszenia|   |--Ważne informacje|--Główna kategoria forum|   |--FAQ - Najczęściej zadawane pytania|   |--Mam problem z formułą|   |--Mam problem z makrem|   |--Tabele przestawne, Power: Pivot, Query, View, Map|   |--Mam problem z wykresem|   |--Jak to zrobić?|   |--Współpraca Excel a inne aplikacje pakietu Office|   |--Zadania z Excela|   |--Google Sheets|   |--Interfejs wstążki MS Office|   |--Konkursy, zagadki, pomysły|   |--Tematy Ogólne|--Problemy dotyczące działania forum  Powered by phpBB modified by Przemo © 2003 phpBB Group Theme xandgreen created by spleen& Programosy modified v0.3 by warna Opieka techniczna www.wip.pl Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe