1 defa kopyalama(formülün bir defa kullanılması)

[yağız22]

a1 hücresine girdiğim birinci değer b1 hücresine
a1 hücresine girdiğim ikinci değer b2 hücresine
a1 hücresine girdiğim üçüncü değer b3 hücresine yazılabilirmi

yada bir formülün bir defa kullanılması durumu olurmu mesela b1 hücresi a1 hücresinden 1 defa veri alsın ve a1 hücresi değiştiğinde b1 değişmesin,bu yapılabilirmi?

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    
    If Target = "" Then Exit Sub
    
    If [B1] = "" Then
        [B1] = Target
    ElseIf [B2] = "" Then
        [B2] = Target
    ElseIf [B3] = "" Then
        [B3] = Target
    End If
 
End Sub

.

 

[yağız22]

Ömer bey teşekkürler,çok sağolun

 

[yağız22]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    
    If Target = "" Then Exit Sub
    
    If [B1] = "" Then
        [B1] = Target
    ElseIf [B2] = "" Then
        [B2] = Target
    ElseIf [B3] = "" Then
        [B3] = Target
    End If
 
End Sub

.

arkadaşlar buna ek olarak
1-a1 hücresi koşullu biçimlendirme sonucunda oluşan renk b1, b2 ,b3hücresindede gözükebilirmi
2-a1 hücresine eğer 7 ise sayfa 2 nin b1 hücresine,eğer 12 ise sayfa 3 ün b1 hücresine yazılması için kod uygulanabilirmi?