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

• #23363 slashing senior tag slashing #23360

  Új Válasz 2014-09-21 07:49:20 #23363

  Ú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

  

  slashing

  senior tag

  válasz slashing #23360 üzenetére

  Hát eddig jutottam:

  Sub Makró5()
  Dim c As Long, myvalue As Variant, lastrow As Long
  
  Range("D5").Select
  Range(Selection, Selection.End(xlToRight)).Select
  Range(Selection, Selection.End(xlDown)).Select
  Selection.Copy
  Sheets("Munka1").Select
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  
  c = Range("XFD1").End(xlToLeft).Column
  For c = c To 2 Step -1
  Cells(1, c).EntireColumn.Insert
  Next c
  
  myvalue = InputBox("add meg a szöveget")
  Range("B1").Value = myvalue
  
  lastrow = Worksheets("munka1").Range("A1").End(xlDown).Row
  With Worksheets("munka1").Range("B1")
  .AutoFill Destination:=Range("B1:B" & lastrow&)
  End With
  
  Columns("A:B").Select
  Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
  
  Range("A1").Select
  myvalue = InputBox("add meg a dátumot")
  Range("A1").Value = myvalue
  
  Range("B1").Select
  myvalue = InputBox("add meg a szöveget")
  Range("B1").Value = myvalue
  
  End Sub

  közel sem tökéletes pl. a dátum helyére bármit beírhatnék de ez legyen a legkevesebb. Annyi kéne még hogy az első szöveg bekérés után kitölti az oszlopot a megadott szöveggel de ezt tovább kéne vinni az utolsó oszlopig is.

  (#23362) Delila_1

  Máris nézem köszönöm

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