D3= KALIP 'sa..

[k0081]

Merhaba arkadaşlar;

D3 kolonunda , "KALIP" ifadesi yazıyorsa tabloya "m²" ibaresi eklensin...

tabloya ekle butonuna basınca; mevcut bir tabloya ekleme yapan bir macro üzerinde çalışıyorum ve yaptımda.. yalnız; birimler ile ilgili küçük sıkıntılar var.. yukarıda sorduğum soruda ki gibi.. sonuçların yazıldığı tablodaki adres: L kolonudur..

yardımcı arkadaşlara şimdiden teşekkürler..

 

[Necdet]

Merhaba,

Sorunuzun ucu açık gibi, belki yanıt olur.

İlgili hücre formülü :

=EĞER(D3="KALIP";"m2";"")

 

[uzmanamele]

Merhaba

Doğrusu, poz no yazdığınızda, bf kitabından imalatın adı ve biriminin gelmesidir.
Sadece kelime köküne bağlı olarak birim yazmanız hataya sebep olur.
Kalıp verine (kolon) Kalıbı yazılırsa bunu kontrol etmekte zorluk çekebilirsiniz.
Gerçi ek almış kelimeler için de kod yazılmasında sorun olmaz ama iskele için birim ne olacak? m² mi m³ mü?

Aşağıdaki linkteki dosyada bulunan kodlardan faydalanabilirsiniz.

http://www.excel.web.tr/f132/ornek-metraj-cetveli-t77474.html

 

[k0081]

Merhaba,

Sorunuzun ucu açık gibi, belki yanıt olur.

İlgili hücre formülü :

=EĞER(D3="KALIP";"m2";"")

evet hocam bu şekilde olacak ama; bunu macro kodu ile yapmam gerekiyor. yapı bu...

 

[k0081]

Merhaba

hocam açıklayıcı bilgi için teşekkürler ama., benim ençok dikkat ettiğim noktalardan biride birimlerdir.. yani hata olasılığı 0 olması gerekiyor tabiki.. örnek tablonuzu inceledim. benim yaptığım tablodan çok farklı.. yinede cevap için teşekkürler..

 

[k0081]

Satır = Sheets("betonarme").Range("L65536").End(3).Row + 1
Sheets("betonarme").Cells(Satır, "L") = Format(Sheets("betonarme").[g62], "#,##0.00") & " m²"

bu sadece "m²" yazıyor.. buna "KALIP" şartını ekleyemedim...

 

[uzmanamele]

Satır = Sheets("betonarme").Range("L65536").End(3).Row + 1
Sheets("betonarme").Cells(Satır, "L") = Format(Sheets("betonarme").[g62], "#,##0.00") & " m²"

bu sadece "m²" yazıyor.. buna "KALIP" şartını ekleyemedim...

Merhaba
Hayal gücümüz sizinki kadar güçlü değil!
Nasıl bir tabloda, nereye bakarak, hangi kritere göre, nereye, ne yazacak bilebilmemiz mümkün mü?
Bu verilerle sorunuza cevap verilebilir mi sizce?

 

[k0081]

Merhaba

bunun hayal gücü ile bir alakası yok.! örnek kod satırını son mesajımda gönderdim.. sadece o kısmı ayarlayamadım. ayrıca, bence, soru oldukça açık.. belirli bir şarta göre macro ile birim yazdırmak.. örnek; siz a75 hücresine yazdırın da onu L3 hücresine almak basit.. gibi..

 

[Necdet]

Sayın Uzmanamele haklı, tek satırlık kod ile tüm olayı anlamak zor.

Buna rağmen bir tahminde bulunarak aşağıdaki kodları veriyorum. Sanırım D3 hücresindeki değere göre tüm L sütununda işlem yapmak istiyorsunuz.

If [D3] = "KALIP" Then Sheets("betonarme").Cells(Satır, "L") = Format(Sheets("betonarme").[g62], "#,##0.00") & " m²"

 

[k0081]

Sayın Uzmanamele haklı, tek satırlık kod ile tüm olayı anlamak zor.

Buna rağmen bir tahminde bulunarak aşağıdaki kodları veriyorum. Sanırım D3 hücresindeki değere göre tüm L sütununda işlem yapmak istiyorsunuz.

If [D3] = "KALIP" Then Sheets("betonarme").Cells(Satır, "L") = Format(Sheets("betonarme").[g62], "#,##0.00") & " m²"

anca bakma fırsatı bulabildim.. Hocam , Teşekkür ediyorum.. tamamdır..