Aktif hücreye ve yanındaki hücreleri veri girişi

[Ömer BARAN]

Boş olarak gördüğünüz hücrede boşluk karakteri olabilir (alandaki hücrelerde olan formüllerin sonucu "" mı yoksa " " mı buna bakın isterseniz.
Ya da en iyisi örnek belge yükleyin (cevabımın altında örnek belge yüklemeye ilişkin açıklama var), onun üzerinden bakılır elbette.

 

[aptillah]

sorunu hallettim yalnız boş hücreleri aradığım bölgelerde birleştirilmiş satırlar var onları da boş satır olarak görüyor bunu nasıl engelleyebiliriz

 

[Ömer BARAN]

Afaki sorulara verilecek afaki cevap, yanıltıcı/yanlış olabilir veya yeni soru/sorunlar ortaya çıkar ve konu uzayıp gider.
En iyisi gerçek belgenizle aynı yapıda bir örnek belge yüklemeniz diyebilirim.
.

 

[aptillah]

örnek doysa linki
http://s2.dosya.tc/server2/dr5fde/ornek.rar.html

 

[Ömer BARAN]

Önce açıklama : örneğin A1:A10 hücrelerini ya da A1:F1 hücrelerini birleştirip bu hücreye bir değer yazarsanız,
bu değerin adresi her iki durumda da A1'dir.
Yani; birleştirilmiş bir hücreye atıf yapan bir formül oluştururken kullanacağınız adres, birleştirilmiş hücrelerin
SOL-ÜST hücresinin adresidir.

Örnek belgenize göre birleştirilmiş D1314 hücresine bir değer yazın, başka bir hücreye =D14 formülünü uygularsanız sonuç 0 olur.
Bu hücreleri içeren =BOŞLUKSAY(D1314) veya =EĞERSAY(D1314;"") formülünün sonucu ise 1 olur.

D14 hücresinin dolu sayılmasını sağlayacak bir formül bilmiyorum malesef.

Önerim; birleştirme nedeniyle kullanılamayacak hücre adeti olan (D14 gibi) 1 sayısını EĞERSAY formülünün
sonucundan çıkartmak şeklinde olacak (D1314 yerine D1320 aralığını birleştirirseniz çıkartılacak hücre adeti 7 olur) .

 

[aptillah]

cevabınız için teşşekürler hocam ama birleştirme olan böle çok sütun var başka bir yol deniycem artık saolun

 

[Ömer BARAN]

cevabınız için teşşekürler hocam ama birleştirme olan böle çok sütun var başka bir yol deniycem artık saolun

Tekrar merhaba.
Ekteki belgeyi inceleyin.
Belgeye buradan da ulaşabilirsiniz.
.

 

[aptillah]

mesajınızı yeni gördüm gerçekten bilginize hayran kaldım çok işime yaradı saolun..

 

[Ömer BARAN]

mesajınızı yeni gördüm gerçekten bilginize hayran kaldım çok işime yaradı saolun..

Merhaba.

Önemli olan ihtiyacın görülmesi.
İyi günler dilerim.
.

 

[aptillah]

Ömer hocam 3. mesajımda örnek doya mevcut. normalde aktif satıra kayıt yapıyor userform açıldıktan sonra Userformdan tarihi seçtiğimizde kaydı 1. satırdaki tarihleri algılayarak ona göre kayıt yapabilir mi? örn: aktif hücredeki tarif 03.08.2016 ama rezervasyon yapmak istediğimiz tarih 15.08.2016 . bu konuda yardımlarınızı bekliyorum iyi çalışmalar.

 

[Ömer BARAN]

Merhaba.

Daha evvel de söylemiştim, Userformda kullandığınız DtPitcher'i bilgisayarımda çalıştıramıyorum.
Bu nedenle deneme şansım yok.

Yanlış anlamadıysam; UserForm2'deki KAYDET düğmesi kodlarında (Private Sub CommandButton1_Click() )

For satırından önceki aşağıdaki kırmızı satırı silip yerine mavi satırı ekleyerek deneyin.

NOT: TextBox4 anladığım kadarıyla geceleme sayısını gösteriyor ve tarihi DTPitcher nesnesinden alacaksınız,
o nedenle mavi satırdaki siyah kısmı düzenlemek size kalıyor.

[COLOR="Red"][FONT="Arial Narrow"]ilk = ActiveCell.Column: yazılan = 0[/COLOR]
[COLOR="blue"]ilk = WorksheetFunction.Match([COLOR="Black"][B]tarih nesnesinin değeri[/B][/COLOR], Range("1:1"), 0): yazılan = 0[/FONT][/COLOR]

 

[aptillah]

hocam worksheetfunction sınıfının match ozelliği alınamıyor hatası veriyor.

ilk = WorksheetFunction.Match(DTPicker1.Value, Range("1:1"), 0): yazılan = 0

 

[Ömer BARAN]

İşte benim onu deneme şansım olmadığını söylemiştim.

DTPitcher nesnesinden alınan değerin biçimiyle ilgili bir sorun olabilir,
nesne değerini Format(....,"dd/mm/yyyy") ya da CDate(......) gibi hücredeki tarihle
aynı biçime (tarih hücrelerini GENEL olarak ayarlayıp onunla karşılaştırmanızda yarar var)
getirmek gerekecek sanırım (DTPitcher1.Value olarak veya sadece DTPitcher1 olarak deneyin).

Başka bir kod oluşturup DTPitcher1'deki değeri excel sayfasında, GENEL olarak biçimlendirilmiş
bir hücreye yazdırın bakalım, hücreye yazılan değer tam olarak nedir?
Ya da yukarıda belirttiğiniz satırdan önce,
MsgBox DTpitcher1.Value
şeklinde bir satır ekleyin, ekrana gelen mesajda tam olarak ne görüyorsunuz, onu kontrol edin.
Neticede 1'inci satırda aranacak şey DTPitcher değeri.

Cümlelerim biraz bozuk oldu galiba ama anlaşılıyordur umarım.
.

 

[aptillah]

08.08.2016 dtpicker valuesi bu şekilde hocam hücresinin değerinide bu şekilde düzenledim ama gene sonuç aynı siz başka takvim uygulaması kullanarak deneyebilir misiniz ?

 

[Ömer BARAN]

Hücrede değil de MsgBox mesajı olarak denediniz mi acaba?
Bir de 0+ DTPitcher1.Value olarak bakın.

08.08.2016 tarihi olan hücreyi GENEL olarak biçimlediğinizde 42590 değerini görmeniz lazım.

 

[aptillah]

denedim hocam maalesef olmadı. dtpicker değerini label a aktarıp"08.08.2016" şeklindede denedim gene aynı hatayı veriyor

 

[Ömer BARAN]

Kusura bakmayın deneme şansım da olmadığından hayalen ancak bu kadar fikrimi söyleyebildim.

Google arama motorunda userform DatePitcher format excel vba şeklinde arama yapmanızı önerebilirim.
Bu konu bir yerlerde mutlaka sorulmuş ve çözümü bulunmuştur diye düşünüyorum.

 

[aptillah]

anladım hocam saolun uğraştığınız için