Cm Ölçüleri İnç Ölçülere Çevirme

Akif59 · 25 Kas 2021

Merhaba
Örnek dosyada Cm cinsinden değerleri bir buton yardımıyla Inçh çeviriyorum bu ilemi yapan bir kod bulogu mevcut dosyada
sorun çevirilen değerlerin kesirli bölümünün tam olarak istediğim gibi çevirilemesi

ulaşılmak istenen değerler dosyada şağda mevcut

Ömer BARAN · 20 Ara 2021

Sanırım Worksheet_Change koduna yaptığımız ilaveyi hiç yapmamamız gerekiyordu.
43 numaralı cevapta belirttiğim ilaveleri tamamen kaldırıp, işlemi HESAPLA koduna bırakınca sorun kalmıyor olarak görüyorum.
Şimdilik birim değiştirmeyi kullanmadan (CM-INCH dönüşümü) ve birim INCH veya CM iken G sütunundaki değerleri elle yaz/sil şeklinde işlem yaparak sonuçları bir kontrol edin isterseniz.

Bir süre bilgisayarda olmayacağım.

ExcelDepo · 20 Ara 2021

Türkiye forum tarihinin en uzun sorusu olsa...

Akif59 · 20 Ara 2021

Merhaba @Admin
Sayın BARAN sayesinde 2,634 satırlık kod bloğuna sahip başka bir dosyayı Çözüme kavuşturmuştuk. burası böyle bir yer Sayın @Ömer BARAN nın Sabrını biraz zorlasakda iyiki varsınız.

ExcelDepo · 20 Ara 2021

@Ömer BARAN hocamın en sevdiği şey, işlem sürelerini ve detaylarını kısaltmaktır.
Benim de bir dosyama muazzam bir dokunuş yaptı sağolsun.
Siz de iyi ki varsınız.
Umarım bu konuda bir an önce nihayete erer.

Ömer BARAN · 20 Ara 2021

63 numaralı cevapta belirttiğim şeyi denediniz mi?

Akif59 · 20 Ara 2021

Evet Denedim Sayın BARAN
O satırları iptal edersek
G18 G117 Girilen değerler tam kendi değerinde ekleniyor yada çıkartılıyor.

Fakat Alttaki olay olmuyor. tüm hesaplama bittiğinde Paydayı 1/8 katlarına yuvarlata bilirsek konu çözüme kavuşacak gibi

Bu arada işlemin çözümünü sağlayan (kesirli sayının 1/8'e göre uygulanmasındaki PÜF noktasını söylemedim galiba.
Fark etmiş olacağınızı düşünüyorum ama yine de söyleyeyim.
PÜF NOKTASI (sizin formüllü belgenizde alt taraftaki bir sürü formüllü alanın etrafından dolaşarak ulaştığı noktaya varılmasını sağlayan) basit KYUVARLA işlemidir. =KYUVARLA(sayı;0,125) işlemi.
Böylece sayılar 1/8'in katları haline getiriliyor ve bunun sonucu olarak da istenilen sonuçlara varılıyor.
4/8'in 1/2'ye 6/8'i 3/4'e dönüştürme işlemi ise otomatik gerçekleşiyor, burada kodların bir etkisi yok.

Ömer BARAN · 21 Ara 2021

@Akif59
O halde, HESAPLAMA kodunda, kırmızı renklendirdiğim satırın altına yeşil olan satırı ekleyin bakalım.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(2 satır)

Akif59 · 21 Ara 2021

Merhaba sayın BARAN
bir iki gün çalışıp dönüş yaparım sanırım oldu.

Akif59 · 26 Ara 2021

Merhaba Sayın BARAN
Dosyayı detaylıca denedim INÇ CM YUVARLAMA gibi tüm sorunlar okeydir.

yalnız gözden kaçırdığımız bir nokta mı oldu bilmiyorum AP18 BS117 Deki değerleri % kaç arttıraçak isem G6 G14 hüçre aralığına giriyorum
girdiğim değerin hep 1 fazlasını ekliyor.

Ömer BARAN · 27 Ara 2021

Malum forumda çok sayıda konu ve belgeyle ilgileniyorum.
Elimdeki son belgeniz de üzerinde denemeler yapılırken sizin eklediğiniz halinden farklılık(lar) içeriyor olabilir.

Bu nedenle, sayısal örnek içeren son bir dosya paylaşın ve TEK bir hücreye yazılacak değeri belirtip (yazmayın),
şu hücreye şunu yazarsam, şu hücre, şu olması gerekirken şu oluyor gibi net örneklendirme olursa iyi olur.
Muhtemelen kullanılan kodda bir yerlerde +1 vardır, fark etmemişizdir.

Sayısal örnek verirseniz hallolur diye düşünüyorum.

.

Akif59 · 27 Ara 2021

Merhaba Sayın BARAN
G13 Hüçresine -9 girdiğimde H13 de 1,09 değerini görmeliyim
G14 Hüçresine +13 girdiğimde H14 de 0,87 değerini görmeliyim H 6 H 14 değerleri hatalı geliyor.

Ömer BARAN · 27 Ara 2021

Worksheet_Change kodunda kırmızı satırı, yeşil olanla değiştirin.
Bu değişikliğin diğer hücrelere (alt taraftaki hesaplamalar) olan etkisini kontrol etmeyi unutmayın.
O kısımlara ilişkin bir kontrol yapmadım.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(2 satır)

Akif59 · 27 Ara 2021

Sayın BARAN
Sanırım Change kodunda iki satıra daha müdahale gerekiyor.
H6 H14 Değerler düzeldi müdaladeden sonra fakat H6 H14 değerlerin yansıdığı H18 H117 Değerlerde bir değişiklik olmadı

Ömer BARAN · 27 Ara 2021

Sn. @Akif59

Tahmin ediyordum tabi ama, belge sizin olduğu için sorun/durum MALUM olabilir ancak,
belgenizi her açtığımda her şeye en baştan bakmak durumunda olduğumu varsaymalısınız.
Yine sayısal örnek verseydiniz keşke. Alt kısma (tam olarak neresi hangi hücre vs) yansımanın nasıl olması gerektiğini hatırlamamı beklemiyorsunuz umarım.

Ömer BARAN · 27 Ara 2021

Tahmin üzerine yazıyorum:
Üstte değişiklik yapılan satırın altındaki For...Next döngüsü içindeki satırı şöyle değiştirin bakalım.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(3 satır)

Akif59 · 27 Ara 2021

Sayın BARAN değişiklik yaptıgınız
= 100 / (100 + WorksheetFunctio ibaresinin bulunduğu bir satır daha kaldı onuda değiştirecekmiyiz

20: If Intersect(Target, Range("F18:F117")) Is Nothing Then GoTo 30
For Each hcr In Range(Target.Address)
If hcr.Value = "" Then Cells(hcr.Row, 8) = ""
If hcr <> "" Then Cells(hcr.Row, 8) = 100 / (100 + WorksheetFunction.VLookup(hcr.Value, [F6:G14], 2, 0))

Ömer BARAN · 3 Ocak 2025

Hesaplama mantığı olarak EVET.
WorksheetFunction.VLookup(hcr.Value, [F6:H14], 3, 0)

	Şekillerin Geometrik Ölçülerine Göre Hesaplama omerBey 2 May 2019 Makro Soruları
	Aynı Ölçüleri Başka Sayfaya Aktarma mcexrem 15 Haz 2021 Makro Soruları