Sayfa Düzeni

[argo619]

Üstadlarım ekli dosyamda sayfa birden veriler sayfa 2 ye geliyor
yalnız sayfa 2 de gelen verilerin başına numara ve her satır arasına boşluk nasıl koyabiliriz
saygılarımla

 

[Ömer]

Merhaba,

="1-) "&Sayfa1!A1&DAMGA(10)&DAMGA(10)&"2-) "&Sayfa1!A2&DAMGA(10)&DAMGA(10)&"3-) "&Sayfa1!A3

İstediğiniz bu mu?

.

 

[parsley2]

neden her satıra istediğiniz bilgileri getirmiyorsunuz? bu şekilde deneseniz olmaz mı?

 

[argo619]

Ömer hocam harikasınız tam istediğim gibi yalnız bu yaklaşık 150 veri girilecek yani bu formülü kısaltma imkanı var mı
yoksa her satır için bu şekildemi girilecek

 

[argo619]

Parsley üstadım aslında dediğiniz şekilde verileri çağırdım yalnız cümle uzun olunca satır aralığı cümleyi tam almıyor
satır en uygun genişlik ayarladım yine olmadı
bunun için bu yöntemi denedim ömer hocamın formülü çok güzel eğer formülün kısası var ise çok daha güzel
saygılar efendim

 

[Ömer]

Ömer hocam harikasınız tam istediğim gibi yalnız bu yaklaşık 150 veri girilecek yani bu formülü kısaltma imkanı var mı
yoksa her satır için bu şekildemi girilecek

Kod ile yapabilirsiniz.

Sub Deneme()
Dim i As Long
Application.ScreenUpdating = False
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
S2.Range("A1:A30").ClearContents
For i = 1 To S1.[A65536].End(3).Row
S2.Range("A1") = S2.Range("A1") & Chr(10) & Chr(10) & i & "-) " & S1.Cells(i, "A")
Next i
S2.Range("A1") = Trim(S2.Range("A1"))
S2.Range("A1") = Right(S2.Range("A1"), Len(S2.Range("A1")) - 2)
Application.ScreenUpdating = True
End Sub

.

 

[argo619]

Üstadım verdiğiniz kodu ekledim ama veriler gelmedi
nerde yanlış yaptım acaba
yordum sizleri
hakkınızı helal edin

 

[Ömer]

Üstadım verdiğiniz kodu ekledim ama veriler gelmedi
nerde yanlış yaptım acaba
yordum sizleri
hakkınızı helal edin

Dosya ektedir.

.

 

[argo619]

TŞK

Üstadım bir türlü dosyama uyarlayamadım
eğer imkanı var da benim şu ekteki dosyamla ilgilensenizde ilgilenmesenizde sizlere müteşekkirim
allah razı olsun
çok tşkler
hakkınızı helal edin
benimbeceriksizliğimyüzünden sizleri bukadar yordum

 

[Ömer]

Bu şekilde deneyin.

Sub Deneme()
Dim i As Long
Application.ScreenUpdating = False
Set S1 = Sheets("Sayfa9")
Range("A1:I32").ClearContents
For i = 1 To S1.[B65536].End(3).Row
Range("A1") = Range("A1") & Chr(10) & Chr(10) & i & "-) " & S1.Cells(i, "B")
Next i
Range("A1") = Trim(Range("A1"))
Range("A1") = Right(Range("A1"), Len(Range("A1")) - 2)
Application.ScreenUpdating = True
End Sub

 

[argo619]

Üstadım hakkınızı helaledin harikasınız
cahilliğime bağışlayın bir türlü beceremedim ama en son
sayende başardık
Beni nasıl sevindirdiysen Allah da seni kat kat sevindirsin
çok teşekkürlyer üstadım

 

[argo619]

cümleyi satıra sığdırmak

Üstadlarım ekli dosyamda veriler farklı sayfadan geliyor
yalnız gelen veriler bir satıra sığmıyor
gelen cümle kadar satır otomatik nasıl açılabilir
saygılarımla

 

[Ömer]

Eki inceleyin.

.

 

[argo619]

Sağol üstadım
teşekkürler ilgi ve alakanıza

 

[argo619]

Range("A:B").ClearContents
hocam bunda hata veriyo kendi dosyamda
çok yordum sizleri artık utanıyorum bişey sormaya

 

[Ömer]

Hiç önemli değil istediğiniz zaman sorabilirsiniz.

Birleştirilmiş hücre kullanmayınız. Eklediğim dosyadaki gibi B sütununun aralığını genişleterek deneyin.

.

 

[argo619]

Üstadım çok teşekkürler evet hücreler birleştirilmişti
çok sağolun harika oldu be
eksik olmayın üsdadım
hakkınızı helal edin

 

[argo619]

Olmadı mı olmuyo işte

DEĞERLİ üstadlarım basıt bir konu için sizleri rahatsız etmek istemezdim
ama ekteki dosyamda sayfa1 i bir türlü sayfaya sığdıramadım
yardımlarınızı bekler saygılar sunarım

 

[Orion1]

Dosyanız ektedir.

 

[argo619]

evren hocam harikasınız yine imdadıma yetiştiniz
bu gibi bir kaçz dosyam var sorun nerdeydi acaba diye sorsam üstadım
nasıl yapmalıyım
kısaca lütfen