Makro sütuna yazarken belirlediğim boşluk sayısından sonra yazsın.

[ahzola]

Merhaba

Makro ile veri aktardığım sütunda
veriden önce belirlediğim sayıda boşluk olmasını,
O boşluklardan sonra makronun verileri yazmasını istiyorum.
(Bahsettiğim boşluğu şuanki çalışan makroda verme şansım yok maalesef)

Bu sorunu benim bilmediğim bir biçimlendirme yöntemi ilemi yoksa
makro yazarak mı hallederiz
yardımlarınızı bekliyorum.

 

[Mehmet Şahin]

hücre= "    " & veri

ya da

hücre=space(4) & veri

olabilir.

 

[fireman64]

Yazılmış verileri tekrar listbox yada textboxa aldırıp boşluklu olarak yazdırabilirsiniz.

 

[ahzola]

Yazılmış verileri tekrar listbox yada textboxa aldırıp boşluklu olarak yazdırabilirsiniz.

Sayın fireman64 yapılması gereken işlem çok fazla.
dediğiniz şekilde yapar isem diğer makronun bir anlamı kalmaz.
alakanız için teşekkür ederim.

hücre= "    " & veri

ya da

hücre=space(4) & veri

olabilir.

Sayın dentex

Kapalı dosyam için hazırladığnız çalışma için teşekkür ederim öncelikle
ellerineze sağlık.

Bu husus için bir kod yapma şansımız olabilrmi acaba
çünkü sil butonuda kullanıyorum diğer makro ile birlikte.
bildiğim kadarı ile olmaz.

Kullandığım makro G sütununa veri yazıyor.
Şayet yapabilirseniz
Sizin yazacağınız makroda
Tüm G sütunu için 4 tik boşluk bıraktıracak şeklinde olsun.

Tekrardan teşekkür eder iyi geceler dilerim.

 

[fireman64]

Private Sub CommandButton1_Click()
Range("G1").Select
    Do While Selection.Value <> ""
        Selection.Value = "    " & Selection.Value
        Selection.Offset(1, 0).Select
    Loop
End Sub

 

[Mehmet Şahin]

Sayın dentex

Kapalı dosyam için hazırladığnız çalışma için teşekkür ederim öncelikle
ellerinize sağlık.

Rica ederim, umarım işinize yaramıştır. Talebinize gelince net olarak anlayamadım. Yukarıda verdiğim kodlardan birini, makronuzdaki veri giren satıra uygularsanız, istediğiniz olur diye düşünüyorum.

 

[ahzola]

Merhabalar

Talebim
herhangi bir çalışma sayfasında
G sütununa yazılacak verilerin
4 tick boşluktan sonra yazılması.

G sütununa veriyi makro ile yazdırıyoruz.
yazılan verileri kullandıktan sonra sil butonu ile sütunu komple temizliyoruz.
yukarıda verdiğniz formüller silineceği için makro gerekli olarak düşünüyorum.
benim acemi olduğumu da dikkate alın lütfen.

Sayın fireman64
kod yazmış lakin.
kod userformda çalışıyor ve benim userform bilgim yok.
bana modülde çalışacak bir kod lazım.

her ikinize de alakalarınızıdan dolayı
ayrı ayrı teşekkür edeyiorum.

 

[ahzola]

Sayın fireman64

Değerli üstad.
Boş bir kitaba
yazdığınız kodu ilave edip yükleyebilirmisinz acaba

 

[fireman64]

userforma gerek yok sayfaya bir buton ekleyin o butona verdiğim kodu yazın detaylı anlatım http://www.excel.web.tr/f157/sayfada-buton-duome-olu-turmak-ve-makro-atamak-t59436.html

 

[ahzola]

Çok teşekkür ederim.
Ellerinize sağlık.

İyi geceler.

 

[fireman64]

Önemli değil iyi geceler.

 

[ahzola]

Private Sub CommandButton1_Click()
Range("G1").Select
    Do While Selection.Value <> ""
        Selection.Value = "    " & Selection.Value
        Selection.Offset(1, 0).Select
    Loop
End Sub

Sayın fireman64
ve makro hakkında bilgi sahibi arkadaşlar.

yukarıdaki makromuz G sütununda çalışıyor
örneğin 50 satırlık veri var. yaptığı işlem
sonrası kaydırma çubuğuda çalışıyor yani
sayfayı yukarı kaydırıyor. seçili hücre 50. satıra gidiyor.
umararım anlatabildim.

çalıştıktan sonra başlangıç satırına gelmesini istiyorum.
iyi geceler

 

[fireman64]

Private Sub CommandButton1_Click()
Range("G1").Select
    Do While Selection.Value <> ""
        Selection.Value = "    " & Selection.Value
        Selection.Offset(1, 0).Select
    Loop
Range("g1").Select
End Sub

Tekrar başa dönmesi için bunu kullanın.