Just nu i M3-nätverket
Gå till innehåll

Freppa87

Medlem
  • Antal inlägg

    2
  • Gick med

  • Senaste besök

Om Freppa87

  • Medlemstitel
    Nykomling

Senaste profilbesöken

Blocket med senaste besökare är inaktiverat och visas inte för andra besökare.

  1. Hej, jag har x antal flikar där jag har olika färgscheman på kolumnerna. Jag tycker det är rörigt att behöva gå igenom varje enskild flik för att få fram dessa. Min tanke är att jag har gjort en summeringsflik (blad1) som har Variabler i y-led och fliknamn i x-led. Jag har försökt anpassa denna koden men får att att indexet är utanför intervall. Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 2 To WS_Count Worksheets("Blad" & I).Range("A2:A31").Interior.Color = Worksheets("Blad1").Range("B2:B31").Interior.Color Next I End Sub Jag har fortfarande inte löst hur jag skall göra för att ändra rangen för andra Range satsen, då den skall även skall stega ett steg per iteration. //Fredrik
  2. Hej, jag sitter med ett problem som jag undrar om någon kan hjälpa mig med. Jag har en kontrollkolumn A som har 30 celler med text och sedan Kolumnerna B C och D som är 40, 80, 200 långa. Mitt problem är hur man går till med att jämföra A mot B,C,D med färgkodning. Tanken är att om A cell 1 finns i B cell 10 så skall den färgas grönt. Har mycket basic kunskap om VBA, skulle vara tacksam för lite guidance. Sub ColorExist() For each cell in Range("A2:A31) for i = 1 to 3 if cell.value = cell.offset(0, i). value then cell.interior.color = x1rgbcolor.rgblightgreen end if next i next cell end sub Antagenden som jag gör är att den bara kommer gå längden av Range("A2:A31") dvs 30 gånger, hur gör jag isåfall om jag vill att den går igenom längden av varje kolumn jämtemot kontrollkolumnen? Sen skulle jag vilja ha en summering av antalet hittade värden, dvs förekomsten av kontrolltabellen i kolumn B, C och D. Tackar i förväg, Fredrik
×
×
  • Skapa nytt...