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

• #52880 gycs02 tag Fferi50 #52879

  Új Válasz 2024-06-26 09:40:19 #52880

  Ú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

  

  gycs02

  tag

  válasz Fferi50 #52879 üzenetére

  Szia!
  Így már érthető, hogy mindegy mit írok oda, ugyanis olyan nincs hogy aw13-ban van adat, ba 13-ban meg nincs. Vagyis ha bármelyik sorba írok, akkor az a sor ba-ig töltve van.

  Viszont a látható-val csak gondjaim vannak, a Tiéd azt csinálja, hogy a szűrt tartomány helyett csak az első cellákba (összevont 1-4 és az 5.) tesz x-t. Ezek látható cellák, de a szűrt tartományon kívül esnek, a nem látható 6-12 cellákat figyelmen kívül hagyja.
  Az átírt makró:
  Dim elso As Integer, utolso As Integer, srng As Range, cl As Range
  elso = 13 ' Ide azt a számot írd, ahol a szűrés kezdődik
  utolso = Range("cj" & Rows.Count).End(xlUp).Row
  Set srng = Range("cj" & elso & ":cj" & utolso) ' ha nem összefüggő a szűrt terület, cellánként kell végigmenni sajnos.
  For Each cl In srng.Columns(1).SpecialCells(xlCellTypeVisible).Cells
  cl.Value = "x"
  Next

  #52876Delila_1
  Szia!
  Azt nem értem, hogy miért nem vettem észre tegnap, hogy a Tiéd is azt csinálja, mint a fenti, annyi különbséggel, hogy ez beírja oda is ahová kell.

  Annyi történt tegnap óta, hogy 3 oszlopban alkalmazom a beírást, s amikor próbáltam a működést, még csak az egyik gombhoz rendelt makrót javítottam, ma pedig aktualizáltam mind a hármat.
  Amit a Tiedből készítettem makrót:
  Dim elso As Integer, utolso As Integer
  elso = Range("cj13:cj1145").SpecialCells(xlCellTypeVisible).Row
  utolso = Range("cj" & Rows.Count).End(xlUp).Row
  If elso = utolso Then
  Range("cj" & elso) = "x"
  Else
  Range("cj" & elso & ":cj" & utolso).SpecialCells(xlCellTypeVisible) = "x"
  End If

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