Søg
Avatar billede 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
Avatar billede 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)
Avatar billede 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?
Avatar billede 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)
Avatar billede 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.
Avatar billede 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
Avatar billede excelent Ekspert
04. januar 2007 - 15:40 #6
?
Avatar billede 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",)
Avatar billede excelent Ekspert
08. januar 2007 - 19:00 #8
enig
men jeg husker godt :-)
Avatar billede excelent Ekspert
05. februar 2007 - 22:19 #9
?
Avatar billede excelent Ekspert
19. februar 2007 - 21:00 #10
?
Avatar billede excelent Ekspert
19. november 2007 - 18:33 #11
for at lukke skal du markere box med navn og klikke accepter
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
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 I dag 12:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 16 17/08/202615:14 I går 01:20
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel 13 24/07/202611:08 03/08/202618:42
Opdatering af celler i excel ark Af lurup i Excel 2 09/06/202619:40 10/06/202614: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 21:03 Kan man få Word viewer gratis Af Strawberry i Word
26/0813:28 Findes der en brugsanvisning til : "ONKYO Stereo Casette - Tape Deck - R1" Af Ikke-ekspert i Musik & videoafspillere
24/0820:07 Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker
24/0811:24 Hvor kan jeg finde hjælp til at flytte fra min gamle Samsung Flip4 til min nye Samsung Galaxy S24 Af vbr i Apps til Android
24/0811:16 problem med mailbesked Af Pestilensen i Excel
White papers
Flere white papers »