Új hozzászólás Aktív témák

• #35034 Delila_1 veterán logitechh #35027

  Új Válasz 2017-04-29 08:33:21 #35034

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz logitechh #35027 üzenetére

  Sub mm()
Dim usor As Long

usor = Range("B" & Rows.Count).End(xlUp).Row + 1

'ide jön a "4 oszlopnyi adat" másolása, például
'range("B" & usor-1 & ":E" & usor-1).copy
'Fontos, hogy az irányított beillesztés előtt legyen Copy parancs

Range("B" & usor).PasteSpecial xlPasteValues

usor = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & usor) = Range("A" & usor - 1) + 1
End Sub

  A keretezéshez a tartomány kijelölése

  Range("A1").CurrentRegion.Select

  Még a select sem szükséges.

  With Range("A1").CurrentRegion
.BorderAround LineStyle:=xlContinuous, Weight:=xlMedium
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With

  Ez a makró körbe vastagabb, belül véknyabb szegélyt ad a tartományodnak.

• #35028 poffsoft veterán logitechh #35027

  Új Válasz 2017-04-28 21:26:08 #35028

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  poffsoft

  veterán

  válasz logitechh #35027 üzenetére

  Ha már egyszer megtaláltad az utolsó sort, minden adatod meglesz:
  Cells(usor, 1)=cells(usor-1, 1)+1
  Az irányított beillesztéshez a cells(usor, 2).select kell, utána jöhet a makrórógzítőből a pastespecial.
  A táblázatod pl. a range(cells(2, 1), cells(usor, 12)) lesz...

Új hozzászólás Aktív témák