• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Şube sorumlularının kaç adet gsm numarası mevcut

E

ersoyalan

Katılım
10 Nisan 2008
Mesajlar
578
Excel Vers. ve Dili
2000,2003,2007
Değerli arkadaşlarım merhaba,

Çalışmakta olduğum excel dosyasında yardımınıza ihtiyacım var.

Gsm sayfasında Şube isimleri mevcut. Benim yapmak istediğim ise şu.
Gsm sayfasında bulunan Şubelerin data sayfasında kaç sorumluya ait gsm numarasının olduğu.

Formüllü çözüme ihtiyacım vardır.

Örnek olarak HAYAT Şube'dir.


Yardımcı olabilirseniz sevinirim.

Syg,

Ersoy ALAN
 

Ekli dosyalar

Son düzenleme:
Data sayfasında kaç sorumluya ait gsm numarasının olduğunu sormuşsunuz ama varmak istediğiniz sonuç olduğunu düşünerek ikinci sayfadaki tabloyu duldurttum
 

Ekli dosyalar

Testereci merhaba,

İfadelerimde yanlış kelime kullanmış olabilirim. Kusura bakma.
Yardımların için çok teşekkür ederim. Tam istediğim gibi olmuş. Ellerine sağlık.

Kolay gelsin iyi geceler dilerim.

Syg,
Ersoy ALAN
 
Sn Testereci;
sizin formülleriniz karışık sıralamada hata verir.
 
Dosyayı inceleyiniz.
Sub Aktar()
Application.ScreenUpdating = False
Sheets("Gsm").Range("C2:CC1000").ClearContents
son = Cells(Rows.Count, "C").End(3).Row
For i = 2 To son
kac = WorksheetFunction.Match(Cells(i, 3), Sheets("Gsm").Range("B:B"), 0)
sütun = WorksheetFunction.CountA(Sheets("Gsm").Range("C" & kac & ":CC" & kac)) + 3
Sheets("Gsm").Cells(kac, sütun) = Cells(i, 4).Value
Next
Sheets("Gsm").Select
Range("C:CC").Replace What:=";", Replacement:=""
End Sub
Genişletmek için tıkla ...
 
Son düzenleme:
Muhammet Okumuş' Alıntı:
Dosyayı inceleyiniz.
Genişletmek için tıkla ...

Muhammet Bey merhaba,

Bu kadar kısa sürede benim için o kadar zor bir olayı çözebildiğiniz için çok mennun kaldım. Tebrik ederim sizi.

Fakat ufak bir sorunum daha var uğraştıkça ortaya çıkıyor. Bunun içinde yardımcı olabilirseniz makbule geçecek.

Örneğin:
102001 KARSIYAKA SUBE 1 Sorumluları için 5 gsm numarası görünüyor. Fakat 103004 KARŞIYAKA ŞUBE 2 için 2 gsm numarası görünüyor. 1 de olupta 2 de olmayanları bu iki numara 1 deki ile aynı.
Benim istediğim KARŞIYAKA 1 ile KARŞIYAKA 2 nin sorumluları aynı olsun. Fonksiyon karşılaştırma yapsın olanla olmayanları bulsun ve sonuç bir olsun.
Yani KARŞIYAKA 1 ile KARŞIYAKA 2 sorumluları aynı olsun. Birinde var diğerinde yoksa olandan olmayana eklensin.

Bu istediğim bütün Şubeler için geçerli. Örnek olarak KARŞIYAKALARI verdim.

Bunu yapabilirmisiniz.
 
Karşıyaka1 ile Karşıyaka2 de aynı numara iki kez yazılmayacak mı? Kod bunların ikisinin bir sorumlu olduğunu nasıl anlayacak?
 
Muhammet Okumuş' Alıntı:
Karşıyaka1 ile Karşıyaka2 de aynı numara iki kez yazılmayacak mı? Kod bunların ikisinin bir sorumlu olduğunu nasıl anlayacak?
Genişletmek için tıkla ...

Merhaba,

Numaralar iki kez yazılacak fakat Karşıyaka1 de 5 tane numara var. Karşıyaka 2 de 2 tane numara ve bu iki numara karşıyaka 1 ile aynı. Buraya kadar herşey normal gayet yolunda.
Fakat benim istediğim ise şu,
karşıyaka 2 de olmayıp karşıyaka 1 de olan diğer 3 numaranın karşıyaka 2 ye eklenmesi.
 
Sayın Alan;
Koda bunu nasıl anlatmalıyız? Karşılaştırmayı neye göre yapacağız? İkisinin ortak olduğunu kod nerden anlayacak? Bu ikisinin ortak bir özelliği olması lazım.

Bir de kodda şöyle düzenleme yapayım mı?
Bir şubede mükerrer numara girişini engelleyelim mi?
 
Muhammet Okumuş' Alıntı:
Sayın Alan;
Koda bunu nasıl anlatmalıyız? Karşılaştırmayı neye göre yapacağız? İkisinin ortak olduğunu kod nerden anlayacak? Bu ikisinin ortak bir özelliği olması lazım.

Bir de kodda şöyle düzenleme yapayım mı?
Bir şubede mükerrer numara girişini engelleyelim mi?
Genişletmek için tıkla ...

Muhammet Bey merhaba,

ID numaralarından tanımlatma şansınız olabilirmi yada isimlerin başlangıcından

103001 KARSIYAKA SUBE 1
103004 KARSIYAKA SUBE 2

120001 MUGLA SUBE 1
120002 MUGLA SUBE 2

129001 BALIKESIR SUBE 1
129012 BALIKESIR SUBE 2
129019 BALIKESIR SUBE 3
 
ersoyalan' Alıntı:
Muhammet Bey merhaba,

ID numaralarından tanımlatma şansınız olabilirmi yada isimlerin başlangıcından

103001 KARSIYAKA SUBE 1
103004 KARSIYAKA SUBE 2

120001 MUGLA SUBE 1
120002 MUGLA SUBE 2

129001 BALIKESIR SUBE 1
129012 BALIKESIR SUBE 2
129019 BALIKESIR SUBE 3
Genişletmek için tıkla ...

ID numaraların ilk 3 hanesini kullanabilirsiniz. İsimlerde eşleşme olabilir fakat ID numaralarında eşleşme yok.
 
Anladım. Mantık kurmaya çalışıyorum. Yapılabilir bir uygulama.
 
Muhammet Bey merhaba,

Konuyla ilgili çözüme ulaşabildiniz mi? Yardımcı olabilecekmisiniz?


Syg,

Ersoy ALAN
 
Dosyayı inceleyiniz.

Sub Aktar()
Application.ScreenUpdating = False
Range("E:GG") = ""
Sheets("Gsm").Range("C2:CC1000").ClearContents
son = Cells(Rows.Count, "C").End(3).Row
Range("E2:E" & son) = "=LEFT(B2,3)"
Range("E2:E" & son) = Range("E2:E" & son).Value
Range("F2:F" & son) = "=IF(COUNTIF(E$2:E2,E2)=1,E2,"""")"
Range("F2:F" & son) = Range("F2:F" & son).Value
Range("F2:F" & son).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

For i = 2 To son
kac = WorksheetFunction.Match(Cells(i, 5), Range("F1:F10000"), 0)
süt = WorksheetFunction.CountA(Range("G" & kac & ":GG" & kac)) + 7
Cells(kac, süt) = Cells(i, 4).Value

Range("G:GG").Replace What:=";", Replacement:=""
Next


son = Sheets("Gsm").Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
If WorksheetFunction.CountIf(Range("B2:B10000"), Sheets("Gsm").Cells(i, 1)) = 0 Then GoTo 100
bul = WorksheetFunction.VLookup(Sheets("Gsm").Cells(i, 1), Range("B2:E10000"), 4, 0)
kac = WorksheetFunction.Match(bul, Range("F1:F10000"), 0)
Sheets("Gsm").Range("C" & i & ":CC" & i) = Range("G" & kac & ":GG" & kac).Value
100
Next


Range("E:GG") = ""
Sheets("Gsm").Select
End Sub
Genişletmek için tıkla ...
 
Son düzenleme:
Muhammet Okumuş' Alıntı:
Dosyayı inceleyiniz.
Genişletmek için tıkla ...

Muhammet Bey merhaba,

Çalışma on numara olmuş fakat şöyle bir sorun var. Aynı Şubeye bağlı birden mükerrer gsm numaraları oluyor. Onları sildirme şansınız olabilir mi?
Yani şöyle Karşıyaka 1 e baktığımda iki tane 5362138445 numara görünüyor. Bakırköy 1 e baktığımda ise üç tane 5075992540 gsm numarası görünüyor. haliyle diğer şubelerdede fazla oluyor numaralar. Bunları teke düşüremez misiniz. Bu şekilde gsm numaraları olması gerekenden fazla görünüyorlar.

Örnek dosya ektedir.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst