• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Soru Değere Göre Kenarlık Yapma

mcexrem

Gold Üye
Katılım
22 Nis 2022
Mesajlar
720
Çözümler
2
Aldığı beğeni
129
Excel V
Office 2019 TR
Konu Sahibi
Merhabalar Üstadlar,

Dosyamın SAC SATIŞ sayfası B-R sütunları arasında (satır/sütün eklenebilir, silinebilir) AA AB AC AD ve AE sütunlarına yazdığım değere göre kenarlık ile şekillendirme yapmak istiyorum.

0-5 arası değer için 1 kenarlık
6-10 arası değer için 2 kenarlık
11-15 arası değer için 3 kenarlık
16-20 arası değer için 4 kenarlık
21-25 arası değer için 5 kenarlık
26-30 arası değer için 6 kenarlık
31-35 arası değer için 7 kenarlık
36-40 arası değer için 8 kenarlık
41-45 arası değer için 9 kenarlık
46-50 arası değer için 10 kenarlık
51-55 arası değer için 11 kenarlık
56-60 arası değer için 12 kenarlık atarak şekillendirebilir miyiz?

Mümkünse şekli ortalı şekilde yapmak ve yanlarında yazan değerlerin çizgiye bitişik olması tercihimdir.

Verileri de W sütunundan fitreleyerek kullanacağım.
 

Ekli dosyalar

Filtreleme konusuna takıldım.:unsure::unsure:
#36 mesajdaki dosyayı tekrar yeniledim.
Yeni dosyada ComboBox yerine ListBox kullandım.
AÇIKLAMA yazan hücrede ÇİFT tıklayınca, ListBox görünüyor.
İstediğiniz malzemeleri ListBoxdan seçtikçe görüneceklerdir.
ListBoxda seçili malzemelere tekrar tıklayınca gizlenecektir.
ListBox ile işiniz bitince tekrar AÇIKLAMA yazan hücrede ÇİFT tıklayınca, ListBox da gizlenecektir.
 
Konu Sahibi
Merhabalar hocam,

Filtreleme fonksiyonunu kullanamadım çünkü o veriler değişebiliyor.
Sizden ricam öncelikle;

- şekillerin etrafındaki rakamların hepsini Arial, kalın ve 11 boyutunda ayarlanması,

- satırlar arası geçişlerin daha hızlı olabilmesi için AJ19 hücresine yazılan veriyi AJ10 hücresine alarak AJ35 hücresine kadar birleştirmek, ve yanındaki sütunlara da uygulamak (A B C D E'ye yazılan veriler)

-sipariş kalemlerimin artmasından dolayı şekil yapılan satır miktarını 12 adet olarak mevcut dosyama uyguladım. Sizden ricam kodun alt satırlara da uygulanması.
 

Ekli dosyalar

Filtreleme konusu için #36 mesajdaki dosyayı tekrar yeniledim.
Örnek dosyanızda çizimlerin altında B sütununda bir bir yazı vardı, onu son satır için baz almıştım, silmişsiniz.
Yeni dosyada AF sütununa bakıyor. Arial ve bold u ayarladım.
Diğer istekleriniz için kodları Sn Alpi ilgilenir herhalde.
 
Konu Sahibi
satırlar arası geçişlerin daha hızlı olabilmesi için AJ19 hücresine yazılan veriyi AJ10 hücresine alarak AJ35 hücresine kadar birleştirmek, ve yanındaki sütunlara da uygulamak (A B C D E'ye yazılan veriler)

Bu işlemi de dikkate alabilir misiniz hocam.
 
9. Siparişten sonrası hata veriyor, nedenini anlayamadım.
Birleştirilmiş hücreler işini, kodlara biraz yama yaparak çözdüm.
Yeni örnek dosyayı yine #36 mesaja ekledim.
 
Merhabalar

Resim olarak ayarladım
 

Ekli dosyalar

Merhabalar

3 alan için yapmıştım örnek olsun diye
Akşama onları da eklerim
 
Merhabalar

Sadece filtre uyguladıktan sonra ABCDE kısımlarında değişiklik yapmayınız gizli olan resimlerin boyutu değişir
 

Ekli dosyalar

Konu Sahibi
teşekkür ederim hocam.

kenarlıkları 5 ve katlarına göre yapınca D ve E bölümlerine yazdığım rakamlar şekil kare olmadığı halde kare olarak görmektedir. Bunu düzeltebilmek adına ölçülerin 5 katı değil de sayının değerine göre uzatmamız mümkün müdür. Örneğin düzenlemeler yaptığım yeni dosyamın 7. satırında üstü açık olası gerekirken birleşik çıkmaktadır.
 

Ekli dosyalar

Merhabalar

Aşağıdaki kriterlerlere göre ekliyor yanlışlık varmı kontrol ediniz

bir de hücre çizgisi ile istenilen sonuca da ulaşılamaz Şekillerden çizgiler ile ancak yapılabilinir çizgler sonra gruplandırılacak
bu şekilde yapacak arkadalar olabilir

Teşekkürler


1745320512842.png

Case 1 To 5: GetLineCount = 1
Case 6 To 10: GetLineCount = 2
Case 11 To 15: GetLineCount = 3
Case 16 To 20: GetLineCount = 4
Case 21 To 25: GetLineCount = 5
Case 26 To 30: GetLineCount = 6
Case 31 To 35: GetLineCount = 7
Case 36 To 40: GetLineCount = 8
Case 41 To 45: GetLineCount = 9
Case 46 To 50: GetLineCount = 10
Case 51 To 55: GetLineCount = 11
Case 56 To 60: GetLineCount = 12
Case 61 To 65: GetLineCount = 13
Case 66 To 70: GetLineCount = 14
Case 71 To 75: GetLineCount = 15
Case 76 To 80: GetLineCount = 16
Case 81 To 85: GetLineCount = 17
Case 86 To 90: GetLineCount = 18
Case 91 To 95: GetLineCount = 19
Case 96 To 100: GetLineCount = 20
Case 101 To 105: GetLineCount = 21
Case 106 To 110: GetLineCount = 22
Case 111 To 115: GetLineCount = 23
Case 116 To 120: GetLineCount = 24
Case 121 To 125: GetLineCount = 25
Case 126 To 130: GetLineCount = 26
 

Ekli dosyalar

  • 1745319526150.png
    1745319526150.png
    501 bayt · Gösterim: 2
Son düzenleme:
Konu Sahibi
o değerlere göre yapınca malesef kare şeklini alıyor hocam,
sayının değerine göre çizgiyi ayarlayamaz mıyız yani 40'ı 40mm olarak çizemez miyiz

çizgi aralığını 1-5 yerine 1-2 gibi

1745332571446.png
 
Merhabalar

Şekiller ile yapılması gerekir
şekillerin boyutları cm cinsindendir
fakat milimetre cinsine çevrilebilinir

Örnek 40 için

1 cm=10 mm
40÷10=4 cm

Sonuç
40 milimetre, 4 santimetre eder.


Yada hücrenin boyutlarını 26' a bölünür çıkan sonuç 1cm olarak varsayılabilirsiniz

Arkadaşlar yardımcı olabilirer
 
#58 mesajdaki dosyayı yeniledim, bir üst beşe yuvarlamayı unutmuşum.
Çizgi uzunluklarını değiştirmek için kodlardaki cevir fonksiyonunun birim değerini değiştirin. Ben 5 (beş) yapmıştım.
 
Konu Sahibi
Günaydınlar Sayın Alicimri hocam,

yeni dosyayı indirdim,

kenarlık ölçülerini değiştirdiğim hücrelere her veri girişi yaptığımda A1 hücresine geçiyor,
kenarlık etrafında yazan ölçülerin yazı tipi değiştirilebiliyor ama kenarlığın rengini siyah yapmak istediğimde pasif kutuları da renklendiriyor,

bunları düzeltmemiz mümkün müdür?

Ekteki sizin yazdığınız kodlu Güncel dosyama uygulayabilir misiniz
 

Ekli dosyalar

Geri
Üst