Print side | Luk vindue

Ændre celle ud fra værdi af anden celle

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=1287
Udskrevet den: 20.Maj.2024 kl. 22:38


Emne: Ændre celle ud fra værdi af anden celle
Besked fra: Velli
Emne: Ændre celle ud fra værdi af anden celle
Posteringsdato: 20.Jun.2013 kl. 12:04
Hej.
 
Jeg har et lille hurtigt problem jeg skal have løst. Jeg er absolut begynder i Excel, så jeg aner ikke hvor stor eller lille en opgave det reelt er... Men kort fortalt: Jeg har et regneark med en prisliste, uden nogen formler af nogen art. Det jeg har brug for er at alle priser på varer i nogle bestemte varegruppe skal ganges med to. Med andre ord, når værdien i en bestemt kolonne er lig med ét af otte bestemte tal, så skal værdien i en anden kolonne fordobles. Er værdien i denne kolonne ikke lig med ét af disse tal, skal der ikke foretages noget. Dette skal ikke kun gøres én gang, men foretages dagligt, så jo kortere arbejdsgang jo bedre.
 
Jeg har desværre ikke mulighed for at ændre i selve måden filen er opbygget på.
 
Jeg håber nogen kan/vil hjælpe. På forhånd tak.



Svar:
Besked fra: excelent
Posteringsdato: 26.Jun.2013 kl. 21:51
Det kunne en makro-kode sikkert klare for dig.
er det en mulighed ?
Hvis ja, hvilke 2 kolonner og hvor er dine 8 reference  tal/celler


-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!


Besked fra: Velli
Posteringsdato: 27.Jun.2013 kl. 09:50
Citat: excelent excelent skrev:

Det kunne en makro-kode sikkert klare for dig.
er det en mulighed ?
Hvis ja, hvilke 2 kolonner og hvor er dine 8 reference  tal/celler
 
Det tror jeg bestemt godt kunne være en mulighed. Der er tal i kolonnerne A > N. Kolonne D er varegruppen der skal testes for, kolonne F er prisen. Hvis kolonne D er enten: 28, 44, 63, 64, 65, 83, 84, 88 skal tallet i kolonne F ganges med 2. Det er desværre ikke muligt at ændre i varegruppenumrene, sådan at man kunne lave en "over" eller "under" X.


Besked fra: excelent
Posteringsdato: 27.Jun.2013 kl. 22:09

Sub test()
For Each c In Range("D2:D32") ' <-- Ret området til aktuel
If c = 28 Or c = 44 Or c = 63 Or c = 64 Or c = 65 Or c = 83 Or c = 84 Or c = 88 Then
c.Offset(0, 2).Interior.ColorIndex = 4  '  * Udskift denne linie med nedenstående når du har testet
End If
Next
End Sub

c.Offset(0, 2) = c.Offset(0, 2) * 2

Koden farver de celler/tal som bliver fordoblet når du har udskiftet kodelinien
Du kan finde vejledning til at indsætte koden i et almindeligt modul via min hjemmeside


-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!



Print side | Luk vindue