Excel VBA, mail kun celler som er endret verdi (vareliste)

[wildonln]

Jeg har et ark for beregning av tilbud som inneholder over 1000linjer.

For hver gang et tilbud skal kalkulerer må jeg inn i arket og sette inn antall på hver linje for hvert produkt som skal priser inn i tilbudet.

 

Jeg er ute etter en macro som kan detektere hvordan linje(1,2,3 .. 998, 999) som har fått et tall større en 0, for så å generere en plukkliste/vareliste av alle disse cellene og sende dette som mail.

 

 

Varebeskrivelser er i celle A1 --> A1000

Varenummer er i celle B1 --> B1000

Antall setter jeg inn i celle C1 --> C1000

 

 

Alle celler i kollonne C er som standard satt til 0.

Det er kun celler som har større verdi enn dette som skal sendes via mail.

[ExcelGuru]

Denne skulle funke.

Den kopierer fra varearket til en fane som heter "Tilbud"

 

Sub Varelinjer()

 Dim x As Integer

 Dim Linje As Integer

 Dim W As Worksheet

 Dim T As Worksheet

 

 Set W = Worksheets("Ark1")

 Set T = Worksheets("Tilbud")

 

 'Tømmer tilbudsarket

 T.Range("A1:C1000").ClearContents

 

 'Velger arket med 1000 varelinjer

 With W

  'Looper gjennom 1000 linjer

  For x = 1 To 1000

   'Sjekker om antall<>0

   If .Cells(x, 3) <> 0 Then

    'Øker linjenummer i tilbudsfane med 1

    Linje = Linje + 1

     'Kopierer over linjene fra varearket til tilbudsarket

     For y = 1 To 3

      T.Cells(Linje, y) = W.Cells(x, y)

     Next y

   End If

  Next x

 End With

 

End Sub

 

Vennlig hilsen Ketil

[wildonln]

Hei.

 

 

Veldig bra

men i stede for å ha en egen fane som heter tilbud vil jeg at valgte celler som har verdi skal åpnes i Outlook som ny mail, klarfor å trykke send.