EKTEKİ NUMARALARI AŞAĞIDAKİ ŞEKİLE NASIL GETİREBİLİRİM... TEŞEKKÜRLER

[Fahrettinn]

('4610294444','9240304297','6160398170','7341279517','9780049096','6320036072','1200003676','8590491872','8770013406','2950010389','4270857376','3871043059','8450037082','8760052205','9170014856','5770109521','5860112203')

 

[ÖmerFaruk]

Aşağıdaki şekilde dediğiniz bu mudur?
('4610294444','9240304297','6160398170','7341279517','9780049096','6320036072','1200003676','8590491872','8770013406','2950010389','4270857376','3871043059','8450037082','8760052205','9170014856','5770109521','5860112203')

Ekteki numaralar dediğiniz dosyanızda A2:B495 aralığımıdır?
Hepsini (494 adet) birden mi böyle yanyana yazacaksınız?

 

[Fahrettinn]

evet aynen

 

[ÖmerFaruk]

KTF oluşturmayı bilmiyorsanız
Aşağıdaki kodları Sayfanızın KOD sayfasını açtığınızda (Alt+F11) bir Module ilave ederek, açılan boş module penceresine direkt yapıştırın.
Excel sayfanızda (örnek olarak)
=xMetinBirlestir(A2:A10;B2:B10) yazınca
A2:A10 aralığındaki dediğiniz formatta "('," gibi sembollerle birleştirir. Eğer herhanbi bir satırda boşluk varsa B sütunundaki aynı satırdaki değeri alır

Function xMetinBirlestir(Aralık1 As Range, Aralık2 As Range)
Dim dizi
Dim yaz As String
dizi = Aralık1.Value
For i = 1 To UBound(dizi)
    If dizi(i, 1) = "" Then dizi(i, 1) = Aralık2(i, 1)
    yaz = yaz & dizi(i, 1) & "','"
Next i
yaz = Left(yaz, Len(yaz) - 3)
xMetinBirlestir = "('" & yaz & "')"
End Function

 

[Fahrettinn]

excel dosyasında uygulayıp dosya yı yükler misiniz ben beceremedim de .. size zahmet olacak çok teşekkür ederim..

 

[ÖmerFaruk]

KTF eklenmiş Makro içeren biçimindeki excel dosyanız ektedir.
Dosyanızın adını değiştirebilirsiniz.

KTF nin nasııl kullanılacağını dosyanızda gösterdim

 

[Korhan Ayhan]

Alternatif;

Yardımcı sütun kullanılarak formüllerle çözümü inceleyebilirsiniz. Makro bilmeyenler için hızlı bir çözümleme mantığı olarak kullanılabilir.

Yeşil renkli hücrede sonuç görünmektedir.

 

[Fahrettinn]

ELİNİZE SAĞLIK.. SÜPERSİNİZ...