Kod tam olarak istediğimi yapmıyor

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

Kod tam olarak istediğimi yapmıyor

İleti#1)  akif59 » 22 May 2020 18:25

https://www.dosyaupload.com/bvnN

Merhaba zamanı olan arkadaşların yardımını rica ediyorum

kod sayfa 1 12 nolu satırdaki değerleri sayfa 2 A sütununda görselde olduğu gibi sıralıyor

B12 Doluysa

sıralanan kırmızı değerlerin arasına bazen soldan 2 veya 3 hane sonra b12 hücre değerini araya ekletmek istiyorum bazende sağdan 2 veya 3 hane önce b12 hücre değerini araya ekletmek istiyorum

B12 Boşsa şu an yaptığı sıralama doğru

kod modül 3 de
For beden = 4 To 113
If S1.Cells(Plan, beden) <> "" Then
yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
s2.Cells(yeni, "A") = "q:" & S1.Cells(Plan, beden)
s2.Cells(yeni + 1, "A") = "s:" & S1.Cells(12, beden)

's2.Cells(yeni + 1, "A") = "s:" & Left(S1.Cells(12, beden), S1.[B13]) & S1.[B12]
'If S1.[B12] <> "" Then s2.Cells(yeni + 1, "A") = s2.Cells(yeni + 1, "A") & Right(S1.Cells(12, beden), S1.[B14])
'If S1.[B12] = "" Then

End If
Next
End If
Next
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
akif59
Yeni Başlamış
 
Kayıt: 17 Nis 2020 15:05
Meslek: Çizim
Yaş: 39
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe