Veriye göre şekil dolgusu vermek

[gkhn2]

Merhabalar,

Ekte SQL'den veri çekip TR haritası üzerinde gösteren bir tablo var.

İstediğim; SQL'den yenile yapınca ölçütlere göre gelen verileri eğer İL karşısında veri varsa ili sarıya boyamak.

Örneğin Kütahya'da kırmızı olarak veri gelmiş ama Manisa da veri yok. Kütahya'nın il sınırlarını sarıya boyasın, Manisa beyaz kalsın.

Ayrıca lefkoşa'yı kendim ekledim freeform numarasını kendim verdim.

Var mıdır çözümü?



http://dosya.co/mwuxs5pw0g1b/HARİTA_GRAFİĞİ.rar.html

 

[Asri]

Haritadaki İL şekillerinin isimlerini il_ AQ kolonundaki isim ile aynı olacak şekilde isimlendiriniz.
Örnek: haritada il_İstanbul AQ kolonunda İstanbul
Örnek: haritada il_Kütahya AQ kolonunda Kütahya

Boş olan iller de AR kolonunda " " bir boşluk kullanmışsınız. Buna göre kodlandı.

Haritada İllerin aldığı veri hücresi ile AR deki hücre eşit olmayanlar var. Kontrol ediniz.

Sub boya()
  sonsatir = Cells(Rows.Count, "AQ").End(3).Row
  For j = 2 To sonsatir
    veriil = Cells(j, "AQ").Value
    veri = Cells(j, "AR").Value
    If veri = " " Then veriildeger = 0 Else veriildeger = 1
    a = a
    For i = 1 To ActiveSheet.Shapes.Count
      haritail = ActiveSheet.Shapes.Range(i).Name
      If Left(haritail, 3) <> "il_" Then GoTo son
      haritail = Mid(haritail, 4, Len(haritail))
      ActiveSheet.Shapes.Range(i).Select
      If veriil = haritail And veriildeger = 1 Then
        With Selection.ShapeRange.Fill
          .Visible = msoTrue
          .ForeColor.RGB = RGB(255, 255, 0)
          .Transparency = 0
          .Solid
        End With
      End If
      
      If veriil = haritail And veriildeger = 0 Then
          With Selection.ShapeRange.Fill
           .Visible = msoTrue
           .ForeColor.ObjectThemeColor = msoThemeColorBackground1
           .ForeColor.TintAndShade = 0
           .ForeColor.Brightness = 0
           .Transparency = 0
           .Solid
          End With
      End If
son:
   Next i
 Next j
End Sub

 

[gkhn2]

Haritadaki İL şekillerinin isimlerini il_ AQ kolonundaki isim ile aynı olacak şekilde isimlendiriniz.
Örnek: haritada il_İstanbul AQ kolonunda İstanbul
Örnek: haritada il_Kütahya AQ kolonunda Kütahya

Boş olan iller de AR kolonunda " " bir boşluk kullanmışsınız. Buna göre kodlandı.

Haritada İllerin aldığı veri hücresi ile AR deki hücre eşit olmayanlar var. Kontrol ediniz.

Sub boya()
  sonsatir = Cells(Rows.Count, "AQ").End(3).Row
  For j = 2 To sonsatir
    veriil = Cells(j, "AQ").Value
    veri = Cells(j, "AR").Value
    If veri = " " Then veriildeger = 0 Else veriildeger = 1
    a = a
    For i = 1 To ActiveSheet.Shapes.Count
      haritail = ActiveSheet.Shapes.Range(i).Name
      If Left(haritail, 3) <> "il_" Then GoTo son
      haritail = Mid(haritail, 4, Len(haritail))
      ActiveSheet.Shapes.Range(i).Select
      If veriil = haritail And veriildeger = 1 Then
        With Selection.ShapeRange.Fill
          .Visible = msoTrue
          .ForeColor.RGB = RGB(255, 255, 0)
          .Transparency = 0
          .Solid
        End With
      End If
      
      If veriil = haritail And veriildeger = 0 Then
          With Selection.ShapeRange.Fill
           .Visible = msoTrue
           .ForeColor.ObjectThemeColor = msoThemeColorBackground1
           .ForeColor.TintAndShade = 0
           .ForeColor.Brightness = 0
           .Transparency = 0
           .Solid
          End With
      End If
son:
   Next i
 Next j
End Sub

şu an dediklerinizi yapıyorum. bitince haber vereceğim

 

[gkhn2]

tekrar selam

ya önceki başlıkta istediğim ile burada istediğim aynı kitap için. tam olarak yapmak istediğim şu;

sırasıyla

1.belirttiğim sayfaların (şu an iki tane var "DEPO BAZLI" ve "AHMET") S7 hücresine 2014-2015 yazdıracak
2.sonra kitaptaki tüm tablo, sorgu ve pivot tabloları güncelleştirecek.
3. güncelledikten sonra eğer veri var ise o illeri boyayacak

son olarak 2015-2016 sezonu butonuna basınca önceki boyamaları silip o sezonun verileri olan illeri boyayacak.


dosyanın son hali böyle;

http://dosya.co/ttb9rxoode24/HARİTA_GRAFİĞİ.rar.html

 

[gkhn2]

bir şeyler yaptım sanırım oldu çok teşekkür ederim "asri"

http://dosya.co/05z93b8vmh07/24-Harita_Üzerinde_Anlık_Satışlar.rar.html

Haritadaki İL şekillerinin isimlerini il_ AQ kolonundaki isim ile aynı olacak şekilde isimlendiriniz.
Örnek: haritada il_İstanbul AQ kolonunda İstanbul
Örnek: haritada il_Kütahya AQ kolonunda Kütahya

Boş olan iller de AR kolonunda " " bir boşluk kullanmışsınız. Buna göre kodlandı.

Haritada İllerin aldığı veri hücresi ile AR deki hücre eşit olmayanlar var. Kontrol ediniz.

Sub boya()
  sonsatir = Cells(Rows.Count, "AQ").End(3).Row
  For j = 2 To sonsatir
    veriil = Cells(j, "AQ").Value
    veri = Cells(j, "AR").Value
    If veri = " " Then veriildeger = 0 Else veriildeger = 1
    a = a
    For i = 1 To ActiveSheet.Shapes.Count
      haritail = ActiveSheet.Shapes.Range(i).Name
      If Left(haritail, 3) <> "il_" Then GoTo son
      haritail = Mid(haritail, 4, Len(haritail))
      ActiveSheet.Shapes.Range(i).Select
      If veriil = haritail And veriildeger = 1 Then
        With Selection.ShapeRange.Fill
          .Visible = msoTrue
          .ForeColor.RGB = RGB(255, 255, 0)
          .Transparency = 0
          .Solid
        End With
      End If
      
      If veriil = haritail And veriildeger = 0 Then
          With Selection.ShapeRange.Fill
           .Visible = msoTrue
           .ForeColor.ObjectThemeColor = msoThemeColorBackground1
           .ForeColor.TintAndShade = 0
           .ForeColor.Brightness = 0
           .Transparency = 0
           .Solid
          End With
      End If
son:
   Next i
 Next j
End Sub