-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
válasz Cufter #12871 üzenetére
Ez a makró a Gyűjtő nevű lap A oszlopába másolja egymás alá a jelölt cellák tartalmát.
Sub másol()
usor = Sheets("Gyűjtő").Cells(Rows.Count, "A").End(xlUp).Row + 1
Selection.Copy Sheets("Gyűjtő").Cells(usor, 1)
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Cufter #12873 üzenetére
Ehhez meg kell adnod a fix cellák helyét, és azt is, melyik sorba másoljon.
A képletet vigye át, vagy a képlet eredményét?
"egy gomb megnyomására a másik lapra egymás melletti cellálkba másolja mindig a következő új sorba, tehát a lista lefelé bővüljön" Ezt már az előbb sem értettem.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Cufter #12875 üzenetére
usor = Sheets("Cégek").UsedRange.Rows.Count
uoszlop = Sheets("Cégek").UsedRange.Columns.CountEzekhez adsz 1-et. a másolás helye:
sheets("Cégek").cells(usor+1,uoszlop+1)[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Cufter #12875 üzenetére
Sub masol()
Range("A1:C18").Copy
Sheets("Cégek").Activate
usor = ActiveSheet.UsedRange.Rows.Count
uoszlop = ActiveSheet.UsedRange.Columns.Count
Cells(usor + 1, uoszlop + 1).Activate
Selection.PasteSpecial Paste:=xlValues
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest