Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketTilbudsark
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
christian_j Se dropdown
Forum Begynder
Forum Begynder


Medlem: 08.Feb.2011
Land: Danmark
Status: Offline
Point: 4 		Direkte link til dette indlæg Emne: Tilbudsark
    Sendt: 11.Feb.2011 kl. 00:19
Hej

Jeg er i gang med at lave et ark der kan lette processen for mig når jeg skal lave tilbud til kunder.

Ark 1,2,3,4 og 5 indeles alle i 5 kolonner. Produkt, enhed, pris, stk, total.  (ark 2-5 har dog ikke en total nødvendigvis)


I ark 2,3,4 og 5 indtastes der alle oplysninger om produkterne. Navn, enhed, pris, stk (tomt felt til at starte med).

Grunden til at produkterne er fordelt på 4 forskellige ark, skyldes at de tilhører 4 markant forskellige grupper varer.

Øvelsen for mig bliver at lave det sådan, at når jeg taster ex. 3 stk ind i ark 2,3,4 eller 5, dannes der en linie i ark 1 der noterer 
at tilbuddet indeholder 3 stk af den vare. Ark 1 udfyldes så efterhånden som jeg taster varer ind i ark 2-5.

Jeg har lavet den nemme del af opgaven. Alle arkene og nogle forskellige beregninger på kostpris osv.

Jeg kan dog ikke lige gennemskue hvordan jeg får en varelinje til at dukke op i ark 1 når jeg taster antallet ind i ark 2-5.

Er der nogen der kan hjælpe.

Venlig hilsen

Christian
Til top



Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694 		Direkte link til dette indlæg Sendt: 11.Feb.2011 kl. 11:26
Jeg kender ikke nogen formler som gøre det du efterspørger.
Så jeg har prøvet med en makro i stedet


Sub a_test()
'https://forum.excel-regneark.dk/forum_posts.asp?TID=235&title=tilbudsark

LR = Worksheets("Ark1").Cells(Rows.Count, 1).End(xlUp).Row + 1

If LR > 2 Then
    Worksheets("Ark1").Rows("2:" & LR).Clear
End If
LR = 2

For a = 1 To Sheets.Count
   If Worksheets(a).Name <> "Ark1" Then
     Worksheets(a).Activate
        LR2 = Worksheets(a).Cells(Rows.Count, 1).End(xlUp).Row
            If LR2 > 2 Then
                For c = 2 To LR2 Step 1
                    If Range("D" & c) <> "" Then
                        Rows(c & ":" & c).Copy Destination:=Worksheets("Ark1").Rows(LR & ":" & LR)
                        LR = LR + 1
                    End If
                Next c
            End If
   End If
Next a


Worksheets("Ark1").Activate


End Sub


uploads/107/Start_på_tilbudsark.xlsm
VH rassten

Arbejde excel 2010
Privat excel 2010
Til top
christian_j Se dropdown
Forum Begynder
Forum Begynder


Medlem: 08.Feb.2011
Land: Danmark
Status: Offline
Point: 4 		Direkte link til dette indlæg Sendt: 11.Feb.2011 kl. 12:02
Hej raasten

Det virker dæleme. Tusind tak for hurtigt svar. Jeg kan endda se at den sætter de opdaterede linjer ind i sorteret rækkefølge.

Jeg skal dog manuelt afspille makroen for at opdatere tilbuddet. Men det er der nok ingen vej udenom, og det er også en lille pris at betale.

Nu går jeg i gang med at lave en knap der kan afspille makroen, så bliver det lidt nemmere. Det er den makro der hedder a_test jeg benytter. 

Jeg er ikke sikker på hvad den anden makro gør.? Den der hedder Makro 1.

Jeg kan se jeg bliver nød til at lære at lave makroer nu. Det er for fedt. Men indtil jeg bliver skarp nok, har jeg brug en lille ændring i makroen. Håber du kan hjælpe mig der.

Lige nu kopierer den alle kolonner fra ark 2-5 med indhold over i ark 1 når jeg opdaterer. Det vil være optimalt hvis den kun kopirerer kolonne A, B, C og D over. På den måde kan bruge kolonne E og fremefter (i ark 2-5) til at have overblik over dækningsgrad og kostpris, uden at de kommer med over i tilbuddet. Giver det mening?

Endnu en gang tusind tak for den hurtige og meget kompetente assistance.

Venlig  hilsen

Christian
Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694 		Direkte link til dette indlæg Sendt: 11.Feb.2011 kl. 12:55
Måske sådan  i stedet. (og ja, Makro 1 var blot en rest fra en test)


Sub a_test()
'https://forum.excel-regneark.dk/forum_posts.asp?TID=235&title=tilbudsark

LR = Worksheets("Ark1").Cells(Rows.Count, 1).End(xlUp).Row + 1

If LR > 2 Then
    Worksheets("Ark1").Rows("2:" & LR).Clear
End If
LR = 2

For a = 1 To Sheets.Count
   If Worksheets(a).Name <> "Ark1" Then
     Worksheets(a).Activate
        LR2 = Worksheets(a).Cells(Rows.Count, 1).End(xlUp).Row
            If LR2 > 2 Then
                For C = 2 To LR2 Step 1
                    If Range("D" & C) <> "" Then
                        Range("A" & C & ":" & " D" & C).Copy Destination:=Worksheets("Ark1").Range("A" & LR)
                        LR = LR + 1
                    End If
                Next C
            End If
   End If
Next a


Worksheets("Ark1").Activate


End Sub
VH rassten

Arbejde excel 2010
Privat excel 2010
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk