Udvikleren.dk - Seneste [vba] forum tr�de

Automatisk fill down a formler i bestemte kolonner

Tue, 15 Jul 2014 11:36:50 GMT

Jeg har nogle bestemte kolonner (fra Y til og med AE) som indeholder bestemte formler, som jeg gerne vil have kopieret ned indtil der ikke er mere data i X antal r�kker. Antallet af r�kker med data vil skifte ugentligt og omr�det for de skiftende data er fra kolonne A til og med X mens antallet af r�kker nedad som sagt vil �ndres.

Kolonnerne med formler ser s�ledes ud (Y, Z, AA, AB, AC, AD og AE og de starter alle fra r�kke 6):
- Y: =WEEKNUM(K6;2)
- Z: =VLOOKUP(S6;Wagendetails!F$2:G$310;2;FALSE)
- AA: =VLOOKUP(I6;Wagendetails!B$2$420;2;FALSE)
- AB: =VLOOKUP(I6;Wagendetails!B$2$420;3;FALSE)
- AC: =IF(V6=0;AB6;V6+AB6)
- AD: =VLOOKUP(C6;Relationen!A$2:C$550;2;FALSE)
- AE: =VLOOKUP(D6;Relationen!E$2:F$10;2;FALSE)
Nedenst�ende tre koder er dem jeg har fors�gt at bruge - indtil videre uden held:
Sub CMRDatenDSc_Button2_Click()
If Not Intersect(Target, Range("A")) Is Nothing Then 'This makes the code execute only when a value in column C is changed
Application.EnableEvents = False 'This prevents infinate loop
lastrow = Range("A10485761048576").End(xlUp).Row
Range("Y6:AE6").AutoFill Destination:=Range("Y6:AE" & lastrow), Type:=xlFillDefault
Application.EnableEvents = True
End If
End Sub
Eller
Sub CMRDatenDSc_Button2_Click()
Private Sub Worksheet_Change(ByVal Target As Range)
lastrow = Range("A10485761048576").End(xlUp).Row
Application.EnableEvents = False 'This prevents infinate loop
Range("Y6:AE6").AutoFill Destination:=Range("Y6:AE" & lastrow), Type:=xlFillDefault
Application.EnableEvents = True
End Sub
Eller
Sub CMRDatenDSc_Button2_Click()
a = Cells(A).End(xlUp).Row
b = "Y6:AE6" & a
Selection.AutoFill Destination:=Range(b)
End Sub

Jeg kan simpelthen ikke finde ud af hvor jeg har lavet en fejl s� jeg vil s�tte pris enhver hj�lp.

P� forh�nd tak.

retuner streng i anden workbook, n�r fil �bnes VBA

Sat, 31 May 2014 13:41:15 GMT

Hej.

Jeg er lidt ny i vba.
Jeg skal s�rge for at en tekst stemmer overens med en anden tekst i en anden excel-fil. Denne procedure skal genneml�bes, hver gang filen �bnes.
Jeg har pr�vet at bruge f�lgende i ThisWorkbook:
workbooks.open("C\filename")
....

Men her f�r jeg run-time error 91

Nogen der kan fort�lle mig hvad jeg g�r forkert i ovenst�ende kode eller fort�lle mig, hvordan jeg laver tjek?

Venlig hilsen

En frustreret programm�r

L�n som studerende VBA Udvikler

Sun, 27 Apr 2014 19:59:34 GMT

Hej!

Jeg er blevet indkaldt til en samtale hos et firma som udvikler i VBA til Excel.
Det vil v�re mit f�rste programm�r-job, og jeg er p� andet semester som Software Ingeni�r.

Hvad kan man forvente af l�n, hvis det kommer p� tale til samtalen?
Jeg har ikke rigtig nogen id� om hvad jeg skal forlange, s� h�ber nogen kan give mig et praj.

Application i Range

Sun, 20 Apr 2014 14:02:49 GMT

Hej!

Jeg har brug for lidt hj�lp til vba.

Jeg har det problem, at jeg skal tjekke om den valgte celles r�kke er st�rre end en navngivet celle.
Den navngivet celle best�r af de 4 f�rste bogstager af mappens navn, samt "FirstCell"

If Selection.Row > Range(WorksheetFunction.Left _
(ActiveSheet.Name, 4) & "FirstCell").Row Then
MsgBox "Can't inset a line here"

Er der nogen der kan fort�lle mig, hvad jeg g�r galt her?

H�ber I kan hj�lpe mig.
P� forh�nd tak.

Venlig hilsen
Anders

VBA hj�lp

Fri, 31 Jan 2014 09:24:19 GMT

Hej,

Jeg har f�lgende kode:

Kode

Sub Mile_hide_offentligg�relse()

    Sheets("Milep�lsplan").Select
        If Range("C30").Value = "False" Then
            ActiveSheet.Rows("5:5").EntireRow.Hidden = True
        ElseIf Range("C30").Value = "True" Then
            ActiveSheet.Rows("5:5").EntireRow.Hidden = False
        Else
            Return
        End If
End Sub

Den virker .. men kun hvis jeg afspiller den manuelt.

P� Ark1 har jeg en celle hvor en dato skal v�lges.
I Ark3 har jeg et felt som kalder Falsk hvis tom og Sand hvis udfyldt.

Min makro g�r, s� r�kke 5 i en milep�lsplan ikke vises hvis der ikke er indsat dato i "C30" p� Ark1.

Hvad skal jeg g�re for, at den afspilles s� snart der indtastes noget i Ark1.C30 ??

Skal jeg i virkeligheden skjule r�kken f�rst og s� vise den hvis der bliver indtastet?

Brug af data fra kolonner frem for s�jler

Mon, 28 Oct 2013 14:23:47 GMT

Jeg har det problem, at jeg skal lave en listbox, hvor data i listboxen kommer fra en kolonne i frem for en s�jle.
Kan dette lade sig g�re, og i givet fald hvordan?

Venlig hilsen
Anders

VBA returner v�rdi fra funktion?

Wed, 28 Dec 2011 19:56:05 GMT

Hej alle!

Jeg er ved at programmere lidt med noget Excel og har fundet ud af man kan bruge noget der hedder VBA, men det synes at v�re meget tyndt dokumenteret p� nettet jeg har i hvertfald sv�rt ved at finde basic guides.

N� men til sagen, s� vil jeg lave en simpel funktion som fungere at istedet for at have en hel masse af disse =IF(C7=0;"-";!C7) s�tninger der simpelt fjerner et standard 0 for en v�rdi hvor der ikke er noget erstatter det med et - tegn. Men det kr�ver megen hardcode i ALLE mine felter og tager sindsygt lang tid.

S� jeg ville pr�ve at lave en funktion ligsom denne i php:

PHP kode

 function tomPerson($tomPers)
 {
   if ($tomPers = 0)
   {
      return "-";
   }else{
      return $tomPers;
   }
 }

Nogle forslag eller steder hvor jeg kan l�se de helt basale programmerings behov i VBA?

Tusinde tak!

if l�kker i vba

Mon, 15 Aug 2011 23:13:13 GMT

Jeg har et problem i if l�kkerne jeg kan ikke helt f� det til at g�re som jeg vil. N�r jeg skriver at den aktive celle ska v�re under 13 og vise r�d farve samtidig med at den max m� v�re 23 og igen vise r�d, s� viser den stadig r�d n�r jeg skriver imellem 13 og 23 istedet for gr�n hvad g�r jeg forkert?

Sub Registrering()
Dim BilNr, Br�ndstoftype, Kmprliter As Single
Range("A1") = "BilNr"
Range("B1") = "Br�ndstoftype"
Range("C1") = "Kmprliter"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell = InputBox("Indtast bilens nummer")
ActiveCell.Offset(0, 1).Range("A1").Select
Br�ndstoftype = InputBox("Hvilken br�ndstoftype bruger bilen")
ActiveCell = Br�ndstoftype
ActiveCell.Offset(0, 1).Range("A1").Select
Kmprliter = InputBox("Indtast v�rdien for km. pr. liter for bilen")
ActiveCell = Kmprliter
ActiveCell.Offset(0, 1).Range("A1").Select

If ActiveCell.Value < 13 Then
ActiveCell.Interior.Color = 65280 ' Aktive celle for farven gr�n(Km pr. l er i orden)
ElseIf ActiveCell.Value > 22 Then
ActiveCell.Interior.Color = 255 ' Aktive celle for farven r�d(km pr.l er ikke i orden)
Else
ActiveCell.Interior.Color = 255 ' Aktive celle for farven r�d(km pr.l er ikke i orden)
End If
End Sub

Excel visual basic

Mon, 15 Aug 2011 19:31:43 GMT

hej alle jeg har lavet f�lgende:
Sub Registrering()
Dim BilNr, Br�ndstoftype, Kmprliter As Single
Range("A1") = "BilNr"
Range("B1") = "Br�ndstoftype"
Range("C1") = "Kmprliter"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell = InputBox("Indtast bilens nummer")
ActiveCell.Offset(0, 1).Range("A1").Select
Br�ndstoftype = InputBox("Hvilken br�ndstoftype bruger bilen")
ActiveCell = Br�ndstoftype
ActiveCell.Offset(0, 1).Range("A1").Select
Kmprliter = InputBox("Indtast v�rdien for km. pr. liter for bilen")
ActiveCell = Kmprliter
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub

Jeg skal lave f�lgende: v�rdi for km. pr. liter er rimelig(v�rdier som f.eks. 56 eller 3 kan afvises ud fra en rimelighedsvurdering).

hvordan laver man s�dan en gr�nse i Visual basic i excel?

VBA og Matlab

Mon, 15 Aug 2011 18:44:24 GMT

Hej allesammen jeg studerer almen erhvervs�konomi, p� dette semester har jeg f�et et fag der hedder programmering. Vi arbejder med matlab og excels' VBA.
Jeg har en opgave omkring 9 sp�rgsm�l, som jeg ikke rigtig kan finde ud af at lave. S� jeg t�nkte p� om nogen af jer gad kigge p� den og se om de kan finde ud af at lave den? Der vil selvf�lgelig blive betalt hvis opgaverne kan blive l�st!

Jeg h�ber nogen har tid og lyst til at hj�lpe