Excelde aynı hücreye girilen verileri başka hücrelere aktarm

Kodla Büyü

konmir

Üye
Mesajlar
13
Arkadaşlar excelde a1 hücresine farklı farklı değerler girmem gerekiyor. A1 hücresine girdiğim degerleri c sutununda alt alta görmem gerekiyor bunun için nasıl bir kod yazmalıyım yada fonksiyonlar la bunu nasıl yapabilirim. Yardımcı olacak arkadaşlara şimdiden teşekür ederim.
 
a1 hücresine birbirinden farklı sayılar girilecek ve girilen her sayı c sutununda alt alta sıra ile gösterilecek. Sabit deger olmayacak a1 hücresine girilecek degerler değişiyor ama girilen degerleri c sutunuda listelemek yani alt alta görmek istiyorum umarım anlatabilmişimdir.
biraz daha açalım a1 hücresine 10 girdim c1 10 görülecek sonra a1 hücresine girilen degeri değiştirdim 20 girdim c2 hücresinde 20 degeri görülecek a1 girilen deger değişti a1 hücresine 150 girdim c3 hücresine 150 yazacak bunun gibi
Bu yapacağım çalışma benim için çok önemli lütfen yardım edin............
 
şuraya bir bak hocam. Zamanında çok istifade ettiğim bir yer.

http://excel.web.tr/
 
Makro kullanarak yapabilirsiniz.
Sayfa1 üzerine sağ tıklayıp, Kodu Görüntüle deyin ve aşağıdaki kodu yapıştırın.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
 For i = 1 To Range("C65535").End(xlUp).Offset(1, 0).Row
   If Range("C" + CStr(i)).Value = "" Then
     Range("C" + CStr(i)).Value = Target.Value
     Exit For
    End If
 Next i
End If
End Sub
Kod C sütunundaki ilk boş hücreyi bulup, A1'deki değeri oraya aktaracaktır.
 
yakuphan' Alıntı:
Makro kullanarak yapabilirsiniz.
Sayfa1 üzerine sağ tıklayıp, Kodu Görüntüle deyin ve aşağıdaki kodu yapıştırın.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
For i = 1 To Range("C65535").End(xlUp).Offset(1, 0).Row
If Range("C" + CStr(i)).Value = "" Then
Range("C" + CStr(i)).Value = Target.Value
Exit For
End If
Next i
End If
End Sub
Kod C sütunundaki ilk boş hücreyi bulup, A1'deki değeri oraya aktaracaktır.

Hocam tam aradığım kodu yazmışsız, ilgi ve alakanıza çok teşekkür ederim.
 
Banada yardım edermisiniz?

sayfa1 de a1 b1 c1 d1 hücrelerine yazdığım değer
sayfa 2 de a b c d hücrelerine alt alta nasıl kyıt edebilirim otomatik olarak.
teşekkürler
 
arifarte' Alıntı:
Banada yardım edermisiniz?

sayfa1 de a1 b1 c1 d1 hücrelerine yazdığım değer
sayfa 2 de a b c d hücrelerine alt alta nasıl kyıt edebilirim otomatik olarak.
teşekkürler

sayfa2 ye geçin =Sayfa1!A1 formulünü yazın, sonra formülü sürükle bırakla çoğaltın.
 
aakcakaza' Alıntı:
arifarte' Alıntı:
Banada yardım edermisiniz?

sayfa1 de a1 b1 c1 d1 hücrelerine yazdığım değer
sayfa 2 de a b c d hücrelerine alt alta nasıl kyıt edebilirim otomatik olarak.
teşekkürler

sayfa2 ye geçin =Sayfa1!A1 formulünü yazın, sonra formülü sürükle bırakla çoğaltın.

Sanırsam veri girişlerini her zaman sayfa1 a1, b1, c1 ve d1 hücrelerine yapacak. a2, b2, c2 ve d2 ... gibi hücreleri kullanmayacak.
 
Aynen dediğiniz gibi verileri sayfa 1'e yazacagım.Sayfa 2 ye otomatik alt alta kayıt edecek.Sayfa 1 den çıktı aldıktan sonra aynı değerleri birde sayfa 2 ye manuel yazmak zorunda kalıyorum.Bu yüzden yardım ederseniz tam süper olur.
 
arkadaşlar ben tek bir hücreden veri alıp aldığı her veriyi belli bir koşula göre başka bir saydada ilgili yeri (düşey ara ile buldurup) yazdırmak istiyorum. yani yukarıda ki gibi ama yatay olarak yazdırmam lazım. bana yardımcı olacak bir babayiğit varsa bilgisayarımın başında heyecanla bekliyor olacağım..
 
:+1: :alkis: :alkis: :alkis:
yakuphan' Alıntı:
Makro kullanarak yapabilirsiniz.
Sayfa1 üzerine sağ tıklayıp, Kodu Görüntüle deyin ve aşağıdaki kodu yapıştırın.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
 For i = 1 To Range("C65535").End(xlUp).Offset(1, 0).Row
   If Range("C" + CStr(i)).Value = "" Then
     Range("C" + CStr(i)).Value = Target.Value
     Exit For
    End If
 Next i
End If
End Sub
Kod C sütunundaki ilk boş hücreyi bulup, A1'deki değeri oraya aktaracaktır.
 
konmir' Alıntı:
yakuphan' Alıntı:
Makro kullanarak yapabilirsiniz.
Sayfa1 üzerine sağ tıklayıp, Kodu Görüntüle deyin ve aşağıdaki kodu yapıştırın.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
For i = 1 To Range("C65535").End(xlUp).Offset(1, 0).Row
If Range("C" + CStr(i)).Value = "" Then
Range("C" + CStr(i)).Value = Target.Value
Exit For
End If
Next i
End If
End Sub
Kod C sütunundaki ilk boş hücreyi bulup, A1'deki değeri oraya aktaracaktır.

Hocam tam aradığım kodu yazmışsız, ilgi ve alakanıza çok teşekkür ederim.
 
arkadaşlar diğer sayfaya aktarmak için bu kodu değiştirebilirmiyiz yoksa yeni kod mu lazım ben sayfa 1 deki hücrede girilen değişken verileri diğer sayfalara listelenmesini istiyorum, yardım edebilirmisiniz.
 
Formul için çok teşekkür ederim.
Ben formülde değişiklik yapmak için uğraştım. Ama sayfa ikide b10-b50 aralığını veremedim.

Ben sayfa1 de A2 hücresine girdiğim değerlerin Sayfa2 de b10 dan aşağıya b50 aralığına aktarılmasını istesem o nasıl olacak?
Şimdiden teşekkür ederim.
 
Geri
Üst