[Çözüldü]  Hücredeki metni kod ile başka sayfadaki hücrelere ayırma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Hücredeki metni kod ile başka sayfadaki hücrelere ayırma

İleti#1)  elmango » 07 Kas 2018 11:53

Merhabalar icinden cikamadigim bir sorun var siz degerli ustadlardan yardım bekliyorum.

Elimde her hücrede 520 karakterden oluşan metinler bulunmakta . Veriler Sayfa 1 A sutununda bulunmakta ve kaç satır olduğu değişmekte.

Sayfa 1 A sutununda bulunan veriyi Sayfa 2 de;
sırasıyla

A1 sutununa 1 karakter (Sayfa 1 - A1 deki metinin ilk karakteri)
B1 sutununa 8 karakter (Sayfa 1 - A1 deki metinin 2 den 9 a kadarı)
c1 sutununa 4 karakter ((Sayfa 1 - A1 deki metinin 10 dan 13 e kadarı)

şeklinde belirli sayılarda almam için yardımlarınızı rica ederim.
Kullanıcı avatarı
elmango
Yeni Başlamış
 
Kayıt: 02 Arl 2015 15:10
Meslek: finans
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara / ostim

Cevap: Hücredeki metni kod ile başka sayfadaki hücrelere ayı

İleti#2)  elmango » 07 Kas 2018 11:55

örnek dosya
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
elmango
Yeni Başlamış
 
Kayıt: 02 Arl 2015 15:10
Meslek: finans
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara / ostim

Cevap: Hücredeki metni kod ile başka sayfadaki hücrelere ayı

İleti#3)  Ali ÖZ » 07 Kas 2018 11:59

Kod: Tümünü seç
Sub ayir()
For i = 2 To Sheets("Sayfa1").Range("a65536").End(3).Row
  Sheets("Sayfa2").Range("a65536").End(3)(2, 1).Value = VBA.Left(Sheets("Sayfa1").Range("a" & i).Value, 1)
  Sheets("Sayfa2").Range("b65536").End(3)(2, 1).Value = VBA.Mid(Sheets("Sayfa1").Range("a" & i).Value, 2, 8)
  Sheets("Sayfa2").Range("c65536").End(3)(2, 1).Value = VBA.Mid(Sheets("Sayfa1").Range("a" & i).Value, 10, 4)
Next
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Hücredeki metni kod ile başka sayfadaki hücrel

İleti#4)  elmango » 07 Kas 2018 12:03

Ali ÖZ yazdı:
Kod: Tümünü seç
Sub ayir()
For i = 2 To Sheets("Sayfa1").Range("a65536").End(3).Row
  Sheets("Sayfa2").Range("a65536").End(3)(2, 1).Value = VBA.Left(Sheets("Sayfa1").Range("a" & i).Value, 1)
  Sheets("Sayfa2").Range("b65536").End(3)(2, 1).Value = VBA.Mid(Sheets("Sayfa1").Range("a" & i).Value, 2, 8)
  Sheets("Sayfa2").Range("c65536").End(3)(2, 1).Value = VBA.Mid(Sheets("Sayfa1").Range("a" & i).Value, 10, 4)
Next
End Sub


hızlı cevabınız için teşekkür ederim ali bey . sorunsuz çalışıyor .
Kullanıcı avatarı
elmango
Yeni Başlamış
 
Kayıt: 02 Arl 2015 15:10
Meslek: finans
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara / ostim

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Hücredeki metni kod ile başka sayfadaki hücrelere ayı

İleti#5)  Ali ÖZ » 07 Kas 2018 12:06

20.Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için kesinlikle mesajınızın tamamını büyük harf kullanarak yazmayınız. Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz. Sitemiz Türkçe karakter desteklemektedir ve i, ç , ş , ğ gibi harfleri kullanmanızda hiç bir sakınca yoktur.


Rica ederim.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

Bumerang - Yazarkafe