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: 70194 Skopiuj do schowka 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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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
Cytat:
[ code][/code]
_________________
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 ? :roll:
_________________
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
tomason1991
Starszy Forumowicz


Posty: 38
Wysłany: 23-02-2021, 19:28   

Ok 3 zamiast 1 - bo to oznaczenie nr kolumny.
ID posta: 400924 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