Dear all,
I have two questions.
I have made an excel document that makes all the labels that I need for my class at the start of the year. This was done on a Mac Book but every time the excel updates all the cell sizes change. Is there s a better program I could use?
I am learning to use VBA and I want to loop the function below in till the cell in that column is empty. I have tried to follow what it says on different websites but finding it a bit too difficult as yet. Any suggestions on finding tutorials on this would be appreciated.
Sub BugClub()
'
' BugClub Macro
'
'
Range("B3:B4").Select
ActiveCell.FormulaR1C1 = "='Child''''s Details'!R[-1]C[6]"
Range("C3:C4").Select
ActiveCell.FormulaR1C1 = "='Child''''s Details'!R[-1]C[6]"
Range("A1:D5").Select
Selection.Copy
Range("A6").Select
ActiveSheet.Paste
Range("B8:B9").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='Child''''s Details'!R[-1]C[6]"
Range("B8:B9").Select
ActiveCell.FormulaR1C1 = "='Child''''s Details'!R[-5]C[6]"
Range("C8:C9").Select
ActiveCell.FormulaR1C1 = "='Child''''s Details'!R[-5]C[6]"
Range("D14").Select
End Sub
••••ˇˇˇˇ
Once again. Thank you for your help.
I have two questions.
I have made an excel document that makes all the labels that I need for my class at the start of the year. This was done on a Mac Book but every time the excel updates all the cell sizes change. Is there s a better program I could use?
I am learning to use VBA and I want to loop the function below in till the cell in that column is empty. I have tried to follow what it says on different websites but finding it a bit too difficult as yet. Any suggestions on finding tutorials on this would be appreciated.
Sub BugClub()
'
' BugClub Macro
'
'
Range("B3:B4").Select
ActiveCell.FormulaR1C1 = "='Child''''s Details'!R[-1]C[6]"
Range("C3:C4").Select
ActiveCell.FormulaR1C1 = "='Child''''s Details'!R[-1]C[6]"
Range("A1:D5").Select
Selection.Copy
Range("A6").Select
ActiveSheet.Paste
Range("B8:B9").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='Child''''s Details'!R[-1]C[6]"
Range("B8:B9").Select
ActiveCell.FormulaR1C1 = "='Child''''s Details'!R[-5]C[6]"
Range("C8:C9").Select
ActiveCell.FormulaR1C1 = "='Child''''s Details'!R[-5]C[6]"
Range("D14").Select
End Sub
••••ˇˇˇˇ
Once again. Thank you for your help.