Kayit Yaptirma

[İLKERB]

ARKADAŞLAR BENİM SORUM ÇOK KOLAY AMA BİR TÜRLÜ YAPAMIYORUM.

YAPMAK İSTEDİĞİM,
A1 HÜCRESİNDE SÜREKLİ DEĞİŞKEN BİR DEĞER VAR. BEN BU DEĞERİ, B1 HÜCRESİNİN İÇERİĞİ HER ZAMAN 1 RAKAMINA EŞİT OLDUĞUNDA, A1 DEKİ DEĞERİ A2 YE YAZDIRMAK İSTİYORUM.

B1 2. SEFER 1 E EŞİT OLDUĞUNDA İSE, BU SEFER A3 E YAZDIRMAK İSTİYORUM.VE BUNU SÜREKLİ YAPMAM GEREKİYOR.

A1 DEKİ DEĞERİ A2, A3, A4 .........An DİYE HER SEFER KAYIT YAPMAK İSTİYORUM.(B1 1 E EŞİT OLDUĞUNDA)

 

[Ali]

İlgli sayfanızın sekmesini sağ tuş ile tıklayıp kod gürüntüle kısmını seçtikten sonra aşağıdaki kodları yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B1").Address And Range(" B1") = 1 Then
    Worksheets("Sayfa1").Cells(65536, 1).End(xlUp).Offset(1, 0).Value = Worksheets("Sayfa1").Cells(1, 1)
End If
End Sub

 

[İLKERB]

Üstad Eywallah Çok Saolasin, Gerİsİnİ Ben Bİ Şekİlde Hallederİm A Satiri Bİtİnce C V D Ye GeÇİcek, Onuda Ben Yapmaya ÇaliŞiyim Olmazsa Artik Tekrar Yardim İsterİm.