Hælp til excel og macro (vba)

1.
henvis kæden til sin egen excel fil, og den forsvinder hvis du har de samme oplysninger som kæden søger

2.
Sub gem()

    ActiveWorkbook.SaveAs Filename:= _
        "C:\Dokumenter\Excel\" & Range("A1") & ".xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
End Sub

3. mener du med mail så

Sub SendArk()

    Sheets("Ark3").Select
    Sheets("Ark3").Copy
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close
End Sub

3. hvis kun det er en del af Arket du vil sende
  Ved brug af denne skal du makere området inden makroen køres, men så gælder den også på alle ark'

Sub Send()
 
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    Application.Dialogs(xlDialogSendMail).Show
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Application.DisplayAlerts = True
    Range("A1").Select
End Sub

Hvis kæden, der skal slettes, er af den besværlige slags, kan du med fordel bruge nedenstående program (det hat jeg selv haft stor glæde af i forbindelse med sletning af kæder, "der ikke var der"):

http://www.bmsltd.co.uk/MVP/MVPPage.asp

virkede supert tak for hjælpen

Kabbak det var virkelig nogle god forslag du kom med, men desværre virkede det mail mailen ikke.Det jeg gerne vil have den til er at f.eks. sende ark 4 og fra samme sted hente mail adr. fra et given punkt i arket. Kan det lade sig gøre? eller vil det være dejligt bare at få den til at mail arket. På forhånd tak.

nol
Jeg har altså kun svaret på ét af tre spørgsmål. Det er muligt de ikke skal vægtes lige, men det er vel ikke meningen at jeg skal have ALLE pointene !?

Hej Superjap
Det er første gang jeg prøver dette og kan selvføglig ikke finde ud af det så jeg var ikke klar over at jeg gav dig pointne fordi at jeg svarede dig. hvordan kan jeg give kabbak nogle point?

nol
Du fortæller blot hvor mange point kabbak skal have, så laver jeg et ny spørgsmål (der henviser til dette), hvor kabbak så kan få sine point.

så del pointne med ham altså 50/50 så får du også lidt for ulejligheden. Og på forhånd tak for hjælpen.
Mvh.
nol

Hej,

Er det muligt at lave en mindre udbygning af gemme funktionaliteten. Jeg vil gerne have "Gem Som" dialogen frem, dog med en foreslået placering og foreslået navn som i ovenstående.

/E100

Hej,

Har selv fundet ud af det...

Public Sub GemSom()
Dim wshNetwork
Set wshNetwork = CreateObject("WScript.Network")
  fileTosave = "C:\temp\Excel\" & Range("B5") & "_" & Range("I2") & "_" & Format(Date, "ddmmyyyy") & "_" & Range("AI8")
Flt = "Excel mappe(*.xls),*.xls,"
    Flt = Flt & "Print-filer (*.prn),*.prn,"
    Flt = Flt & "Tekst-filer(*.txt),*.txt"
    Titel = "Gem Bilag Som!"
    Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel)
    If Filnavn = False Then GoTo Afbryd
    If fileTosave <> False Then
    ActiveWorkbook.SaveAs Filnavn
    End If
Afbryd:
End Sub

Takker!

/E100