ID tematu: 70194
 |
Autowypełnienie do ostatniej komórki z lewej |
| Autor |
Wiadomość |
tomason1991
Starszy Forumowicz
Posty: 38
|
 Wysłany: 20-02-2021, 13:48 Autowypełnienie do ostatniej komórki z lewej
|
|
|
Witam,
Pytanie trywialne, ale dopiero zaczynam pracę z VBA. Nigdzie nie mogę znaleźć tematu.
Makro powinno przeciągnąć formułę wpisaną w B2 do ostatniej komórki z kolumny A.
Pozdrawiam
1.JPG
|
 |
| Plik ściągnięto 1 raz(y) 28.83 KB |
2.JPG
|
 |
| Plik ściągnięto 0 raz(y) 18.18 KB |
|
|
 | ID posta:
400736
|
|
|
 |
|
|
|
|
Marecki 
Excel Expert
Wersja: Win Office 2019
Pomógł: 2494 razy
Posty: 8280
|
| Wysłany: 20-02-2021, 14:20
|
|
|
| Kod: | | Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=2*RC[-1]" |
lub | Kod: | Range("B2").FormulaR1C1 = "=2*RC[-1]"
Range("B2").AutoFill Destination:=Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row) |
|
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.
Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki. |
| |
|
 | ID posta:
400740
|
|
|
|
|
|
|
tomason1991
Starszy Forumowicz
Posty: 38
|
| Wysłany: 20-02-2021, 16:00
|
|
|
Dziękuję za poprawną odpowiedź.
Mam dodatkowe pytanie.
Nagrałem makro w którym wypełniłem automatycznie kolumny G:H
zdj3
Pomimo że Range("G3:H3000") to makro i tak uzupełniło formuły G3:H3897.
zdj4
Dlaczego nie wypełniło do wiersza 3000 tylko prawidłowo do końca wiersz 3897?
3.JPG
|
 |
| Plik ściągnięto 1 raz(y) 21.64 KB |
4.JPG
|
 |
| Plik ściągnięto 6 raz(y) 56.09 KB |
|
| |
|
| ID posta:
400746
|
|
|
|
|
|
Marecki
Excel Expert
Wersja: Win Office 2019
Pomógł: 2494 razy
Posty: 8280
|
| Wysłany: 20-02-2021, 16:42
|
|
|
tomason1991, przeczytaj i zastosuj http://www.excelforum.pl/...ika-vt59262.htm
A funkcje i kody makr umieszczaj w znaczniku |
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.
Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki. |
|
| ID posta:
400747
|
|
|
|
|
|
tomason1991
Starszy Forumowicz
Posty: 38
|
| Wysłany: 20-02-2021, 20:01
|
|
|
Przepraszam
| Kod: | Columns("E:F").Select
Selection.Copy
Range("G1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("G3").Select
ActiveCell.FormulaR1C1 = "=ROUNDDOWN(RC[-2]*0.7,0)"
Range("H3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/1.23"
Range("G3:H3").Select
Selection.AutoFill Destination:=Range("G3:H3000") |
Makro generuje plik w załączeniu.
pracowniczy.xlsx
|
 Pobierz Plik ściągnięto 5 raz(y) 209.55 KB |
|
|
| ID posta:
400760
|
|
|
|
|
|
Marecki
Excel Expert
Wersja: Win Office 2019
Pomógł: 2494 razy
Posty: 8280
|
| Wysłany: 20-02-2021, 20:29
|
|
|
| tomason1991 napisał/a: | | Pomimo że Range("G3:H3000") to makro i tak uzupełniło formuły G3:H3897 |
Nieprawda. Formuły masz wstawione do wiersza 3000, poniżej masz już wartości - stałe, które są efektem instrukcji Copy.
Staraj się pozbyć Select-ów po nagraniu makra. | Kod: | Columns("E:F").Copy Range("G1")
Range("G3").FormulaR1C1 = "=ROUNDDOWN(RC[-2]*0.7,0)"
Range("H3").FormulaR1C1 = "=RC[-1]/1.23"
Range("G3:H3").AutoFill Destination:=Range("G3:H3000") |
Ale i tak nie rozumiem po co kopiowanie, skoro i tak nadpisujesz te dane formułami ?  |
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.
Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki. |
|
| ID posta:
400762
|
|
|
|
|
|
umiejead
Excel Expert
Wersja: Win Office 2013
Pomógł: 771 razy
Posty: 4155
|
| Wysłany: 20-02-2021, 20:54
|
|
|
Też nie rozumiem. Sprawdź.
| Kod: | Option Explicit
Private Sub CommandButton1_Click()
Dim d&, i&
d = Cells(Rows.Count, "G").End(xlUp).Row
Range("G3:H" & d).ClearContents
For i = 3 To 3000
Cells(i, 7).Value = Application.WorksheetFunction.RoundDown(Cells(i, 5).Value * 0.7, 0)
Cells(i, 8).Value = Cells(i, 7).Value / 1.23
Next i
End Sub |
PS. Wartości w kol. H na pewno pewno mają być obliczane na podstawie wartości w klol. G?
.
Kopia pracowniczy-1.xlsm
|
| Pobierz Plik ściągnięto 1 raz(y) 210.13 KB |
|
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie. |
|
| ID posta:
400763
|
|
|
|
|
|
tomason1991
Starszy Forumowicz
Posty: 38
|
| Wysłany: 21-02-2021, 16:53
|
|
|
| Dziękuje za odpowiedzi. Wszystko jasne już. Macie rację. Mój błąd. |
| |
|
| ID posta:
400801
|
|
|
|
|
|
tomason1991
Starszy Forumowicz
Posty: 38
|
| Wysłany: 23-02-2021, 19:04
|
|
|
Głupi jestem i nie potrafię samemu.
To jest auto-wypełnienie na podstawie ostatniej komórki w kolumnie A:
| Kod: | Range("B2").FormulaR1C1 = "=2*RC[-1]"
Range("B2").AutoFill Destination:=Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row) |
A jak będzie odwrotnie - czyli w Kolumnia A chcę auto-uzupełnienia do ostatniej komórki w kolumnie B. |
| Ostatnio zmieniony przez tomason1991 23-02-2021, 19:29, w całości zmieniany 1 raz |
|
| ID posta:
400923
|
|
|
|
|
|
tomason1991
Starszy Forumowicz
Posty: 38
|
| Wysłany: 23-02-2021, 19:28
|
|
|
| Ok 3 zamiast 1 - bo to oznaczenie nr kolumny. |
|
| ID posta:
400924
|
|
|
|
|
|
|
|
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
