Soru macroya eklenti ile A sütununu sayıya çevirme

[incsoft]

Arkadaşlar başka bir dosyadan verilerimi aşağıdaki macro ile dosyama çekiyorum ancak çektiği dosyadaki veriler metin olduğundan dolayı diğer sayfadaki formüller çalışmamakta. Macroya bir eklenti yaparak aktarım sonunda A sütununun tamamını otomatik olarak sayıya nasıl dönüştürebilirim?

Private Sub CommandButton1_Click()
    Columns("A:D").Select
    Selection.ClearContents
    Set Con = CreateObject("Adodb.connection")
    Set rs = CreateObject("Adodb.recordset")
     'yol = "\\ds1\orsortak\DT\BELGELER\Yazılım\üretimMik\2019Yılı"
    Con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & yol & "SÜAKSBDVM.xls" & _
     ";extended properties=""Excel 8.0;hdr=yes"""
    Sorgu = "SELECT * FROM [Sheet1$]"
    rs.Open Sorgu, Con, 1, 1
    Range("a1").CopyFromRecordset rs
    rs.Close: Con.Close
    Set Con = Nothing: Set rs = Nothing
    Range("A1").Select
End Sub

 

[Korhan Ayhan]

Makro kaydet yöntemi ile METNİ SÜTUNLARA DÖNÜŞTÜR işlemini uygulayın.

A sütununu seçin.
METNİ SÜTUNLARA DÖNÜŞTÜR-İLERİ-İLERİ-SAYI-TAMAM adımlarını izleyerek seçili alanı sayıya çevirebilirsiniz.

Oluşan makro kodunu kendi kodunuzun altına ekleyip sonuca ulaşabilirsiniz.

 

[incsoft]

Makro kaydet yöntemi ile METNİ SÜTUNLARA DÖNÜŞTÜR işlemini uygulayın.

A sütununu seçin.
METNİ SÜTUNLARA DÖNÜŞTÜR-İLERİ-İLERİ-SAYI-TAMAM adımlarını izleyerek seçili alanı sayıya çevirebilirsiniz.

Oluşan makro kodunu kendi kodunuzun altına ekleyip sonuca ulaşabilirsiniz.

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("A1").Select

Bunu denemiştim hocam olmamıştı nedense

 

[Korhan Ayhan]

Yani şimdi oldu mu olmadı mı?

 

[incsoft]

Yani şimdi oldu mu olmadı mı?

Macro ile bu yöntem olmuyor hocam ama normal excelden elle metni sütunlara dönüştür deyip dediğiniz adımları yaparsam oluyor.. Bugüne kadar elle yapıyordum sürekli ama uğraşmamak için macrosunu arıyorum ama bir metod bulamadım. Kısacası şuan olmadı hocam. Teşekkürler.

 

[Korhan Ayhan]

Örnek dosya paylaşabilir misiniz?

 

[incsoft]

Örnek dosya paylaşabilir misiniz?

 

[Korhan Ayhan]

Ben eklediğiniz dosyada bahsettiğim yöntemi denedim ve olumlu sonuç aldım.

 

[incsoft]

Ben eklediğiniz dosyada bahsettiğim yöntemi denedim ve olumlu sonuç aldım.

Ben sadece database dosyasını gönderdim size hocam. Ama diğer sayfalarda database'den buldurma yapan hücreler çalışmıyor.

 

[Korhan Ayhan]

Bu durumda buldurma kodlarınızı incelemek gerekiyor.

 

[incsoft]

Ben eklediğiniz dosyada bahsettiğim yöntemi denedim ve olumlu sonuç aldım.

bu dosyada daha detaylı görebilirsiniz hocam

 

[Korhan Ayhan]

Deneyiniz.

U6;

=EĞER(E6="";"";(EĞER(ARA(TEMİZ(E6);SİLME!A:A)=TEMİZ(E6);ARA(TEMİZ(E6);SİLME!A:A;SİLME!B:B))))

 

[incsoft]

Deneyiniz.

U6;

=EĞER(E6="";"";(EĞER(ARA(TEMİZ(E6);SİLME!A:A)=TEMİZ(E6);ARA(TEMİZ(E6);SİLME!A:A;SİLME!B:B))))

Bu şekilde buldum hocam. Peki son bir sorum. Bu sayı olmayanlardan bulduruyor. Bazı durumlarda da sayı olduğu olursa hem sayı hem metin olanlardan bulması için formüle başka bir eklenti yapılabilirmi?

Teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

=EĞERHATA(ARA(TEMİZ(E6);SİLME!A:A;SİLME!B:B);EĞERHATA(ARA(E6;SİLME!A:A;SİLME!B:B);""))