Przesunięty przez: Kaper
10-01-2023, 22:45 |
Jak przenieść zawartość wiersza do wskazanego w G1 zeszytu |
| Autor |
Wiadomość |
Tajan
Pomógł: 5234 razy
Posty: 11412
|
 Wysłany: 23-01-2023, 18:25
|
|
|
| Załącz jeszcze raz plik. Sprawdzę co namieszałeś. |
|
 | ID posta:
424490
|
|
|
 |
|
|
|
|
madasz 
Fan Excela
Wersja: Win Office 2016
Posty: 87
|
| Wysłany: 23-01-2023, 18:28
|
|
|
OK!
new.xlsb
|
 Pobierz Plik ściągnięto 7 raz(y) 191.16 KB |
|
|
 | ID posta:
424491
|
|
|
|
|
|
|
Tajan
Pomógł: 5234 razy
Posty: 11412
|
| Wysłany: 23-01-2023, 19:05
|
|
|
Ja tak widziałbym to makro:
| Kod: | Sub Wstaw_Tytuł()
'
' Wstaw_Tytuł Makro
Dim mojArkusz As String
mojArkusz = Sheets("Dialog").Range("D19").Value
'===========================lista========================
With Sheets("lista")
.Range("G1").Value = mojArkusz
.Range("B1:H1").Copy
.Range("B6500") _
.End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
'====================== i sortuj po wstawieniu=====
With .Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B7:B6500"), _
SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortTextAsNumbers
.SetRange Range("B7:h6500")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'====================== segment 2=====
.Range("b1:f1").Copy
Sheets(mojArkusz).Range("B1000") _
.End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
.Range("h1").Copy
Sheets(mojArkusz).Range("B1000") _
.End(xlUp).Offset(0, 5).PasteSpecial Paste:=xlValues
.Range("A3").Select
End With
Application.CutCopyMode = False
End Sub
|
Nie wiem, czy dobrze zrozumiałem intencje.
new (1).xlsb
|
| Pobierz Plik ściągnięto 9 raz(y) 183.64 KB |
|
|
| ID posta:
424494
|
|
|
|
|
|
madasz
Fan Excela
Wersja: Win Office 2016
Posty: 87
|
| Wysłany: 23-01-2023, 19:24
|
|
|
Makro zmniejszyło się.
Ta data w komórce a1 jest pobierana w innych arkuszach.
ale będzie ok! |
|
| ID posta:
424495
|
|
|
|
|
|
Tajan
Pomógł: 5234 razy
Posty: 11412
|
| Wysłany: 23-01-2023, 20:14
|
|
|
| A data nie może być pobierana z D1? |
|
| ID posta:
424498
|
|
|
|
|
|
madasz
Fan Excela
Wersja: Win Office 2016
Posty: 87
|
| Wysłany: 23-01-2023, 20:57
|
|
|
| W d1 wpisałem dziś() zobaczę jak będzie dalej. |
|
| ID posta:
424501
|
|
|
|
|
|
madasz
Fan Excela
Wersja: Win Office 2016
Posty: 87
|
| Wysłany: 23-01-2023, 21:08
|
|
|
Ja ten plik do analizy okroiłem z makr tworzonych wcześniej i takich "perełek" jakie były w mojej wersji
poprawionej przez Ciebie może być więcej. Staram się jakoś sobie radzić, czasami przy Waszej pomocy. |
|
| ID posta:
424502
|
|
|
|
|
|
|
|
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
|
|
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
|
Regulamin
