Consulting

Results 1 to 3 of 3

Thread: VBA Help copying and inserting into specific sheets & sections based on conditions

  1. #1
    VBAX Newbie
    Joined
    Jun 2017
    Posts
    4
    Location

    VBA Help copying and inserting into specific sheets & sections based on conditions

    Hi,

    First off I have very little understanding of VBA, and hoping that someone is willing to help me. I put together a very small worksheet to try and better understand vba for a larger project that I'm working on and have attached it to the thread. What I'm trying to do is copy information from one worksheet and insert into the corresponding worksheets. On the corresponding worksheets there are specific sections that the data needs to fall under. Is this possible with VBA?
    Attached Files Attached Files

  2. #2
    VBAX Expert
    Joined
    May 2016
    Posts
    603
    Location
    Yes this is very easy with VBA
    try this:

    [vba]Sub movedata()
    Dim Baseball10 As Range
    Dim Baseball8 As Range
    Dim Football10 As Range
    Dim Football8 As Range


    With Worksheets("Players")
    lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    inarr = .Range(Cells(3, 1), Cells(lastrow, 6))
    End With


    With Worksheets("Baseball")
    Set Baseball10 = .Range(.Cells(4, 1), .Cells(19, 5))
    Set Baseball8 = .Range(.Cells(22, 1), .Cells(37, 5))
    End With
    With Worksheets("Football")
    Set Football10 = .Range(.Cells(4, 1), .Cells(19, 5))
    Set Football8 = .Range(.Cells(22, 1), .Cells(37, 5))
    End With
    b10 = 1
    b8 = 1
    f10 = 1
    f8 = 1


    For i = 1 To lastrow - 2
    If inarr(i, 1) = "Baseball" Then
    If inarr(i, 4) = "10" Then
    For k = 1 To 5
    Baseball10(b10, k) = inarr(i, 1 + k)
    Next k
    b10 = b10 + 1
    Else
    For k = 1 To 5
    Baseball8(b8, k) = inarr(i, 1 + k)
    Next k
    b8 = b8 + 1
    End If
    Else
    If inarr(i, 1) = "Football" Then
    If inarr(i, 4) = "10" Then
    For k = 1 To 5
    Football10(f10, k) = inarr(i, 1 + k)
    Next k
    f10 = f10 + 1
    Else
    For k = 1 To 5
    Football8(f8, k) = inarr(i, 1 + k)
    Next k
    f8 = f8 + 1
    End If
    End If
    End If
    Next i

    End Sub


    [/vba]

  3. #3
    VBAX Newbie
    Joined
    Jun 2017
    Posts
    4
    Location
    Thank you this definitely helps me get started.

Posting Permissions

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