Notifikationer

Markér alle som læst Log ud

kims0809 Nybegynder

30. december 2006 - 22:11 Der er 8 kommentarer og
3 løsninger

Udfylde celler med indhold fra andre celler alt efter indhold.

Hej

Jeg vil gerne høre hvordan vi gør følgende:

Vi har en produktfil, hvori der er angivet en priskode for hvert enkelt produkt, disse står i sin egen kolonne, og der er ialt 4000 produkter.

Denne priskode er et tal mellem 1-65. Selve priskode listen med priserne ud for hvert nummer, står i 2 andre kolonner i samme ark.

Hvordan får jeg så priskoderne i produktlisten byttet ud med prisen fra priskode listen?

Er der en fix formel til dette?

Mvh

Kim

Synes godt om

excelent Ekspert

30. december 2006 - 22:26 #1

I så fald må der være flere produkter som har samme pris eller hur ?

LOPSLAG skulle kunne bruges

hvor præsis er dine data ? (kolonner/rækker)

Synes godt om

kims0809 Nybegynder

30. december 2006 - 22:41 #2

du kan bare sætte det til kolonne A hvor dataen der skal erstattes er og kolonne B hvor dataene kan finde. det hele starter fra række 1.

Det er som sådan her. Hvis celle A1 er = med fx 1 så skal der indsættes tallet 459 osv. Denne liste med hvad der skal indsættes for fx 1 har jeg i kollone B og C dvs der står 1 i B og 459 i C

Er du med?

Synes godt om

excelent Ekspert

30. december 2006 - 22:56 #3

En formel kan ikke ændre på noget i en anden celle
så her er et tænkt eks.:
Du har 4000 produkter i kolonne A1:A4000
Ud for hver produkt står en priskode (1-65)
I kolonne G1:G65 priskoder
I kolonne H1:H65 pris
Indsæt formel i C1 og kopier ned (4000 rk)

=LOPSLAG(B1;$G$1:$H$65;2;FALSK)

Synes godt om

brynil Nybegynder

30. december 2006 - 23:46 #4

Du ku også forsøge dig med denne:

Sub Erstat()
'array til 65 værdier
Dim arr(64)

'find pris for hver kategori
For i = 1 To 4000
If Cells(i, 2).Value = i Then
arr(i - 1) = Cells(i, 3).Value
End If
Next i

'udskift værdier
For o = 1 To 65
Cells(o, 1).Value = arr(Cells(o, 1).Value - 1)
Next o
End Sub

Forudsætter alle priskoder er repræsenteret i arket.

Synes godt om

excelent Ekspert

31. december 2006 - 09:56 #5

en VBA løsning - udskifter koder i A med priser i C

Sub Byt()
Dim t
For t = 1 To Cells(4100, 1).End(xlUp).Row
If Cells(t, 1) < 66 Then Cells(t, 1) = Cells(Cells(t, 1), 3)
Next
End Sub

Synes godt om

excelent Ekspert

04. januar 2007 - 15:40 #6

Synes godt om

gurly Praktikant

08. januar 2007 - 11:51 #7

excelent > ja det er altid trist når dem der spørger, ikke selv gider følge op på det
c",)

Synes godt om

excelent Ekspert

08. januar 2007 - 19:00 #8

enig
men jeg husker godt :-)

Synes godt om

excelent Ekspert

05. februar 2007 - 22:19 #9

Synes godt om

excelent Ekspert

19. februar 2007 - 21:00 #10

Synes godt om

excelent Ekspert

19. november 2007 - 18:33 #11

for at lukke skal du markere box med navn og klikke accepter

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Måned og år på graf Af mort1 i Excel	4	31/10/202613:01	01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel	9	23/09/202618:11	24/09/202611:16
Æ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

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS