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

• #37284 Fferi50 Topikgazda spe88 #37263

  Új Válasz 2018-02-07 19:36:14 #37284

  Ú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

  

  Fferi50

  Topikgazda

  válasz spe88 #37263 üzenetére

  Szia!

  Értékké átalakításhoz nem kell copy - paste makró esetén, egyszerűen ez a sor megoldja:
  Range("a1:aq50000").Value=Range("a1:aq50000").Value

  Fontos, hogy ugyanoda szeretnéd az értéket visszaírni. Szerintem nem lehet nagy az időigénye sem, mivel csak a meglevő cellaértéket kell visszaírni.

  Üdv.

• #37265 vgyuri őstag spe88 #37263

  Új Válasz 2018-02-06 11:46:24 #37265

  Ú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

  

  vgyuri

  őstag

  válasz spe88 #37263 üzenetére

  Nekem így gyorsan megcsinálta a másolást és értékként beillesztést:

  Sub Ertekekmasolasa()
Range("A:B").Copy
Range("A:B").PasteSpecial Paste:=xlPasteValues
End Sub

• #37264 Delila_1 veterán spe88 #37263

  Új Válasz 2018-02-06 10:55:08 #37264

  Ú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 spe88 #37263 üzenetére

  Az első kérdésedre:

  Sub Szures_Torles()
Dim tartomany As String, usor As Long

tartomany = Range("AH1").CurrentRegion.Address
ActiveSheet.Range(tartomany).AutoFilter Field:=1, Criteria1:="ok"
usor = Range("AH" & Rows.Count).End(xlUp).Row
Rows("2:" & usor).Delete Shift:=xlUp
ActiveSheet.Range(tartomany).AutoFilter Field:=1
End Sub

  A másodikhoz nem kell makró. Kijelölöd a területet. Ha nincsenek a területen belül teljes üres sorok, vagy teljes üres oszlopok, akkor a tartomány bármelyik celláján állva a Ctrl+a (all), vagy a Ctrl+t (táblázat) kijelöli az egészet. Másolás (Ctrl+c), jobb klikk, irányított beillesztés, értékeket.

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