Sayfa Düzeni

A

argo619

Katılım
11 Ocak 2008
Mesajlar
377
Excel Vers. ve Dili
mikrosoft exel türkçe
Ü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
 

Ekli dosyalar

Merhaba,

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

İstediğiniz bu mu?

.
 
neden her satıra istediğiniz bilgileri getirmiyorsunuz? bu şekilde deneseniz olmaz mı?
 
Ö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
 
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
 
argo619' Alıntı:
Ö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
Genişletmek için tıkla ...

Kod ile yapabilirsiniz.

Kod: 
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
.
 
Üstadım verdiğiniz kodu ekledim ama veriler gelmedi
nerde yanlış yaptım acaba
yordum sizleri
hakkınızı helal edin
 
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
 

Ekli dosyalar

Bu şekilde deneyin.

Kod: 
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
 
Ü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
 
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
 

Ekli dosyalar

Eki inceleyin.

.
 

Ekli dosyalar

Range("A:B").ClearContents
hocam bunda hata veriyo kendi dosyamda
çok yordum sizleri artık utanıyorum bişey sormaya
 
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.

.
 
Ü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
 
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
 

Ekli dosyalar

  • 22.xls
    22.xls
    377 KB · Görüntüleme: 5
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst