Create Hide And Seek Contact form Excel VBA

 Create Hide And Seek Contact form Excel VBA

Watch Video

VBA Code

Private Sub CMD1_Click()

On Error Resume Next

a = 24

b = 30

Me.TEL2.Left = a

Me.TEL2.Top = Me.TEL1.Top + b

Me.MOBILE1.Top = Me.MOBILE1.Top + b

Me.MOBILE2.Top = Me.MOBILE1.Top + b

Me.EMAIL1.Top = Me.EMAIL1.Top + b

Me.EMAIL2.Top = Me.EMAIL1.Top + b

Me.ADDRESS1.Top = Me.ADDRESS1.Top + b

Me.ADDRESS2.Top = Me.ADDRESS1.Top + b

Me.CMD2.Top = Me.MOBILE1.Top

Me.CMD3.Top = Me.EMAIL1.Top

Me.CMD4.Top = Me.ADDRESS1.Top

Me.CMD6.Top = Me.MOBILE1.Top

Me.CMD7.Top = Me.EMAIL1.Top

Me.CMD8.Top = Me.ADDRESS1.Top

Me.TEL2.TabStop = True

Me.CMD1.Visible = False

Me.CMD5.Visible = True

End Sub

Private Sub CMD2_Click()

On Error Resume Next

a = 24

b = 30

Me.MOBILE2.Left = a

Me.MOBILE2.Top = Me.MOBILE1.Top + 30

Me.EMAIL1.Top = Me.EMAIL1.Top + b

Me.EMAIL2.Top = Me.EMAIL1.Top + b

Me.ADDRESS1.Top = Me.ADDRESS1.Top + b

Me.ADDRESS2.Top = Me.ADDRESS1.Top + b

Me.CMD2.Top = Me.MOBILE1.Top

Me.CMD3.Top = Me.EMAIL1.Top

Me.CMD4.Top = Me.ADDRESS1.Top

Me.CMD6.Top = Me.MOBILE1.Top

Me.CMD7.Top = Me.EMAIL1.Top

Me.CMD8.Top = Me.ADDRESS1.Top

Me.MOBILE2.TabStop = True

Me.CMD2.Visible = False

Me.CMD6.Visible = True

End Sub

Private Sub CMD3_Click()

On Error Resume Next

a = 24

b = 30

Me.EMAIL2.Left = a

Me.EMAIL2.Top = Me.EMAIL1.Top + 30

Me.ADDRESS1.Top = Me.ADDRESS1.Top + b

Me.ADDRESS2.Top = Me.ADDRESS1.Top + b

Me.CMD2.Top = Me.MOBILE1.Top

Me.CMD3.Top = Me.EMAIL1.Top

Me.CMD4.Top = Me.ADDRESS1.Top

Me.CMD6.Top = Me.MOBILE1.Top

Me.CMD7.Top = Me.EMAIL1.Top

Me.CMD8.Top = Me.ADDRESS1.Top

Me.EMAIL2.TabStop = True

Me.CMD3.Visible = False

Me.CMD7.Visible = True

End Sub

Private Sub CMD4_Click()

On Error Resume Next

a = 24

b = 30

Me.ADDRESS2.Left = a

Me.ADDRESS2.Top = Me.ADDRESS1.Top + b

Me.CMD4.Top = Me.ADDRESS1.Top

Me.CMD8.Top = Me.ADDRESS1.Top

Me.ADDRESS2.TabStop = True

Me.CMD4.Visible = False

Me.CMD8.Visible = True

End Sub

Private Sub CMD5_Click()

On Error Resume Next

a = 465.75

b = 30

Me.TEL2.Left = a

Me.TEL2.Top = Me.TEL1.Top - b

Me.MOBILE1.Top = Me.MOBILE1.Top - 30

Me.MOBILE2.Top = Me.MOBILE1.Top - 30

Me.EMAIL1.Top = Me.EMAIL1.Top - b

Me.EMAIL2.Top = Me.EMAIL1.Top - b

Me.ADDRESS1.Top = Me.ADDRESS1.Top - b

Me.ADDRESS2.Top = Me.ADDRESS1.Top - b

Me.CMD2.Top = Me.MOBILE1.Top

Me.CMD3.Top = Me.EMAIL1.Top

Me.CMD4.Top = Me.ADDRESS1.Top

Me.CMD6.Top = Me.MOBILE1.Top

Me.CMD7.Top = Me.EMAIL1.Top

Me.CMD8.Top = Me.ADDRESS1.Top

Me.CMD1.Visible = True

Me.CMD5.Visible = False

End Sub

Private Sub CMD6_Click()

On Error Resume Next

a = 465.75

b = 30

Me.MOBILE2.Left = a

Me.MOBILE2.Top = Me.MOBILE1.Top - 30

Me.EMAIL1.Top = Me.EMAIL1.Top - b

Me.EMAIL2.Top = Me.EMAIL1.Top - b

Me.ADDRESS1.Top = Me.ADDRESS1.Top - b

Me.ADDRESS2.Top = Me.ADDRESS1.Top - b

Me.CMD2.Top = Me.MOBILE1.Top

Me.CMD3.Top = Me.EMAIL1.Top

Me.CMD4.Top = Me.ADDRESS1.Top

Me.CMD6.Top = Me.MOBILE1.Top

Me.CMD7.Top = Me.EMAIL1.Top

Me.CMD8.Top = Me.ADDRESS1.Top

Me.CMD2.Visible = True

Me.CMD6.Visible = False

End Sub

Private Sub CMD7_Click()

On Error Resume Next

a = 465.75

b = 30

Me.EMAIL2.Left = a

Me.EMAIL2.Top = Me.EMAIL1.Top - b

Me.ADDRESS1.Top = Me.ADDRESS1.Top - b

Me.ADDRESS2.Top = Me.ADDRESS2.Top - b

Me.CMD3.Top = Me.EMAIL1.Top

Me.CMD4.Top = Me.ADDRESS1.Top

Me.CMD8.Top = Me.ADDRESS1.Top

Me.CMD3.Visible = True

Me.CMD7.Visible = False

End Sub

Private Sub CMD8_Click()

On Error Resume Next

a = 465.75

b = 30

Me.ADDRESS2.Left = a

Me.ADDRESS2.Top = Me.ADDRESS1.Top - b

Me.CMD4.Top = Me.ADDRESS1.Top

Me.CMD8.Top = Me.ADDRESS1.Top

Me.CMD4.Visible = True

Me.CMD8.Visible = False

End Sub

Private Sub CommandButton2_Click()

Dim I As Long

I = Sheet2.Range("A1000000").End(xlUp).Row + 1

Sheet2.Range("A" & I) = Me.NMEBOX1

Sheet2.Range("B" & I) = Me.NMEBOX2

Sheet2.Range("C" & I) = Me.TELBOX1

Sheet2.Range("D" & I) = Me.TELBOX2

Sheet2.Range("E" & I) = Me.mobbox

Sheet2.Range("F" & I) = Me.mobbox2

Sheet2.Range("G" & I) = Me.EMBOX1

Sheet2.Range("H" & I) = Me.EMBOX2

Sheet2.Range("I" & I) = Me.ADDRESSBOX1

Sheet2.Range("j" & I) = Me.ADDRESSBOX2

'Fore Clear YTextbox

Dim ctr As Control

For Each ctr In UserForm1.Controls

On Error Resume Next

ctr.Value = ""

Next ctr

Me.NMEBOX1.SetFocus

End Sub