Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 20-06-2017, 11:10   #11
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 278
Excel Vers. ve Dili:
office 2010
Varsayılan

Çok teşekkür ederim üstadım autoit istediğim excel ve sayfadan okuma yapıyor.
Notped için çeşitli denemeler yapıyorum halen konu hakkında ileri günlerde tekrar yazabilir miyim.
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-06-2017, 13:26   #12
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 699
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Alternatif olarak; örnek1 dosyanızda aşağıdaki kodları deneyebilirsiniz:
Sub duzenle()
Dim deg1 As Object, deg2 As Object, veri1 As Object, veri2 As Object
Dim sh As Worksheet, ss As Long

Set sh = Sheets("" & Sheets(1).Name & "")
ss = sh.Range("A" & Rows.Count).End(3).Row
Set deg1 = CreateObject("VBScript.RegExp")
Set deg2 = CreateObject("VBScript.RegExp")
deg1.Global = True
deg2.Global = True
deg1.Pattern = "^[\d]{1}"
deg2.Pattern = "[\d]+$"
For i = 1 To ss
Cells(i, "B").Value = deg1.Execute(Cells(i, "A")).Item(0)
Cells(i, "D").Value = deg2.Execute(Cells(i, "A")).Item(0)
Next i
MsgBox "İşleminiz tamamlandı.", vbInformation, sh.Name
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-06-2017, 20:08   #13
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 278
Excel Vers. ve Dili:
office 2010
Varsayılan

Sayın Antanio ilginiz için teşekkürler. Diğer örnek kuralları kapsayacak şekilde geliştirebilir mi acaba mümkün müdür.
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 07:54   #14
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 699
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Örnek2 dosyanız için denediğim kodların sonuçlarını gözlemek için A sütununda verileri silmeden B ve C sütunlarında göreceksiniz. Eğer bu kod işinize yararsa, sonuçlar A ve C sütunlarına uyarlanabilir:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub kelimeler()
Dim deg1 As Object, deg2 As Object
Dim sh As Worksheet, i As Integer

Set sh = Sheets(1)
Set deg1 = CreateObject("VBScript.RegExp")
Set deg2 = CreateObject("VBScript.RegExp")
deg1.Global = True
deg2.Global = True
deg1.Pattern = "^\d+"
deg2.Pattern = "\d+$"
For i = 1 To 3
    sh.Range("B" & i).Value = deg2.Execute(sh.Range("A" & i)).Item(0)
    sh.Range("C" & i).Value = deg1.Execute(sh.Range("A" & i)).Item(0)
Next i
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 13:03   #15
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 278
Excel Vers. ve Dili:
office 2010
Varsayılan

Sayın antonio denedim fakat 3 satıra işlem yapıyor.
Emaillerimi kontrol ettim oluşmuş varyasyonlara göre bir liste yaptım çalışmamıza bu listeyi baz alarak sonuca ulastirabilmek mümkünmüdür.
Asrı usta sizin makronuzda bu örnek listeyi size iletmmediğim için adet yazısı olursa hata alıyorum listeyi baz alarak macroyu düzenlemek mümkün müdür.
Eklenmiş Dosyalar
Dosya Türü: rar Downloads.rar (36.2 KB, 7 Görüntülenme)
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 13:10   #16
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,176
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Bir bilgi bu kadar mı karışık gönderilir.

Sipariş aldığınız yerlere formatınızı bildirin. O şekilde göndersinler , işler daha kolaylaşır : )))
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 13:27   #17
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 699
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Alıntı:
mustilem23 tarafından gönderildi Mesajı Görüntüle
Sayın antonio denedim fakat 3 satıra işlem yapıyor.
Emaillerimi kontrol ettim oluşmuş varyasyonlara göre bir liste yaptım çalışmamıza bu listeyi baz alarak sonuca ulastirabilmek mümkünmüdür.
Asrı usta sizin makronuzda bu örnek listeyi size iletmmediğim için adet yazısı olursa hata alıyorum listeyi baz alarak macroyu düzenlemek mümkün müdür.
Sayın asri'nin de belirttiği gibi tüm verileriniz belli bir sütuna gelirse o sütuna göre ayrıştırma işlemi yapılır. Bunun için zaten gereken kod desteğiniz mevcut.
__________________
Özel mesaj sistemini devre dışı bıraktım.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 16:05   #18
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 278
Excel Vers. ve Dili:
office 2010
Varsayılan

Ustadlar haklısınız fakat 28 kişiden gelen email türlerine göre düzenledim listeyi.
Aman diyim bu arkadaşların görevi değil bana kod yollamak onun için belirli bir format da gönderin diyemiyorum printscren de var onları ayri tutuyorum aslında karistirmayi ben yaptım 20 varyasyon dan 15 ınden kurtulsam kar kardır olabilme imkanı mevcutmudur acaba.��

Bu mesaj en son " 23-06-2017 " tarihinde saat 18:22 itibariyle mustilem23 tarafından düzenlenmiştir.... Neden: Duzen
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-06-2017, 20:51   #19
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,176
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
mustilem23 tarafından gönderildi Mesajı Görüntüle
Ustadlar haklısınız fakat 28 kişiden gelen email türlerine göre düzenledim listeyi.
Aman diyim bu arkadaşların görevi değil bana kod yollamak onun için belirli bir format da gönderin diyemiyorum printscren de var onları ayri tutuyorum aslında karistirmayi ben yaptım 20 varyasyon dan 15 ınden kurtulsam kar kardır olabilme imkanı mevcutmudur acaba.��
Mesajımdaki kod ve dosyalar güncellendi.
Satırdaki bilgi ne kadar karışık olursa olsun, yeterki 10 karakter ve üstü bitişik sayı, 9 karakter ve altı bitişik sayı içinde olsun.
eğer üçüncü bir sayı var ise sorun çıkacaktır.
Formata uygun,
3AD 3507005013
ad zımba 4 3507005014

Formata uygun değil, sonda 3. bir sayı var 34
3AD 3507005013 34

Formata uygun değil, zimba da bitişik 3. bir sayı var 32
ad zımba32 4 3507005014


Size düşen kısmı, tüm verilerinizi kod, açıklama ve birim olarak ayrı bir sayfada tutmak.

Bu çıkan sonuçlardaki kodlara düşeyara ile açıklama ve birimleri getirmek.

Bu verileri
1ad3507005011
2 ad 3507005012
3AD 3507005013
ad zımba 4 3507005014
ZIMBA 3507005015 5
6 ADET 3507005016
3507005017 ZIMBA ADET 7
AD8 3507005018
ad 3507005019 9
adet 3507005020 10
ADET 3507005021 11
3507005022 ZIMBA ADET 12
ZIMBA 3507005023 13
14 3507005024 ADET
AD 3507005025 14
ad zımba 15 3507005026
3507005027 16
17 3507005028
3507005029 ZIMBA ADET 18
3507005030 ZIMBA ADET 19


Bu şekilde listeleyecektir
Kod Adet
3507005011 1
3507005012 2
3507005013 3
3507005014 4
3507005015 5
3507005016 6
3507005017 7
3507005018 8
3507005019 9
3507005020 10
3507005021 11
3507005022 12
3507005023 13
3507005024 14
3507005025 14
3507005026 15
3507005027 16
3507005028 17
3507005029 18
3507005030 19
__________________
www.asriakdeniz.com

Bu mesaj en son " 23-06-2017 " tarihinde saat 20:58 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-06-2017, 13:01   #20
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 278
Excel Vers. ve Dili:
office 2010
Varsayılan

Üstad lar öncelikle bayramınızı en içten dileklerimle kutlarım. Evdeki pc bozuk şirkette ilk iş hemen deneyeceğim çok teşekkür ederim.
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 03:33


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Hurda - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Çorlu İnşaat- Marmara Ereğlisi Yurt- Çorlu Solucan Gübresi- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden