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

• #8830 Delila_1 veterán snowden #8829

  Új Válasz 2010-12-08 12:57:43 #8830

  Ú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 #8829 üzenetére

  Másik munkalapon:

  A ""C"" helyett ""'Adatokat tartalmazó lap'!C"" legyen.

• #8828 Delila_1 veterán snowden #8827

  Új Válasz 2010-12-08 12:47:46 #8828

  Ú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 #8827 üzenetére

  Akkor ennyi:

  Cells(1, 10) = "=INDIRECT(""C""&MATCH(RC[-1],C[-9],0))"

• #8825 Delila_1 veterán snowden #8822

  Új Válasz 2010-12-08 12:27:53 #8825

  Ú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

  Nem egészen világos nekem a kérdés. Ha azt akarod elérni, hogy ha az 1,9-ben az érték 1, akkor az 1,3 cella értéke szerepeljen az 1,10-ben, ha nem 1 az érték, akkor az 1,9 legyen az 1,10-ben?

  Ha igen,

  If Cells(1, 9) = 1 Then
  Cells(1, 10) = Cells(1, 3)
  Else
  Cells(1, 10) = Cells(1, 9)
  End If

• #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