Søg
Avatar billede rabitjosph Juniormester
21. april 2007 - 15:37 Der er 7 kommentarer og
1 løsning

For Each

Range("f2", Range("f2").End(xlDown)).Select
Set CompareRange = Sheets("Ark2").Range("f2:F6")
For Each y In CompareRange
If x = y And x.Offset(0, 10) = y.Offset(0, 10) Then y.Offset(0, -4).Copy (x.Offset(0, -4))

"If x=y o.s.v. SKAL STÅ PÅ SAMME LINIE !
Hvorfor kan jeg ikke splitte denne op ? "
       
Next y
Next x
Avatar billede nielle Nybegynder
21. april 2007 - 15:52 #1
Sådan?

For Each y In CompareRange
    If x = y And x.Offset(0, 10) = y.Offset(0, 10) Then
        y.Offset(0, -4).Copy (x.Offset(0, -4))
    End If
End For
Avatar billede rabitjosph Juniormester
21. april 2007 - 16:00 #2
Jaaa

For Each y In CompareRange
    If x = y And x.Offset(0, 10) = y.Offset(0, 10) Then
        y.Offset(0, -4).Copy (x.Offset(0, -4))
        y.Offset(0, -4) = date " Den er ny"
    End If
End For

Next y  " den siger fejl på Next X
Next x
Avatar billede rabitjosph Juniormester
21. april 2007 - 16:01 #3
Next Y sorry

For Each y In CompareRange
    If x = y And x.Offset(0, 10) = y.Offset(0, 10) Then
        y.Offset(0, -4).Copy (x.Offset(0, -4))
        y.Offset(0, -4) = date " Den er ny"
    End If
End For

Next y  " den siger fejl på Next y
Next x
Avatar billede nielle Nybegynder
21. april 2007 - 16:06 #4
Hvis du skriver din

If ... Then ...

- på een linje, kan du nøjes med det.

Men! Hv is den skal skrives over mere end een linje, skal der en End If med:

If ... Then
    ...
    ...
    ...
End If
Avatar billede nielle Nybegynder
21. april 2007 - 16:07 #5
For Each ska endes på "Next" ikke på "End For" som jeg kom til at skrive:

For Each y In CompareRange
    If x = y And x.Offset(0, 10) = y.Offset(0, 10) Then
        y.Offset(0, -4).Copy (x.Offset(0, -4))
    End If
Next
Avatar billede brynil Nybegynder
21. april 2007 - 16:30 #6
Hvor og hvad har du defineret x til?
Avatar billede rabitjosph Juniormester
21. april 2007 - 16:31 #7
Nielle
Den er bare 10-4 nu Big Thx, så kom med et svar
Avatar billede nielle Nybegynder
21. april 2007 - 16:46 #8
Svar :^)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
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 går 13:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
22/0720:19 DVB T2 tuner med optagefunktion Af ErikHg i Andet hardware
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
White papers
Flere white papers »