Page 2 of 2 FirstFirst 1 2
Results 11 to 14 of 14

Thread: Can I Paste One Line of Text into Multiple Cells?

  1. #11
    Conjurer Logit's Avatar
    Join Date
    Nov 2016
    Posts
    221
    Articles
    0
    Excel Version
    2007


    Register for a FREE account, and/
    or Log in to avoid these ads!

    .
    Yes.

    But you need to replace the PROCESSTEMP macro with this :

    Code:
    Sub ProcessTemp()
    
    
    ActiveSheet.Pictures.Delete
    
    
    With ActiveSheet
    
    
        .Columns("A:A").Delete
        .Columns("C:D").Delete
        ''Exit Sub
        .Range("A3").Cut
        .Range("B2").Select
        ActiveSheet.Paste
        .Range("A4").Cut
        .Range("C2").Select
        ActiveSheet.Paste
        .Range("A5").Cut
        .Range("D2").Select
        ActiveSheet.Paste
        .Range("A6").Cut
        .Range("E2").Select
        ActiveSheet.Paste
        .Range("A2:E2").Hyperlinks.Delete
    End With
        UpdateSheet1
        
    End Sub
    Again, Excel / VBA is playing games and I don't understand why. Last night the original PROCESSTEMP macro worked 100%. This morning, it crashed as written so
    it needed to be edited to the above. Go figure.

  2. #12
    Magician navic's Avatar
    Join Date
    Aug 2013
    Location
    Europe, Croatia
    Posts
    885
    Articles
    0
    Excel Version
    Excel 2013
    Quote Originally Posted by jdanniel View Post
    I get lost at your Step # 4. You say "Select all filled cells in row." I don't really understand what you mean by that.
    4. Select the filled cell with the names (in your case this is 3 cells with names)
    6. Select a desired cell (eg G7). Here you will transpose to column
    My personal Web Excel Tutorials
    Attention! In the formulas as a delimiter I use a semicolon (; ) if you using my formula, then perhaps you need to use a comma (,)
    Also for a decimal number I use a comma (,) you may need to use point (.) instead of

  3. #13
    Conjurer Logit's Avatar
    Join Date
    Nov 2016
    Posts
    221
    Articles
    0
    Excel Version
    2007
    .
    Here is a better version of the last macro post. It does a better job of cleaning up after itself.

    Code:
    Sub ProcessTemp()
    
    
    ActiveSheet.Pictures.Delete
    
    
    With ActiveSheet
        
        .Columns("C:D").Delete
        .Columns("A:A").Delete
        .Range("A3").Cut
        .Range("B2").Select
        ActiveSheet.Paste
        .Range("A4").Cut
        .Range("C2").Select
        ActiveSheet.Paste
        .Range("A5").Cut
        .Range("D2").Select
        ActiveSheet.Paste
        .Range("A6").Cut
        .Range("E2").Select
        ActiveSheet.Paste
        .Range("A2:E2").Hyperlinks.Delete
    End With
        UpdateSheet1
        
    End Sub

  4. #14
    Magician navic's Avatar
    Join Date
    Aug 2013
    Location
    Europe, Croatia
    Posts
    885
    Articles
    0
    Excel Version
    Excel 2013
    My VBA solution
    Code:
    Sub Macro1()
        Range("A1").Select
        Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
            :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
            Array(7, 1)), TrailingMinusNumbers:=True
        Range("A1:X1").Select
        Selection.Copy
        Range("A3").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
    End Sub
    Attached Files Attached Files
    My personal Web Excel Tutorials
    Attention! In the formulas as a delimiter I use a semicolon (; ) if you using my formula, then perhaps you need to use a comma (,)
    Also for a decimal number I use a comma (,) you may need to use point (.) instead of

Page 2 of 2 FirstFirst 1 2

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •