Excel VB Scripting og automatisering

[Arildmar]

God kveld Godtfolk.

Dette er et Excel-problem.

 

Jeg har lyst på en levende liste som kan hjelpe meg med å enklere vedlikeholde servere som blir tatt ut / oppdatert eller lignende.

 

1. Når jeg legger inn informasjon i "Servername", så skal den (enten automatisk eller ved manuelt starte et VB script) opprette et nytt Regneark som fører inn de verdiene som er angitt i "Mal" arket.

 

Jeg vet at ved VB er det mulig å opprette en liste men det å få den til å kopiere "Mal" er litt utenfor min verden. koden som oppretter andre worksheets er under.

Jeg har også lyst til at den skal bli sortert korrekt vei for slik den er nå så snur den opp ned på hele listen.

 

Sub Tab_Name()

Dim b As String
   a = ActiveWorkbook.Name

   Windows("Server_information_new_2.xlsm").Activate
   ActiveWorkbook.Sheets("Master").Select
   Range("C10").Select

   Do While ActiveCell.Value <> ""
    b = ActiveCell.Value
   If ActiveCell.Value <> "" Then
   Selection.Copy
   Windows(a).Activate
   ActiveSheet.Name = b
   ActiveSheet.Copy Before:=Sheets(b)
   Windows("Server_information_new_2.xlsm").Activate
   ActiveCell.Offset(1, 0).Select
   Else
   MsgBox "Complete", vbOKOnly
   Exit Sub
   End If
   Loop

End Sub

 

Som dere ser så har jeg prøvd litt..har dere en annen VBkode som er bedre og enklere så kjør på ..

 

Siden dette er en Excel-Marko fil så har jeg zippet den ned da Makroen ikke er lov å laste opp.

 

Håper noen kan hhelpe meg.

 

------

From the cold north

 

Arildmar

------

Server_information_New_2.rar

Endret 11. november 2011 av Arildmar