Hücre başvurusu için makro

[karagöz55]

Sayfa1'de oluşturduğum listedeki verileri kullanarak Sayfa2 ve diğer sayfalarda (yalaşık 14 ayrı sayfa) DÜŞEYARA formülünü kullanarak oluşturduğum sayfalarda yeni veri oluşturarak yazıcıdan çıktı alıyorum. Yazıcıdan çıktı alırken Sayfa2'deki yazıcıdan çıktı aldığım her bir sayfa için ayrı ayrı (bazen aynı tarih) oluşturulan tarihlerin Sayfa1'deki ilgili satırdaki ilgili sütuna gitmesini sağlayacak makro formülü arıyorum.
Yaptığım formüller her seferinde yalnızca aynı satırdaki ayni hücreye gidiyor.(mesela P3 hücresine) Benim istediğim Sayfa2'deki yazdırılacak ilgili satır değiştikçe oluşacak yeni tarihin de Sayfa1’deki ilgili satıra gitmesini sağlamak.
Sorumu ekteki örnek dosyada anlatmak istedim.
Yardımcı olacak arkadaşlara şimdiden minnettarlığımı sunarım.

 

[Orion1]

Dosyayı inceleyiniz istediğiniz böyle bir şeymi?

 

[karagöz55]

Evren Gizlen'e ilginizden dolayı teşekkürlerimi sunarım
Ancak ekteki dosya yalnızca benim dosyanın aynısı
Burada yapılan makro nerededir göremedim.
Dosyada gösterdiğim HÜCRE İÇİ AÇIKLAMA BİLGİLERİNE uygun makro kodlarını gönderirseniz sevinirim.

 

[Orion1]

Evren Gizlen'e ilginizden dolayı teşekkürlerimi sunarım
Ancak ekteki dosya yalnızca benim dosyanın aynısı
Burada yapılan makro nerededir göremedim.
Dosyada gösterdiğim HÜCRE İÇİ AÇIKLAMA BİLGİLERİNE uygun makro kodlarını gönderirseniz sevinirim.

Aynisi değil.
Siz DURUŞMA YENİ GÜN sayfasındaki A1 hücresinde numaranın Ana sayfadaki ayni nolu satırda P sütununda ,H4 teki tarihin olmasını itemişsiniz .Bende P sütununa formül koydum.
DURUŞMA YENİ GÜN sayfasında A1 hücresine bir rakam girin .Diğer sayfaya gidin yazdığınız satırdaki P sütunundaki hücreye bakın.Tarih yazacaktır.

 

[karagöz55]

Evren Gizlen Beye teşekkürler.
Dediğiniz doğru,
Ancak yeni oluşan ve Ana sayfada ilgili sütuna giden tarihin aynı zamanda burada kalıcı olarak kaydedilmesini istiyorum.
Sizin yazdığnız formülde DURUŞMA YENİ GÜN sayfasındaki A1 hücresindeki rakam değiştikçe atılan önceki tarih siliniyor. Ben bu tarihin kalıcı olarak burda kalmasını istiyorum.
Şimdiden teşekkürler

 

[Orion1]

Evren Gizlen Beye teşekkürler.
Dediğiniz doğru,
Ancak yeni oluşan ve Ana sayfada ilgili sütuna giden tarihin aynı zamanda burada kalıcı olarak kaydedilmesini istiyorum.
Sizin yazdığnız formülde DURUŞMA YENİ GÜN sayfasındaki A1 hücresindeki rakam değiştikçe atılan önceki tarih siliniyor. Ben bu tarihin kalıcı olarak burda kalmasını istiyorum.
Şimdiden teşekkürler

Dosyanız hazır.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1,H4")) Is Nothing Then Exit Sub
On Error Resume Next
Sheets("ANA SAYFA").Cells(Range("A1") + 2, "P").Value = Range("H4").Value
End Sub

 

[karagöz55]

Evren Gizlen Bey'e ilginizden dolayı çok teşekkür ederim.
Benim istediğimin de ötesinde bir formül. Ben private sub formülünün nasıl kullanıldığını pek anlayamadığım için (diğer kitaplarda çalıştırmak için) formülün ikinci satırından itibaren kullandım işimi fevkalade gördü.
EĞER SEN DE ARTIK ÇOK OLUYORSUN DEMEZSENİZ,
Bu formül esas numaralarının sayı atlamadan peş peşe geldiği zaman tamam. Bununla birlikte benim başka bir kitabımda esas numaraları 80 den başlıyor, rakam atlayarak gidiyor. (120, 146, 250 vb şekilde) ve belirli bir düzeni yok. Ben de bunlara kısa yoldan ulaşmak için esas numarasının önüne MK kodunu koyarak (MK80) benzeri HÜCREYE İSİM tanımlaması yaptım. aynı özellik ilk mesajımdaki örnek dosyada da var. Acaba ilk başvuruyu MK80 benzeri isim tanımlaması yapılmış hücreye gitmek suretiyle yapabileceğimiz bir formül var mı? İlginizden dolayı şimdiden teşekkürler

 

[Orion1]

Sayılar ardışık gitmiyor.
Siz kaçıncı satırı yazıyorsanız o satıra gidiyor ve yazıyor.
80 yazarsanız 80.ci satırdaki P sütununa yazar.

 

[Orion1]

Evren Gizlen Bey'e ilginizden dolayı çok teşekkür ederim.
Benim istediğimin de ötesinde bir formül. Ben private sub formülünün nasıl kullanıldığını pek anlayamadığım için (diğer kitaplarda çalıştırmak için) formülün ikinci satırından itibaren kullandım işimi fevkalade gördü.
EĞER SEN DE ARTIK ÇOK OLUYORSUN DEMEZSENİZ,
Bu formül esas numaralarının sayı atlamadan peş peşe geldiği zaman tamam. Bununla birlikte benim başka bir kitabımda esas numaraları 80 den başlıyor, rakam atlayarak gidiyor. (120, 146, 250 vb şekilde) ve belirli bir düzeni yok. Ben de bunlara kısa yoldan ulaşmak için esas numarasının önüne MK kodunu koyarak (MK80) benzeri HÜCREYE İSİM tanımlaması yaptım. aynı özellik ilk mesajımdaki örnek dosyada da var. Acaba ilk başvuruyu MK80 benzeri isim tanımlaması yapılmış hücreye gitmek suretiyle yapabileceğimiz bir formül var mı? İlginizden dolayı şimdiden teşekkürler

A1 hücresine tanımlı alan adlarını yazarak tanımlı alanlara tarihi aktarabilirsiniz.
A1 Hücresine tanımlı alan adlarından bir tanesini yazınız.
Yalnız alan adlarınızda referans hücreleri hatalı tekrardan düzeletiniz ve adrelerin başına $ işareti koyarak sabitleyiniz.
Ben MK1000 i ayarladım diğer alan adlartındaki referansları sizi düzeltiniz.
Ekli dosyayı inceleyiniz.

 

[karagöz55]

EVREN GİZLEN BEY'E
SONSUZ TEŞEKKÜRLER
Hazırlamış olduğunuz kodlar gerçekten çok mükemmel.
İşimi fazlasıyla görecek.
Ayrıntısını hafta sonu iyice anlamaya çalışacağım.
Tekrar teşekkürler

 

[karagöz55]

A1 hücresine tanımlı alan adlarını yazarak tanımlı alanlara tarihi aktarabilirsiniz.
A1 Hücresine tanımlı alan adlarından bir tanesini yazınız.
Yalnız alan adlarınızda referans hücreleri hatalı tekrardan düzeletiniz ve adrelerin başına $ işareti koyarak sabitleyiniz.
Ben MK1000 i ayarladım diğer alan adlartındaki referansları sizi düzeltiniz.
Ekli dosyayı inceleyiniz.

SİZLERE BU FORMÜLLERDEN DOLAYI NE KADAR TEŞEKKÜR ETSEM AZDIR.
DEDİKLERİNİZİ YAPTIM TAM İSTEDİĞİM GİBİ OLDU.
ANCAK BU ARADA UFAK BİR PÜRÜZ ÇIKTI.
Bildiğiniz gibi var olan her bir dosya için hücre tanımlaması yaptım. Hücre ismi olanlarda herhangi bir sorun yok. Fakat yanlışlıkla hücre tanımlaması olmayan bir veri girip dosyayı yazıcıya gönderdiğimizde hata veriyor ve direk VBA penceresi açılıyor. Hata vermesi normal. Fakat ben bu hata esnasında VBA penceresinin açılmasının yerine mesela bir MsgBox açılıp da "ARADIĞINIZ DOSYA BULUNAMADI" şeklinde bir mesaj yazmasını istiyorum.
MsgBox konusunda az bir bilgiye sahibim ancak, bildiklerimle bu dediğimi yapamadım. Umarım yardımınız olur.
Yardımlarınız için şimdiden teşekkürler

 

[Orion1]

SİZLERE BU FORMÜLLERDEN DOLAYI NE KADAR TEŞEKKÜR ETSEM AZDIR.
DEDİKLERİNİZİ YAPTIM TAM İSTEDİĞİM GİBİ OLDU.
ANCAK BU ARADA UFAK BİR PÜRÜZ ÇIKTI.
Bildiğiniz gibi var olan her bir dosya için hücre tanımlaması yaptım. Hücre ismi olanlarda herhangi bir sorun yok. Fakat yanlışlıkla hücre tanımlaması olmayan bir veri girip dosyayı yazıcıya gönderdiğimizde hata veriyor ve direk VBA penceresi açılıyor. Hata vermesi normal. Fakat ben bu hata esnasında VBA penceresinin açılmasının yerine mesela bir MsgBox açılıp da "ARADIĞINIZ DOSYA BULUNAMADI" şeklinde bir mesaj yazmasını istiyorum.
MsgBox konusunda az bir bilgiye sahibim ancak, bildiklerimle bu dediğimi yapamadım. Umarım yardımınız olur.
Yardımlarınız için şimdiden teşekkürler

Hangi sayfayı ve hangi hücreleri veya alanı yazıcıya gönderdiğinizde hata veriyor.
Yazıcıda yazdırılması için bir butonunuzmu var?
O dsyadan ufak bir örnek yollayıp gerekli açıklamasınıda yazınız.

 

[Orion1]

Bir alan eklediğinizde veya sildiğinizde T1 hücresindeki Butona basınız.
Bu durumda yeni eklenen alan ismide A1 hücresindeki listede gözükecektir.
A1 hücresindeki veri doğrulamada listede olmayan veriler A1 hücresine girelemiyor.Ekli dosyayı inceleyiniz.

 

[karagöz55]

EVREN GİZLEN BEY'E
İlginizden dolayı şimdiden teşekkürler.
Yapmaya çalıştığım kitabın bir parçasını ve sorumu 2 sayfada (DuruşmaYeniGün) sayfasında anlatmaya çalıştım.
Umarım anlatabilmişimdir.

 

[Orion1]

13 nolu mesajda bir dosya ekledim.O dosyada A1 hücresine Alan isimleri dışında bir veri giremiyorsunuz ve A1 hücredeki listeden bir seçim yapıyorsunuz.