Søg
Avatar billede splokit Nybegynder
25. oktober 2005 - 18:11 Der er 2 kommentarer og
1 løsning

Macro hjælp/ VB

http://www.eksperten.dk/spm/658024

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
If Target <> "" Then Target.offset(0,3) = Now()
End If
End Sub

virker som det skal men ikke hvis man skal have det sådan
hvad med nogle spring!?
som der er i mit ark...
her er de celler som skal være omfattet den formel
Værdi her I137:I204 =nu() i O137:O204
Værdi her I207:I274 =nu() i O207:O274
Værdi her I277:I343 =nu() i O277:O343
Værdi her I346:I412 =nu() i O346:O412
Værdi her I415:I481 =nu() i O415:O481
Værdi her I484:I481 =nu() i O484:O550
Værdi her I553:I617 =nu() i O553:O617
Og man kan ikke slette de rækker hvir man har den data i uden den vil lave debug kan kun slette hvis man sletter en celle af gangen
Avatar billede bak Forsker
25. oktober 2005 - 18:23 #1
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng As Range
If Target.Cells.Count <> 1 Then Exit Sub
Set rng = Range("I137:I204,I207:I274,I277:I343,I346:I412,I415:I481,I484:I481,I553:I617")
If Not Intersect(Target, rng) Is Nothing Then
    Target(1, 7) = Now()
End If
End Sub
Avatar billede splokit Nybegynder
25. oktober 2005 - 18:27 #2
Lækkert det var jo lige til.. Takker...
Avatar billede bak Forsker
25. oktober 2005 - 18:40 #3
ok :-)
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
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 I går 22:04
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 11:47 VB script Af Jenshentze i Word
I dag 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
04/0913:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
White papers
Flere white papers »