Hello, can someone help with the below request. I need expert help. Thanks!
"Brice" wrote:
> Where exactly do I put this? Can you write the full script (I'm a rookie at
> VBA)? Thanks!
>
> "Per Jessen" wrote:
>
> > On 8 Jan., 04:24, Brice <Br...@discussions.microsoft.com> wrote:
> > > I currently have a macro (script below) which copy&pastes a data range(from
> > > "CashEntry"
> > > sheet, cells $C$2:$P$3) to the bottom of a list (on another sheet
> > > ""CashTransferRecord") .
> > >
> > > How can I do this with multiple sheets instead of just one sheet named
> > > "CashTransferRecord"? Basically, I want macro to look at cell X2 on
> > > "CashEntry" tab to identify the tab's name where i want the data range to be
> > > added to. I want to add data records to a multiple selection of tabs solely
> > > based on the name in cell X2. Can you help?
> > >
> > > Your help is very appreciated!
> > > _________________________________
> > >
> > > Sub CopyPasteOntoDatabase()
> > >
> > > Sheets("CashTransferRecord").Select
> > > If Cells(2, 3).Value = Empty Then
> > > Worksheets("CashEntry").Range("$C$2:$P$3").Copy
> > > Worksheets("CashTransferRecord").Range("C2").PasteSpecial
> > > (xlPasteValues)
> > > Else
> > > Worksheets("CashEntry").Range("$C$2:$P$3").Copy
> > > Worksheets("CashTransferRecord").Range("C65000").End(xlUp).Offset(1,
> > > 0).Cells.PasteSpecial (xlPasteValues)
> > > End If
> > >
> > > End Sub
> >
> > Hi
> >
> > If entry in X2 is equal to a sheetname then you can use something like
> > this.
> >
> > shName=range("X2").value
> > sheets(shName).range("C2").pastespecial(xlPasteValues)
> >
> > Note that it will be case sensitive.
> >
> > //Per
> >
|
Similar Threads
