Aşağı Devam Eden Sütunları Sağa Doğru Yazdırmak...

[corvetteengin]

Üstadlar nasıl yapılacağını bilmediğim için, neyi aratacağımı da bilemedim.

Benim sorunum resimde görüldüğü üzere, L3 sütununu F4 (900) ile başlatmak ve K4 (4.4) ile bitirmek. Sonra devam eden R3 sütununu F5 (890) ile başlatmak ve K5 (6.3) ile bitirmek. bu şekilde sağa doğru çekerek değerleri yazmak.

Yardımlarınız için şimdiden teşekkürler. Saygılar.

 

[Sarigol_937]

http://dosya.co/ burdan dosyanızı ekleyip link verirseniz dosyanız üzerinde yapmya çalışırız

 

[corvetteengin]

http://dosya.co/f9rzvcehh440/anasondaj_2005_ankara.xlsx.html

çok teşekkürler...

 

[turist]

M3 hücresine:

=KAYDIR(F3;1;0)

Yazıp, S3 hücresine kadar kopyalayıp yapıştırın.
T3 hücresine:

=KAYDIR(F3;2;0)

Yazıp,Z3 hücresine kadar kopyalayın.

Daha sonra S3 den Z3 e kadar hücreleri seçerek, kopyalayıp aşağıya doğru yapıştırın.

 

[ExcelF1]

Aşağıdaki kodu bir butona atayın. Yalnız çok fazla veriniz olduğundan mevcut sütun sayısı tüm veriyi yan yana dizmeye imkan vermeyecektir, bilginize...

Sub Düğme1_Tıklat()
On Error GoTo Hata
Range("M3:XFD3").ClearContents
Range("M3").Select
b = 0: c = 6
For a = 3 To [F1048576].End(xlUp).Row
10
ActiveCell.Offset(0, b) = Cells(a, c)
b = b + 1: c = c + 1
If c = 13 Then
c = 6
Else
GoTo 10
End If
Next a
Hata:
MsgBox a & " sütunda işlem yapılabildi. Sütun sayısı yetersiz olduğundan işlem sonlandırıldı."
End Sub

 

[corvetteengin]

yok üstad amacım o değil, anlatamadım sanırım.

istediğim şey, L3 satırında f4 değeri gelsin ve diğer 5 değeri okuyarak (1048, 4.8, 60, 61, ve 4.4) Q3 te bitsin. daha sonra r3 satırına f5 değeri yazsın (890) ve diğer 5 değeri sağa çekince devam etsin. bu şekilde sağa çektikçe f sütununda aşağı doğru olan değerler (880, 870, 860 ile başlayan) sağa doğru yazılsın

 

[corvetteengin]

Daha yalın bir dile anlatmak gerekirse;

910 ile başlayan ve 480 e kadar olan basınç seviyelerini (yanlarındaki değerlerde dahil) tek satırda yan yana yazabilmek...

 

[corvetteengin]

Yani aslında şu;

resimde görüldüğü şekilde yapmanın en kısa yolu nedir...

 

[ExcelF1]

5 nolu mesaja baktınız mı ?

 

[corvetteengin]

5 nolu mesajdaki Kodu butona nasıl atayabilirim?

 

[ExcelF1]

Dosyanız ektedir.

http://s3.dosya.tc/server19/oyVgnj/anasondaj_2005_ankara.rar.html