- Katılım
- 11 Ekim 2005
- Mesajlar
- 140
:hey: arkadaşlar aşağıdaki makronun bir alt hücreye devam etmesi için ne yapabilirim. döngüyü tamamladıktan sonra bir alt hücreye geçsin.
Sub yeni()
Var = Range("E3").Value
If Var = Range("B3").Value Then
Range("B4").Select
Range("O3") = Range("B4")
ElseIf Var = "B" Then
Range("O3") = "C"
ElseIf Var = "C" Then
Range("O3") = "D"
ElseIf Var = "D" Then
Range("O3") = "E"
ElseIf Var = "E" Then
Range("O3") = "F"
ElseIf Var = "F" Then
Range("O3") = "G"
ElseIf Var = "G" Then
Range("O3") = "H"
ElseIf Var = "H" Then
Range("O3") = "I"
ElseIf Var = "I" Then
Range("O3") = "J"
ElseIf Var = "J" Then
Range("O3") = "K"
ElseIf Var = "K" Then
Range("O3") = "M"
ElseIf Var = "M" Then
Range("O3") = "N"
ElseIf Var = "N" Then
Range("O3") = "O"
ElseIf Var = "O" Then
Range("O3") = "P"
ElseIf Var = "P" Then
Range("O3") = "R"
ElseIf Var = "R" Then
Range("O3") = "S"
ElseIf Var = "S" Then
Range("O3") = "T"
ElseIf Var = "T" Then
Range("O3") = "V"
ElseIf Var = "V" Then
Range("O3") = "Y"
ElseIf Var = "Y" Then
Range("O3") = "X"
ElseIf Var = "X" Then
Range("O3") = "Z"
ElseIf Var = "Z" Then
Range("O3") = "A"
Else: Var = ""
End If
Range("e3").Activate
End Sub
Sub yeni()
Var = Range("E3").Value
If Var = Range("B3").Value Then
Range("B4").Select
Range("O3") = Range("B4")
ElseIf Var = "B" Then
Range("O3") = "C"
ElseIf Var = "C" Then
Range("O3") = "D"
ElseIf Var = "D" Then
Range("O3") = "E"
ElseIf Var = "E" Then
Range("O3") = "F"
ElseIf Var = "F" Then
Range("O3") = "G"
ElseIf Var = "G" Then
Range("O3") = "H"
ElseIf Var = "H" Then
Range("O3") = "I"
ElseIf Var = "I" Then
Range("O3") = "J"
ElseIf Var = "J" Then
Range("O3") = "K"
ElseIf Var = "K" Then
Range("O3") = "M"
ElseIf Var = "M" Then
Range("O3") = "N"
ElseIf Var = "N" Then
Range("O3") = "O"
ElseIf Var = "O" Then
Range("O3") = "P"
ElseIf Var = "P" Then
Range("O3") = "R"
ElseIf Var = "R" Then
Range("O3") = "S"
ElseIf Var = "S" Then
Range("O3") = "T"
ElseIf Var = "T" Then
Range("O3") = "V"
ElseIf Var = "V" Then
Range("O3") = "Y"
ElseIf Var = "Y" Then
Range("O3") = "X"
ElseIf Var = "X" Then
Range("O3") = "Z"
ElseIf Var = "Z" Then
Range("O3") = "A"
Else: Var = ""
End If
Range("e3").Activate
End Sub