Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.basic.visual.misc > #332

Re: Can't select a range of data/single cell

Show all headers | View raw

Oops! Bad paste near the end in the With...End With construct. Sorry 
about that...
>>
>> ''''''''''''''''''''''''''''''''''''''''''''''''''
>> ' FillHourlyKWDdata Macro                        '
>> ' Loops through data in main sheet               '
>> ' Copies Average rows and date from each day     '
>> ' Pastes the rows and date into Hourly KWD Trends'
>> ''''''''''''''''''''''''''''''''''''''''''''''''''
>> Sub FillHourlyKWDdata()
>>   Dim rngSource As Range, rngTarget As Range
>>   Dim i As Integer
>>
>>   With Sheets("All Data")
>>     .Visible = True: Set rngSource = .Range("A10")
>>   End With
>>   With Sheets("Hourly KWD Trends")
>>     .Visible = True: Set rngTarget = .Range("A2")
>>   End With
>>
>     Application.ScreenUpdating = False
>>   For i = 10 To 230 Step 5
>>     With rngSource
>>       If .Offset(0, 1).HasFormula Then
>>         rngTarget = .Offset(-4, 25)
>>         'select next column over
>>         With rngTarget.Offset(0, 1).Resize(, 25)
>>         .Value = rngSource.Offset(0, 1).Resize(, 25).Value
>>         End With 'rngTarget.Offset(0, 1).Resize(, 25)
>>         Set rngSource = rngSource.Offset(5, 0)
>>         Set rngTarget = rngTarget.Offset(1, 0)
>>       Else
>>         Set rngSource = rngSource.Offset(1, 0)
>>       End If 'rngSource.Offset(0, 1).HasFormula
>>     End With 'rngSource
>>   Next 'i
>     With Application
>       .ScreenUpdating = True
>       .Goto Sheets("All Data").Range("A1")
>     End With 'Application
>     'Cleanup
>     Set rngSource = Nothing: Set rngTarget = Nothing
>> End Sub

-- 
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

Back to comp.lang.basic.visual.misc | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Can't select a range of data/single cell ACE <aenten1@gmail.com> - 2011-07-11 12:34 -0700
  Re: Can't select a range of data/single cell GS <gs@somewhere.net> - 2011-07-11 18:44 -0400
    Re: Can't select a range of data/single cell GS <gs@somewhere.net> - 2011-07-11 18:54 -0400
      Re: Can't select a range of data/single cell GS <gs@somewhere.net> - 2011-07-11 18:56 -0400
        Re: Can't select a range of data/single cell ACE <aenten1@gmail.com> - 2011-07-12 08:45 -0700
          Re: Can't select a range of data/single cell GS <gs@somewhere.net> - 2011-07-12 11:50 -0400

csiph-web