Hücre Dolu İse Bir Alt Hücreye Yaz

[zaffer1981]

Merhaba
Sayfa 1 de a1 hücresi içindeki veriyi b1 hücresinden alıyor. yani a1=b1
Sayfa 2 de a1 hücresine sayfa 1 deki a1 hücresinde yazılı olanı getirmek ve sayfa 1 deki a1 hücresinin her değişiminde sayfa 2 de a1 dolu ise bir alt satıra geçmesini istiyorum

KISACA HÜCRE DOLU İSE BİR ALT SATIRA KAYDIRMASINI İSTİYORUM.
TABİ VERİ ALINAN HÜCRE FORMÜLLÜ OLDUĞU İÇİN FORUMDAKİ DİĞER KODLAR İŞE YARAMIYOR

Umarım anlatabilmişimdir.

 

[hamitcan]

İlgili sayfanın kod kısmına girin.

Private Sub Worksheet_Calculate()
    s = Sayfa2.[a65536].End(3).Row + 1
    Sayfa2.Cells(s, 1) = [a1]
End Sub

 

[zaffer1981]

Cevabınız için teşekkür ederim ancak önce sayfa 2 de 2.satırdan yazmaya başladı. Bunu düzeltebilir miyiz?

 

[hamitcan]

Private Sub Worksheet_Calculate()
    s = Sayfa2.[a65536].End(3).Row + 1
    Sayfa2.Cells(s, 1) = [a1]
    If Sayfa2.[a1] = "" Then Sayfa2.Rows(1).Delete
End Sub

 

[zaffer1981]

Çok teşekkür ederim gerçekten çok işime yaradı. tekrar sağolun

 

[zaffer1981]

hamitcan bey merhaba tekrar. bir sorum olacaktı yine. bu işlemi aynı sayfa da ya da farklı sayfalarda ve farklı hücrelerde nasıl uygularım. mesela sayfa 1 de yazmaya başlaması gereken yer k10 dan sonrası ya da m10 ile m100 arası. kendim uğraştım ama yapamadım üstad.

 

[hamitcan]

Kod A1 hücresindeki bir değişikliği Sayfa2'ye aktarıyor. Siz K10 hücresindeki bir değişikliği mi Sayfa2'ye aktarmak istiyor sunuz ?

 

[zaffer1981]

ben sayfa 1 de a1 hücresi veya farklı bir hücredeki değişikliği yine sayfa 1 de (bu sayfa 2 de olabilir öyle tablolarım da var çünkü) c10 dan başlatarak (ya da farklı bir hücrede olabilir) yazdırmak istiyorum. tşk ederim

 

[hamitcan]

ben sayfa 1 de a1 hücresi veya farklı bir hücredeki değişikliği

Burada sabit bir hücre belirlemelisiniz yoksa hangi hücredeki bilginin aktarılacağını nasıl anlarız.

 

[zaffer1981]

mesela sayfa 1 de b10 hücresindeki değişim K25 HÜCRESİNE AKTARILSIN VE ALT SATIRA GEÇEREK DEVAM ETSİN

 

[zaffer1981]

hamitcan bey bu şekilde olabilir mi

 

[hamitcan]

Calculate olayı aynı değeri girdiğinizde çalışmıyor bu yüzden formülsüz bir çözüm yapmayı öneriyorum. Yani A1 hücresine bir değer girdiğinizde hem B10 hem de K25 hücrelerinde ve devamında bu değer görünecek.

 

[zaffer1981]

üstad bu olayları sadece aynı sayfada yapmak istiyorum. yani sayfa 1 de a1 değiştikçe k25 e yazsın önce sonra alt satırdan devam etsin. bu aynı sayfada olamaz mı acaba. ya da formülle yapılamaz mı. tşk.

 

[zaffer1981]

hamitcan bey bakabildiniz mi tekrar.

 

[hamitcan]

Şu anda yaptığımız iş Excel sayfası içinde bir formül hesaplaması olduğunda kodun çalışması. Ama formül aynı sonucu iki defa üretirse kod çalışmıyor yani formül sonucu 1 olsun eğer ikinci hesaplamada yine 1 çıkıyorsa Excel hesaplamayı gereksiz görüyor bu yüzden formüle bağlı kalmak istemiyorum. Ama ille de formülle yapacağım derseniz [b10] hücresinin başvurduğu hücre üzerinde çalışmayı önereceğim.

 

[zaffer1981]

formüllede olabilir ama ben sadece aynı sayfada alt alta yazmaya başlanılan hücreyi değiştirmek istiyorum onu nasıl yapabiliriz.

 

[hamitcan]

Varsayımlar;
Kaynak Hücre : A1
Formüllü Hücre : B10
Artan Şekilde İlerleyen Hücre : K25
A1 hücresindeki değişiklik B10 hücresini tetikler ve K25 hücresi her defasında 1 artar.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    Application.EnableEvents = False
    s = [k65536].End(3).Row
    If [k25] = "" Then s = s + 24 Else s = s + 1
    Cells(s, "k") = [b10]
    Application.EnableEvents = True
End Sub

 

[zaffer1981]

Hamitcan bey kusura bakmayın. K25 hücresinin üzerindeki hücreler dolu ise değerleri getirmiyor

 

[zaffer1981]

Hamitcan bey k25 in üzerindeki hücreler dolu oldugunda kod çalışmıyor

 

[zaffer1981]

Meseleyi çözebilecek kimse yok mi?