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
Przesunięty przez: Kaper
02-08-2022, 10:31
Powielanie zakresu danych w zależności od wartości w komórce
Autor Wiadomość
watrak84 
Starszy Forumowicz


Wersja: Win Office 2016
Posty: 32
Wysłany: 01-08-2022, 10:00   Powielanie zakresu danych w zależności od wartości w komórce

Moi Drodzy,
poszperałem tutaj na forum ale nie znalazłem niestety rozwiązania :-/

Potrzebuję makra, które bardzo ułatwi mi pracę z danymi. Chodzi mi o powielanie zakresu danych z w zależności od ustalonej wartości w komórce.

Komórka B3 określa TYP (typ może być określony zakresem np. A1:H5 arkusz Typy)
Komórka B4 określa krotność powielenia danego TYPU

Założenia:
Określone TYPY wklejane są od pierwszego pustego wiersza w kolumnie A (Zestawienie). W tym wypadku będzie to A9. Kopiowane są formaty i formuły.

zestawienie.xlsx
Pobierz Plik ściągnięto 10 raz(y) 10.8 KB

ID posta: 419326 Skopiuj do schowka
 
 
Kaper 



Zaproszone osoby: 2
Wersja: Win Office 365
Pomógł: 4362 razy
Posty: 8612
Wysłany: 02-08-2022, 10:31   

Trochę mi nie psuje opis do formatki, bo najpierw chcesz krotność powielenia danego typu, a potem masz kolumnę C gdzie wpiszesz liczbę mieszkań danego typu i formuły same przeliczą np. łączny metraż płytek w jakichś pomieszczeniach. No ale może tak ma być, bo TYP 1 ma jeszcze podtypy A i B i C albo niby TYP 1 ale różne metraże więc ... oto i makro:

Kod:
Sub test()
Dim wolnywiersz As Long, i As Long, ile As Long
Dim typmieszkania As String, pozycja As Range
Sheets("Zestawienie").Activate
ile = Range("B4").Value
typmieszkania = Range("B3").Value
With Sheets("Typy")
  For i = 1 To ile
    wolnywiersz = Cells(Rows.Count, "D").End(xlUp).Row + 1
    Set pozycja = .Columns("A:A").Find(what:=typmieszkania, lookat:=xlWhole, after:=.Cells(.Rows.Count, "A"))
    pozycja.Resize(5, 8).Copy Cells(wolnywiersz, "A")
  Next i
End With
End Sub


A administracyjnie - temat przenoszę do zadań, bo nie masz problemu z makrem, tylko masz (już nie :-) ) brak makra. Zajrzyj do tematu przyklejonego w każdym z działów (i jeszcze podświetlonego na niebiesko) do czego poszczególne działy służą: https://www.excelforum.pl...z-post-vt74.htm
_________________
Kaper Jej Królewskiej Mości :boss

Jeśli dane będą torturowane dość długo, przyznają się do wszystkiego
ID posta: 419355 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.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