VBA. Vaelge raekke ud fra fra statement.

Ark6.A.Value
Ark6.F.Value
Ark6.G.Value

A,F og G mangler række nr. ?

det er lige det... scriptet skal finde den række der har værdierne jeg får fra Ark2.L5 og Ark2.L13, og derefter hente en værdi der står i den række...

værdierne i celle L5 og L13 lægges i variabel L5 og L13:
L5 = Sheets("Ark2").Range("L5")
L13 = Sheets("Ark2").Range("L13")

og anvendes således.:
Sheets("Ark6").Range("F" & L5).Value = Sheets("Ark2").Range("L5")
Sheets("Ark6").Range("G" & L13).Value = Sheets("Ark2").Range("L13")

resten må du forklare igen - gir ikke mening for mig

DS Xpress            35401V1C1D0S    16    100    250
DS Xpress            35401V1C2D0S    16    100    500
DS Xpress            35401V1C3D0S    16    100    750
DS Xpress            35401V1C4D0S    16    100    1000
DS Xpress            35401V2C1D0S    32    200    250
DS Xpress            35401V2C2D0S    32    200    500
DS Xpress            35401V2C3D0S    32    200    750
DS Xpress            35401V2C4D0S    32    200    1000

Her kan du se et udsnit af de raekke jeg har. Det der er meningen er at jeg paa forste side vaelger vaerdier (f.eks. 16, 100 og 750), og saa skal excel automatisk hente "35401V1C3D0S" og laegge den vaerdi i en celle. Giver det mening?

forløbig kode som skal rettes til aktuel situation
det fremgår ikke hvor du indtaster opslagsværdier
og hvilke kolonner der skal slåes op i....

Sub Slåop()

Dim x, y, z, rk, t

Sheets("Ark1").Select
x = Cells(2, 1).Value & Cells(2, 3).Value & Cells(2, 4).Value & Cells(2, 5).Value
Sheets("Ark2").Activate
rk = Cells(65500, 1).End(xlUp).Row
For t = 1 To rk
y = Cells(t, 1).Value & Cells(t, 3).Value & Cells(t, 4).Value & Cells(t, 5).Value
If x = y Then z = Cells(t, 2).Value: GoTo ud
Next
ud:
Sheets("Ark6").Activate
Cells(1, 1) = z

End Sub

Jeg faar en fejl...
Subscript out of range -> markerer forste linie: Sheets("Ark2").Select

Vaerdien paa ark 6 kolonne F skal svare til vaerdien paa ark 2 celle L5
Vaerdien paa ark 6 kolonne G skal svare til vaerdien paa ark 2 celle L13
Vaerdien paa ark 6 kolonne H skal svare til vaerdien paa ark 2 celle C16

Hvis der i celle O15 paa ark 2 staar 4 skal vaerdien paa ark 6 kolonne B vaere "DS RealVue Express" - ellers kan den vaere hvad som helst.

Sub Slåop()

Dim x, y, z, rk, t

Sheets("Ark2").Select
x = Cells(5, 12).Value & Cells(13, 12).Value & Cells(16, 3).Value
Sheets("Ark6").Activate
rk = Cells(65500, 1).End(xlUp).Row
For t = 1 To rk
y = Cells(t, 6).Value & Cells(t, 7).Value & Cells(t, 8).Value
If x = y Then z = Cells(t, 5).Value: GoTo ud
Next

ud:
Sheets("Ark4").Activate
Cells(5, 5) = z

End Sub

Skal vel se nogenlunde saadan ud... Men faar altsaa den der debug fejl :-(

har du et ark som hedder Ark2  ?

hehe... min fejl

Sub Slåop()

Dim x, y, z, rk, t

Sheets("Grabadores").Select
x = Cells(5, 12).Value & Cells(13, 12).Value & Cells(16, 3).Value
Sheets("Textos").Activate
rk = Cells(65500, 1).End(xlUp).Row
For t = 1 To rk
y = Cells(t, 6).Value & Cells(t, 7).Value & Cells(t, 8).Value
If x = y Then z = Cells(t, 5).Value: GoTo ud
Next

ud:
Sheets("Totales").Activate
Cells(5, 5) = z

End Sub

men jeg faar ikke noget i min celle E5 paa ark "Totales"... Har tjekket at der er en raekke der passer til mine 3 valg???

Vaerdierne jeg henter fra cellerne paa ark "Grabadores" maa gerne vaere formler?

Altsaa, vaerdien der staar i feltet er regnet ud...

følgende række søger efter sidste værdi i kolonne A

rk = Cells(65500, 1).End(xlUp).Row

den skal måske ændres til kolonne F !

rk = Cells(65500, 6).End(xlUp).Row

eller en anden kolonne hvor dine værdier er

hmm.. nu får jeg bare "FALSK" i den celle...

Sub Slåop()

Dim x, y, name, code, ips, gb, coax, rk, t

If Sheets("Grabadores").Cells(15, 15).Value = 4 Or Sheets("Grabadores").Cells(18, 19).Value = "DSR" Then

Sheets("Grabadores").Select
x = Cells(5, 12).Value & Cells(13, 12).Value & Cells(16, 3).Value
Sheets("Textos").Activate
rk = Cells(65500, 5).End(xlUp).Row
For t = 1 To rk
y = Cells(t, 6).Value & Cells(t, 7).Value & Cells(t, 8).Value
If x = y Then code = Cells(t, 5).Value & name = Cells(t, 2).Value & ips = Cells(t, 7).Value & gb = Cells(t, 8).Value & coax = Cells(t, 6).Value: GoTo ud1
Next

ud1:
Sheets("Totales").Activate
Cells(5, 2) = name
Cells(5, 5) = code
Cells(5, 7) = ips
Cells(5, 8) = gb
Cells(5, 6) = coax
Cells(5, 9) = "HEJ 1"

Else

Sheets("Grabadores").Select
x = Cells(5, 12).Value & Cells(13, 12).Value & Cells(16, 3).Value
Sheets("Textos").Activate
rk = Cells(65500, 5).End(xlUp).Row
For t = 1 To rk
y = Cells(t, 6).Value & Cells(t, 7).Value & Cells(t, 8).Value
If x = y Then code = Cells(t, 5).Value & name = Cells(t, 2).Value & ips = Cells(t, 7).Value & gb = Cells(t, 8).Value & coax = Cells(t, 6).Value: GoTo ud2
Next

ud2:
Sheets("Totales").Activate
Cells(5, 2) = name
Cells(5, 5) = code
Cells(5, 7) = ips
Cells(5, 8) = gb
Cells(5, 6) = coax
Cells(5, 10) = "HEJ 2"

End If

End Sub

mine værdier er:
celle(5,12) -> 4
celle(13,12) -> 100
celle(16,3) -> 80

og der er altså en række der passer til det...

Nogen ideer?

prøv send arket med beskrivelse af hvad koden skal udføre
pm@madsen.tdcadsl.dk

Sub Slåop()

Dim x, y, name, code, ips, gb, coax, rk, t
Application.ScreenUpdating = False
If Sheets("Grabadores").Cells(15, 15).Value = 4 Or Sheets("Grabadores").Cells(18, 19).Value = "DSR" Then

Sheets("Grabadores").Select
x = Cells(5, 12).Value & Cells(13, 12).Value & Cells(16, 3).Value
Sheets("Textos").Activate
rk = Cells(65500, 5).End(xlUp).Row
For t = 1 To rk
y = Cells(t, 6).Value & Cells(t, 7).Value & Cells(t, 8).Value
If x = y Then code = Cells(t, 5).Value: name = Cells(t, 2).Value: ips = Cells(t, 7).Value: gb = Cells(t, 8).Value: coax = Cells(t, 6).Value: GoTo ud1
Next

ud1:
Sheets("Totales").Activate
Cells(5, 2) = name
Cells(5, 5) = code
Cells(5, 7) = ips
Cells(5, 8) = gb
Cells(5, 6) = coax
Cells(5, 9) = "HEJ 1"

Else

Sheets("Grabadores").Select
x = Cells(5, 12).Value & Cells(13, 12).Value & Cells(16, 3).Value
Sheets("Textos").Activate
rk = Cells(65500, 5).End(xlUp).Row
For t = 1 To rk
y = Cells(t, 6).Value & Cells(t, 7).Value & Cells(t, 8).Value
If x = y Then code = Cells(t, 5).Value: name = Cells(t, 2).Value: ips = Cells(t, 7).Value: gb = Cells(t, 8).Value: coax = Cells(t, 6).Value: GoTo ud2
Next

ud2:
Sheets("Totales").Activate
Cells(5, 2) = name
Cells(5, 5) = code
Cells(5, 7) = ips
Cells(5, 8) = gb
Cells(5, 6) = coax
Cells(5, 10) = "HEJ 2"

End If
Application.ScreenUpdating = True
End Sub

1000 tak. Smid et svar ;-)

ok velbekom