Yardım Türkiye haritası renklendirme

varlık66 · 8 Eki 2020

Ekteki dosyada görüldüğü üzere Harita sekmesinde seçim yapınız yanında veri doğrulamada Metalik madenler de seçim yaptığımda bu madenlerin bulunduğu iller alt da sıralanıyor. Şehir bul butonuna tıkladığımda bu iller haritada renklenmiyor. İlk shape olan Adana dan itibaren renkleniyor. Kaç tane il sırlanmış ise o iller ilk shape den itibaren renkleniyor. Mesela Nikel seçtiğimde Bitlis Bursa Eskişehir Niğde Osmaniye geliyor. ama Adana Adıyaman vs yanıyor. Seçilen İller yansın istiyorum. Bunu Endüstriyel Hammade ve enerji seçiminde yapmak istiyorum.
Bunu makroda çözemedim. Yardım eder misiniz.
Teşekkürler
Resul VARLIK

Murat OSMA · 11 Eki 2020

Merhabalar,
Bu kodları kullanabilirsiniz.

C++:

Sub Paint()
    Dim a As Integer, il As Integer
    ActiveSheet.Shapes("TT").Fill.ForeColor.RGB = vbWhite
    On Error GoTo bitti
    For a = 33 To Cells(Rows.Count, "B").End(3).Row
        If Cells(a, "B").Value > 0 Then
            il = WorksheetFunction.Match(Cells(a, "B").Value, Range("X:X"), 0) - 1
            Range("pntOrder").Value = il
            ActiveSheet.Shapes(Range("pntShape").Value).Fill.ForeColor.RGB = _
            Range(Range("pntColor").Value).Interior.Color
        End If
    Next a
bitti:     ActiveSheet.Range("pntOrder").Select
End Sub

Yardım Türkiye haritası renklendirme

Daha fazla seçenek

varlık66

Ekli dosyalar

Murat OSMA