Hücreye girilen her yeni değeri başka bir hücrede ve onun altındaki hücrelere sıralam

[altanuz]

Hücreye girilen her yeni değeri başka bir hücrede ve onun altındaki hücrelere sıralam

kolay gelsin, benim de çok takıldığım bir sorum var: diyelim ki A1 hücresine sürekli yeni değerler giriyorum ve bu girdiğim değerler bir başka hücrede örneğin B10 na atılacak. (buraya kadar sorun yok biliyorum), daha sonra A1 hücresine gireceğim yeni değerler ise B11, YENİDEN A1 hücresine gireceğim değerler ise B12 ve her A1 hücresine girdiğim yeni değer sonrası B12,B13... OLARAK GÖZÜKMESİNİ İSTİYORUM. Yardımcı olabilirseniz çok sevinirim, bana sanki böyle birşiy hiç olmayacakmış gibi geliyor. Şimdiden teşekkür ediyorum.

 

[Korhan Ayhan]

Selamlar,

Ekte konuyla ilgili örnek bir dosya hazırladım incelermisiniz.

 

[ETarkan]

altanuz oncelikle sordugun bu soru icin cok tesekkur ederim benim sormak bile aklima gelmemisti ama cok isime yaradi ve COST CONTROL verdigin cevap icin cok tesekkurler fakat ben bunun devami veya benzeri bi soru sormak istiyorum

A1 bilgi girince A5 den siralamaya baslasin ve devaminda B1,b5 den C1,C5 bunun devami olan bir ornek nasil yapilir ve yapilabilirmi

tesekkurler

 

[Korhan Ayhan]

Selamlar,

Tabiki bu istediğiniz yapılabilir. Ekteki örneği inceleyiniz.

 

[mbattal]

sayın cost control altanuz'a verdiğiniz cevabı 'xls' olarak tekrar verebilirmisiniz.(rar dosyası açamıyorum) teşekkürler

 

[altanuz]

Soruma kisa surede yanit verdiginiz icin gercekten cok tesekkur ediyorum, ama excel konusunda daha yeni oldugum icin hazirladigim hesap tablosuna sizin yaptiginiz makroyu nasil aktaracagim bilmiyorum. Bana bunu kisa olarak yazabilir misiniz? Sagolun!

 

[Korhan Ayhan]

Selamlar,

Sn. mbattal istediğiniz gibi xls dosyası ektedir.

Sn. altanuz makroyu kendi dosyanıza uyarlamak için benim eklediğim dosyayı açın. Alt kısımda sayfa isimlerinin bulunduğu bölüm var ordan sayfa ismi (Sayfa1) üzerinde sağ klik yapın ve sayfanın kod bölümüne ulaşın zaten kodlar karşınıza gelecektir. Buradaki kodları seçip kopyalayın. Kendi dosyanızı açın bu kodları hangi sayfaya uyarlıyacaksanız o sayfanın ismi üzerinde sağ klik yapın ve kodları buraya yapıştırın. Umarım anlatabilmişimdir.

 

[mbattal]

Sayın COST SONTROL ilgili dosya boş; içinde herhangi bir şey yok.( ben mi göremedim yoksa)

 

[Korhan Ayhan]

Selamlar,

Dosya boş değil A1 hücresine veri girip işlemleri görebilirsiniz.

 

[mbattal]

kusura bakmayın dikkat edememişim

 

[altanuz]

Tesekkur

Cos Control bilginizi paylastiginiz icin cok tesekkur ederim

 

[ETarkan]

tesekkurler cost control

tam istedigim gibi olmus cok tesekkurler

yalniz sizin yaptiginiz ornekten yola cikarak birsey yaptim ama bir yerde yanlis yaptim incelemeniz mumkunmu

tesekkurler

 

[altanuz]

Merhaba, yardımlarınız için şimdiden teşekkürü bir borç biliyorum. Ekli dosyayı inceledim. Buna ek olarak A1 hücresine girilen en son veriyi yine A1 hücresinde gösterebilirmisiniz? Son olarak yine bu sayfada bir başka hücre diyelim ki A23 hücresinin de değerini J1 hücresine atıp, (A23 de girilen son değer gözükecek şekilde) altına her yeni A23 ü sıralamak istiyorum. Sizin ekli dosyanızda bunu yapmaya çalıştım fakat bir türlü beceremedim. Teşekkürler! Altanuz.

 

[Korhan Ayhan]

Selamlar,

Sorunuzdan ben hiçbirşey anlamadım bir dosya üzerinde örnekleyerek izah ederseniz daha çabuk cevap alabilirsiniz.

 

[Korhan Ayhan]

tesekkurler cost control

tam istedigim gibi olmus cok tesekkurler

yalniz sizin yaptiginiz ornekten yola cikarak birsey yaptim ama bir yerde yanlis yaptim incelemeniz mumkunmu

tesekkurler

Selamlar,

Sn. ETarkan,

Örnek dosyanızı inceledim sanırım A1:K1 aralığına veri girip A5 hücresinden itibaren aktarmak istiyorsunuz fakat kodu yanlış kullandığınızdan istediğiniz sonucu alamadınız.

Kodlarınızdaki aşağıdaki satırdan itibaren 1 yazan kısmı bir artırarak düzenlemeniz gerekiyor. Buradaki 1 değeri sütunları ifade etmektedir.

ActiveCell.Offset(0, 1) = [B1]

Yani kodlarınız aşağıdaki gibi olmalıdır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [K1]) Is Nothing Then Exit Sub
    If [A1] = "" Or [B1] = "" Or [C1] = "" Or [D1] = "" Or [E1] = "" Or [F1] = "" Or [G1] = "" Or [H1] = "" Or [I1] = "" Or [J1] = "" Or [K1] = "" Then Exit Sub
    [A5].Select
    Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell = [A1]
    ActiveCell.Offset(0, 1) = [B1]
    ActiveCell.Offset(0, 2) = [C1]
    ActiveCell.Offset(0, 3) = [D1]
    ActiveCell.Offset(0, 4) = [E1]
    ActiveCell.Offset(0, 5) = [F1]
    ActiveCell.Offset(0, 6) = [G1]
    ActiveCell.Offset(0, 7) = [H1]
    ActiveCell.Offset(0, 8) = [I1]
    ActiveCell.Offset(0, 9) = [J1]
    ActiveCell.Offset(0, 10) = [K1]
    [A1:K1] = ""
    [A1].Select
End Sub

 

[amigo1905]

Gerçekten çok güzel bir soru. Bu soruyu sen sormasan ben soracaktım. Örnek bi dosya hazırlıyordum. Beni bu zahmetten kurtardığın için sağol.
Herkesin emeğine sağlık.

 

[altanuz]

ekli dosya

Altanuz'dan Selamlar. Sorduğum soruya ilişkin dosyayı Ek'te gönderdim. Teşekkür ediyorum.
Sorunuzdan ben hiçbirşey anlamadım bir dosya üzerinde örnekleyerek izah ederseniz daha çabuk cevap alabilirsiniz.[/QUOTE]

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz kodları aşağıdaki ile değiştirip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If [C13] = "" Then Exit Sub
    If Target.Address = "$C$13" Then
    [I1].Select
    Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell = [C13]
    [C13].Select
    End If
    If [H23] = "" Then Exit Sub
    If Target.Address = "$H$23" Then
    [J1].Select
    Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell = [H23]
    [H23].Select
    End If
    If [H24] = "" Then Exit Sub
    If Target.Address = "$H$24" Then
    [K1].Select
    Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell = [H24]
    [H24].Select
    End If
End Sub

 

[altanuz]

Tesekkur

Tamamdır, cok tesekkur ederim. Emeginize saglik.

 

[ETarkan]

COST_CONTROL

cok tesekkur ederim

Kolay gelsin