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

• #7862 Fire/SOUL/CD félisten Sickboy25 #7861

  Új Válasz 2010-08-04 22:28:27 #7862

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Sickboy25 #7861 üzenetére

  Hali!

  Akkor ami fontos ilyen esetben: Ha cellaegyesítést használsz, akkor az adatsorod utolsó sora, mindig az, mint amikor nincs cellaegyesítés.
  Te a kódban R2 : R222 tartományt adtál meg(mert az Excel ilyenkor ezt jelzi ki, ha ráállsz az utolsó egyesített cellára), de ez nem igaz, mert az utolsó cella az a 225-ös...(Be is írtam a makróba) Remélem így érthető...Épp ezért nem kellett a makrón módosítani(legalábbis ebből a szempontból), ha erre odafigyelsz, akkor kifogástalanul működik.

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  Dim MyFxs As WorksheetFunction
  Set MyFxs = Application.WorksheetFunction
  Dim MyRange As Range
  Set MyRange = Range("R2:R225")
  Dim Nth As Integer
  Nth = 3
  
  If Not Intersect(MyRange, Range(Target.Address)) Is Nothing Then
  Application.ScreenUpdating = False
  MyRange.Select
  MyRange.Interior.ColorIndex = 0
  For i = 1 To Nth
  What = MyFxs.Large(MyRange, i)
  For j = MyRange.Row To MyRange.Cells.Count
  If Cells(j, MyRange.Column) = What Then
  Cells(j, MyRange.Column).Select
  Selection.Interior.ColorIndex = 37
  End If
  Next j
  Next i
  Range(Target.Address).Select
  Application.ScreenUpdating = True
  End If
  
  End Sub

  Fire.

  [ Szerkesztve ]

  Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

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