Avatar billede rosco Novice
20. oktober 2009 - 11:47 Der er 1 løsning

formel med VBA i navngivet område

jeg Importere data til kolonne A til D, som opdateres hver dag med stigende rækkeantal
I kolonne E vil jeg have en formel. Men kun ud for de sidste 60 rækker med data i kolonne A som er et Dynamisk navngivet område der hedder "ChtCats_365_S1"
Jeg ønsker ikke formler ud for alle rækker da det er ca 30.000 på nuværende tidspunkt.

Har kigget på denne, men det lykkedes mig ikke at rette den til

Private Sub Worksheet_Change(ByVal Target As Range)
  rk = ActiveCell.SpecialCells(xlLastCell).Row
  kol = ActiveCell.SpecialCells(xlLastCell).Column
  For t = 1 To rk
        Cells(t, kol + 1).Formula = "=A" & t & "+B" & t
  Next t

Kan nogen hjælpe
Avatar billede rosco Novice
20. oktober 2009 - 13:51 #1
Jeg fandt en løsning:

Dim C As Range
'marker celle A6:A95
Sheets("365_S1").Range("ChtCats_365_S1").Select
For Each C In Selection.Cells
'hvis en celle i kolonne A indeholder et l farves kolonne G til k i samme række grøn.
    If C.Value > 1 Then
        'farv cellen i kolonne I med farve 3
        C.Offset(0, 6).Formula = "=MIN(Cht365_S1_Val1)"
End If
Next
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat