Forum Mjukvara Programmering och digitalt skapande Tråd

Excel VBA problem

1
Skriv svar
Permalänk
Medlem
●

Excel VBA problem

Hejsan. Jag håller på att programmera lite med excel i vba och har stött på ett problem

Det jag vill är att skapa ett makro där jag kan skapa ett nytt blad med ett visst innehåll som finns i en dold flik och man döper bladet med en textbox som finns i makrot. Men jag har stött på ett problem..
Först så fick jag ett property error och flyttade det till en egen sub men nu vet jag inte hur jag ska få den att gå till den nya suben vid knapptryckningen.

hjälp uppskattas

Koden:
Sub CreateNewWorksheet()

Dim wsheet As Worksheet
Dim vret As Variant
Set wsheet = Worksheets.Add
With wsheet
.Name = TextBox1.Text

Sheets("Cop").Copy after: Worksheets.Count -1

errHandler:
'Om namnet redan existerar
If Err.Number = 1004 Then

vret = MsgBox("Ett arbetsblad som heter " & TextBox1.Text & "finns redan, " & _
"Välj ett nytt" _
, vbOK, "Namnet existerar")
Exit Sub

End If

End Sub

Redigera
Citera flera Citera
Permalänk
Medlem ★
●

Var är det den stannar och vad händer?
Skapas det nya bladet? Namnges det?
Hur långt kommer du?

Edit:

Kopierar in lite kod från ett av mina macron som gör nått likanande vad du vill åstakomma

    Dim wb As Workbook
    Dim ws As Worksheet
       
    Set wb = ActiveWorkbook

Set ws = wb.Sheets.Add(After:=wb.Sheets(1))
    ws.Shapes.AddChart.Select
    
    With ws.ChartObjects("Chart 1")
        .Chart.ChartType = xlLine
        .Chart.SeriesCollection.NewSeries
        .Chart.SeriesCollection(1).Name = "=""velH"""
        .Chart.SeriesCollection(1).Values = "='" & shtName & "'!$G$3:$G$" & LastRow
        .Chart.SeriesCollection(1).Border.Color = RGB(0, 0, 255) 'blue
        .Chart.SeriesCollection.NewSeries
        .Chart.SeriesCollection(2).Name = "=""velD"""
        .Chart.SeriesCollection(2).Values = "='" & shtName & "'!$H$3:$H$" & LastRow
        .Chart.SeriesCollection(2).Border.Color = RGB(255, 0, 0) 'red
        .Chart.SeriesCollection.NewSeries
        .Chart.SeriesCollection(3).Name = "=""vel3D"""
        .Chart.SeriesCollection(3).Values = "='" & shtName & "'!$I$3:$I$" & LastRow
        .Chart.SeriesCollection(3).Border.Color = RGB(255, 255, 0) 'yellow
        .Chart.SeriesCollection.NewSeries
        .Chart.SeriesCollection(4).Name = "=""Angle"""
        .Chart.SeriesCollection(4).Values = "='" & shtName & "'!$L$3:$L$" & LastRow
        .Chart.SeriesCollection(4).Border.Color = RGB(255, 0, 255) ' Magenta
        .Chart.SeriesCollection(4).AxisGroup = 2
        .Chart.Axes(xlValue).TickLabels.NumberFormat = "0"
        .Chart.Axes(xlValue, xlSecondary).TickLabels.NumberFormat = "0"
    End With
    Set Rng = ws.Range("A1:S27")
    Call ChartSize(ws, Rng)
    ws.Name = "velH-velD-vel3D--Angle"
Senast redigerat
Redigera
Citera flera Citera
1
Skriv svar
Senaste nyheterna
Hårdvara
Mjukvara
Övrigt
Nytt i forumet
Datorkomponenter
System
Ljud, bild och kommunikation
Spel och mjukvara