How to go to the next sheet if there is no one

[Palucci]

I'd like to write a loop or an If procedure that will go to the next sheet or continue the macro when it checks that there is no sheet. How best to do it

Please Login or Register  to view this content.

Similiar cross post : https://stackoverflow.com/questions/...09806_71114414

[Richard Buttrey]

Hi,

It's not clear why you first copy F4 from the Tabela sheet (which doesn't actually contain a table and then paste to G17 on a sheet, then copy J5 and immediately paste that to the same G17 cell you've just updated, and then repeat the J5 copy paste G17 a second time.

In general this is what I think you're trying to do. I can't be certain of which cells need pasting to so it uses your G17 and one I've assumed J17 - change that as necessary. You didn't say whether you are copying text or numeric values so I've Dim'd the vVal1 and vVal2 as Variants. If they're always the same text or number then Dim them appropriately, e.g. Dim st1 as String or Dim lVal1 as Long

Incidentally it's always best to use theVBA Sheet Code name in code, NOT the tab name, so in your case instead of
vVal1 = Sheets("Tabela_COREP").Range("F4").Value
use
vVal1 = Sheet3.Range("F4").Value

Please Login or Register  to view this content.

[Palucci]

Hi,

It's not clear why you first copy F4 from the Tabela sheet (which doesn't actually contain a table and then paste to G17 on a sheet, then copy J5 and immediately paste that to the same G17 cell you've just updated, and then repeat the J5 copy paste G17 a second time.

In general this is what I think you're trying to do. I can't be certain of which cells need pasting to so it uses your G17 and one I've assumed J17 - change that as necessary. You didn't say whether you are copying text or numeric values so I've Dim'd the vVal1 and vVal2 as Variants. If they're always the same text or number then Dim them appropriately, e.g. Dim st1 as String or Dim lVal1 as Long

Incidentally it's always best to use theVBA Sheet Code name in code, NOT the tab name, so in your case instead of
vVal1 = Sheets("Tabela_COREP").Range("F4").Value
use
vVal1 = Sheet3.Range("F4").Value

Please Login or Register  to view this content.

I mean, I have multiple sheets in the template, Eg C_0700_002 then C_0700_0007 and so on. I mean, if it doesn't find this sheet, the macro will continue to work. And it went on to the next part of the macro.

[Richard Buttrey]

Yes I understand what you are trying to do but your original explanation didn't line up with your code.

The question is does my code help you?
Your cell references weren't consist but the code shows you how cycle through all sheets with one exception (the Tabela sheet) and copy F4 & J5 pasting them to G17 & J17 on each sheet. Change the refs as necessary.

Incidentally there's no need to include all the text of the post to which you are replying. Only use quoted parts where it's necessary to aid understanding. Otherwise it causes unnecessary clutter.

[Palucci]

Ok, I'm sorry, so my code should look like I should pass between Sheets ? What i do wrong still ?

Please Login or Register  to view this content.