Indsæt værdi fra fast 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=513
Udskrevet den: 12.Dec.2024 kl. 21:09
Emne: Indsæt værdi fra fast celle
Besked fra: John
Emne: Indsæt værdi fra fast celle
Posteringsdato: 02.Nov.2011 kl. 16:00
Hej
Jeg har et lille problem, jeg indtaster en kode i kolonne F20 til F400, når denne kode er nr. 100, skal
kolonne I20 til I400 ud for samme række, automatisk indsætte en værdi fra celle F18, jeg har prøvet flere
ting men kan ikke få det til at virke. Jeg kan ikke skrive formlen ind i kolonne I20, idet der her indtastes tal
når koden i i F20 til F400 ikke er lig med 100, men det kan sikkert lade sig gøre, er der nogen som kan hjælpe?
vh
John
|
Svar:
Besked fra: rassten
Posteringsdato: 02.Nov.2011 kl. 20:53
Hvis jeg har forstået dig rigtig. Hvis der i cellerne F20 til F400 tastet 100, skal værdien fra F18 kopieres over kolonne J for den tilsvarende række fra kolonne F
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F20:F400")) Is Nothing Then
On Error Resume Next
If Target.Value = 100 Then
Target.Offset(, 4).Value = Range("F18").Value
End If
If Target.Value <> 100 Then
Target.Offset(, 4).Value = ""
End If
End If
End Sub
|
For at bruge kode, kopiere ovenstående, højre klik på faneblad navnet (eks: Ark1), vælg "Vis programkode"", i vinduet som kommer frem, indsæt den kopierede kode. Gå tilbage til excel og test koden
Altid teste kode på et ark hvor ingen skade kan ske.
-------------
VH rassten
Arbejde excel 2010
Privat excel 2010
|
|