Ezt a kódot rendeld a lapodhoz (lapfülön jobb klikk, kód megjelenítése, a kapott üres lapra másold be):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As String
If Target.Address = "$B$2" Then
a = Left(Target, 2)
If a = "10" And Cells(11, 2) = "" Then
Cells(11, 2) = Target
Exit Sub
End If
If a = "10" And Cells(11, 2) > "" Then _
Cells(Range("B65536").End(xlUp).Row + 1, 2) = Target
If a = "20" And Cells(11, 3) = "" Then
Cells(11, 3) = Target
Exit Sub
End If
If a = "20" And Cells(11, 3) > "" Then _
Cells(Range("C65536").End(xlUp).Row + 1, 3) = Target
End If
End Sub
Próbálj egy kicsit pontosabban fogalmazni a kérdés felvetésekor, kevesebb munkát adsz annak, aki segíteni akar.