06. februar 2013 - 16:23Der er
3 kommentarer og 1 løsning
VBA: Indtaste flade værdier
Hej Eksperter
Jeg har brug for at min makro indsætter et opslagsark hvor jeg omdanner et nummer til en tekst. Jeg har tænkt mig at det blot skal være fladt, således at jeg laver et opslag når jeg har brug for det.
Derfor skal jeg i et faneblad "opslag" have makroen til at skrive helt fladt (eksempel): Kol A Forkortelse AAL HOB RAN AAR SKA Kol B Navn Aalborg Hobro Randers Aarhus Skanderborg
Jeg kan naturligvis sige - vælg celle A1 - skriv forkortelse, vælg celle A2 - skriv AAL og så videre. Men der er sikkert en meget nemmere og lidt mere kompakt og læsevenlig måde at skrive det i VBA editoren?
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("D:D")) Is Nothing Then Dim y As String ActiveCell = WorksheetFunction.VLookup(ActiveCell.Value, Range("A1:B5"), 2, 0) End If End Sub
Det er antaget at forkortelserne og de fulde navne ligger i A1:B5 og at der tastes ind i kolonne D
Jeg prøver lige at forklare videre: Jeg har to tabeller i et faneblad, som skal indsættes i et (andet) ark jeg kører en makro på. Begge disse tabeller skal indsættes af makroen.
Jeg kunne få makroen til at skrive tabellen forfra (den er ens hvergang), men tænker det var nemmere at få den kopieret fra en anden projektmappe makroen kan åbne og kopiere fra.
Dette vil jeg nu arbejde på, og evt. oprette nyt spm hvis jeg får problemer.
Synes godt om
Ny brugerNybegynder
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.
