• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Z

zaffer1981

Katılım
26 Mart 2012
Mesajlar
253
Excel Vers. ve Dili
MİCROSOFT EXCELL OFFİCE 2007
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.
 
İlgili sayfanın kod kısmına girin.
Kod: 
Private Sub Worksheet_Calculate()
    s = Sayfa2.[a65536].End(3).Row + 1
    Sayfa2.Cells(s, 1) = [a1]
End Sub
 
Cevabınız için teşekkür ederim ancak önce sayfa 2 de 2.satırdan yazmaya başladı. Bunu düzeltebilir miyiz?
 
Kod: 
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
 
Çok teşekkür ederim gerçekten çok işime yaradı. tekrar sağolun
 
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.
 
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 ?
 
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
 
mesela sayfa 1 de b10 hücresindeki değişim K25 HÜCRESİNE AKTARILSIN VE ALT SATIRA GEÇEREK DEVAM ETSİN
 
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.
 
ü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.
 
Ş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.
 
formüllede olabilir ama ben sadece aynı sayfada alt alta yazmaya başlanılan hücreyi değiştirmek istiyorum onu nasıl yapabiliriz.
 
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.

Kod: 
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
 
Hamitcan bey kusura bakmayın. K25 hücresinin üzerindeki hücreler dolu ise değerleri getirmiyor
 
Hamitcan bey k25 in üzerindeki hücreler dolu oldugunda kod çalışmıyor
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst