+ Reply to Thread
Results 1 to 3 of 3

Hi everyone

  1. #1
    Registered User
    Join Date
    01-06-2019
    Location
    Antipolo, Philippines
    MS-Off Ver
    2010
    Posts
    0

    Hi everyone

    I've just joined Excel forum and wanted to say Hi to everyone. I would describe my excel knowledge somewhere between beginner and intermediate. I have been using excel for many years at work before I retired. Now I find myself busier than before and still using Excel....Anyways, look forward to more exchange of Excel information.....

  2. #2
    Forum Contributor arlu1201's Avatar
    Join Date
    09-09-2011
    Location
    Bangalore, India
    MS-Off Ver
    Excel 2003 & 2007
    Posts
    19,166
    Hello id002108,

    Welcome to Excelforum. Be a part of large Excel community. Enjoy Learning.
    If I have helped, Don't forget to add to my reputation (click on the star below the post)
    Don't forget to mark threads as "Solved" (Thread Tools->Mark thread as Solved)
    Use code tags when posting your VBA code: [code] Your code here [/code]

  3. #3
    Registered User
    Join Date
    11-27-2018
    Location
    africa
    MS-Off Ver
    office 10
    Posts
    0

    Re: Hi everyone

    hi guys im new to excel vba still learning can someone help me with this .
    i have data in this manner

    Untitled.jpg

    the yellow data is what i have . the blue is what i am trying to achieve .
    Simply i would like to copy from F2 to a table , all singular . F2 to G2 , F3 to H2 , F4 to I2.
    i've been struggling with this for weeks. I need to loop the data when it reaches "end of data" as contained after ever 6 cells.

    Will someone be able to help me get through please.

    Sub Macro1()
    '
    ' Macro1 Macro
    '

    '
    Dim Vala, Valb, Valc, Vald, Vale, Valf, Valg
    Dim Counter, Counter1, Counter2, Counter3, Counter4

    Counter2 = 18
    Counter = 1

    Range("C2").Copy Destination:=Range("D2")
    Range("C3").Copy Destination:=Range("E2")
    Range("C4").Copy Destination:=Range("F2")
    Range("C5").Copy Destination:=Range("G2")
    Range("C6").Copy Destination:=Range("H2")
    Range("C7").Copy Destination:=Range("I2")

    Counter = Counter + 1

    End Sub
    Last edited by tigerj; 01-08-2019 at 03:14 AM.

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1