Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 68488 Skopiuj do schowka Proste marko do zapisu danych z komórek
Autor Wiadomość
majczekolaj
Starszy Forumowicz


Posty: 35
Wysłany: 10-07-2020, 15:30   Proste marko do zapisu danych z komórek

Cześć,

czy mógłby mi ktoś proszę pomóc z napisaniem makra do zapisu wartości z komórek

w Sheet1 w komórkach L4, M4, N4 mam dane które chciałbym zapisać w Sheet2 zaczynając od komórki A1

kolejne zapisy 'użycie makra' dopisywałoby kolejne wiersze w Sheet2

Dzięki za pomoc
ID posta: 389559 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1882 razy
Posty: 5479
Wysłany: 11-07-2020, 07:47   

Najprościej to np tak:
Kod:
 Sub wstaw()
Dim ost&, i&
Dim razem As Variant
    razem = Range("L4").Value & Range("M4").Value & Range("N4").Value
    If razem = "" Then Exit Sub
With Sheets("Arkusz2")
    ost = .Cells(Rows.Count, "A").End(xlUp).Row + 1
    For i = 2 To ost
        If .Cells(i, 1).Value & .Cells(i, 2).Value & .Cells(i, 3).Value = razem Then
            MsgBox "Takie dane znajdują się już w Arkuszu 2.", vbInformation, "Informacja"
            Exit Sub
        End If
    Next
    .Cells(ost, 1).Value = Range("L4").Value
    .Cells(ost, 2).Value = Range("M4").Value
    .Cells(ost, 3).Value = Range("N4").Value
End With
End Sub
Zobacz w załączniku.

Wstawianie danych.xlsm
Pobierz Plik ściągnięto 12 raz(y) 16.97 KB

ID posta: 389566 Skopiuj do schowka
 
 
majczekolaj
Starszy Forumowicz


Posty: 35
Wysłany: 12-07-2020, 11:46   

działa, wielkie dzięki! ;-)
ID posta: 389588 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
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:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.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