Új hozzászólás Aktív témák

• #8823 Delila_1 veterán snowden #8822

  Új Válasz 2010-12-08 12:14:38 #8823

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz snowden #8822 üzenetére

  Sub Lenyíló22_Váltáskor()
  
  If Cells(1, 9) = 1 Then
  Cells(1, 10) = Cells(1, 3)
  Else
  Dim x As Integer
  x = Cells(1, 9).Value
  Cells(1, 10) = Cells(x, 3)
  End If
  
  End Sub

Új hozzászólás Aktív témák