Am un workbook cu mai multe foi
In prima foaie(foaia "INTRODUCERE") folosesc doar 2 celule: E7 si E8
Vreau sa fac un macro care sa-mi deschida foaia al carui nume este= cu valoarea din celula E7 din prima foaie si sa-mi copieze valoarea din celula C8 in primul celula goala din coloana B
Folosesc codul asta
Cod: Selectaţi tot
Sub Stoc()
Dim wkSht As Worksheet
For Each wkSht In Sheets
If ActiveSheet.Range("E7").Value = wkSht.Name Then
ActiveSheet.Range("E8").Copy Destination:=wkSht.Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
Sheets("INTRODUCERE").Select
Range("E7:E8").Select
Selection.ClearContents
Range("E7").Select
End If
Next
End Sub
1-daca nu exista foaie cu numele care trebuie, macro nu face nimic si nu stiu ca nu gaseste. am incercat sa bag un elseif inainte de endif, sa apara un MsgBox dar nu stiu cum sa scriu in cod " elseif ActiveSheet.range("E7").value <> wkSht.Name " si imi apare mesajul indiferent daca exista foaie sau nu
2-daca in foaia destinatie, pe coloana B, ultimul rand completat este 8, va scrie in 9 chiar daca randuri intermediare sunt goale(daca B5 este goala ) cum pot rezolva aceste probleme?
Multumesc