Új hozzászólás Aktív témák

• #47049 zoombiee csendes tag

  Új Válasz 2021-06-30 10:56:53 #47049

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zoombiee

  csendes tag

  Sziasztok,
  Szeretnék segítséget kérni az alábbi kódhoz.

  Működése: Ha az "A" oszlopban van érték, akkor létrehoz gombot az "S" oszlopban.
  Az automatikusan létrehozott gombban kellene szerepelnie kódnak.
  A probléma az, hogy ennél a sornál:
  .InsertLines N + 3, "ThisWorkbook.Sheets("Munka1").Range("K5") = 5"
  Hibát generál, ha ezt a sort kiveszem, akkor minden rendben lefut, viszont így sajnos a gomb lényege elvész, mert nincs hivatkozás sor benne.

  Sub gomb()


Dim ws As Worksheet
Dim celLeft As Integer
Dim celTop As Integer
Dim celWidth As Integer
Dim celHeight As Integer

Dim LastRow As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row

Set ws = Sheets("Munka1")

For i = 2 To LastRow

celLeft = ws.Range("S6").Left
celTop = ws.Range("S" & i).Top
celWidth = ws.Range("S6:S6").Width
celHeight = ws.Range("S6:S6").Height

Set objBtn = ws.OLEObjects.Add(classType:="Forms.CommandButton.1", Link:=False, _
displayasicon:=False, Left:=celLeft, Top:=celTop, Width:=celWidth, Height:=celHeight)
objBtn.Name = "S" & i
objBtn.Object.Caption = "--->"

With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
N = .CountOfLines
.InsertLines N + 1, "Private Sub " & "S" & i & "_Click()"
.InsertLines N + 2, vbNewLine
.InsertLines N + 3, "ThisWorkbook.Sheets("Munka1").Range("K5") = 5"
.InsertLines N + 4, vbNewLine
.InsertLines N + 5, "End Sub"

End With

Next i

End Sub

  Előre is köszönöm a segítséget!
  Üdv: Dani

Új hozzászólás Aktív témák