bölümlere göre bilgileri aktarmak

[ozijikanu]

merhaba ekteki dosyada muayene sayfasında bilgileri olan personeli bölümüne göre ayırıp gerekli bilgilerini süzmek istiyorum.Bilgileri süzdüm sandım ama sadece bir satır alıyor daha sonra almıyor ve bölümlere görede aldıramadım yardım ederseniz sevinirim.

 

[halit3]

Muayene sayfasından BV17 hücredeki sayfaya verileri sırasıyla aktarıyor.

Sub TAŞI()
sayfa = Sheets("Muayene").Cells(17, "BV").Value
sat = Worksheets(sayfa).Cells(Rows.Count, "A").End(3).Row + 1
Sheets(sayfa).Cells(sat, 1).Value = sat - 1
Sheets(sayfa).Cells(sat, 2).Value = Sheets("Muayene").Cells(13, "BX").Value
Sheets(sayfa).Cells(sat, 3).Value = Sheets("Muayene").Cells(13, "AZ").Value
Sheets(sayfa).Cells(sat, 4).Value = Sheets("Muayene").Cells(23, "BG").Value
Sheets(sayfa).Cells(sat, 5).Value = Sheets("Muayene").Cells(23, "BU").Value
Sheets(sayfa).Cells(sat, 6).Value = Sheets("Muayene").Cells(23, "CH").Value
Sheets(sayfa).Cells(sat, 7).Value = Sheets("Muayene").Cells(13, "CI").Value
Sheets(sayfa).Cells(sat, 8).Value = Sheets("Muayene").Cells(18, "BG").Value
Sheets(sayfa).Cells(sat, 9).Value = Sheets("Muayene").Cells(19, "AZ").Value
Sheets(sayfa).Cells(sat, 10).Value = Sheets("Muayene").Cells(76, "K").Value
Sheets(sayfa).Cells(sat, 11).Value = Sheets("Muayene").Cells(76, "AF").Value
Sheets(sayfa).Cells(sat, 12).Value = Sheets("Muayene").Cells(90, "L").Value
Sheets(sayfa).Cells(sat, 13).Value = Sheets("Muayene").Cells(90, "AF").Value
Sheets(sayfa).Cells(sat, 14).Value = Sheets("Muayene").Cells(76, "BC").Value
Sheets(sayfa).Cells(sat, 15).Value = Sheets("Muayene").Cells(76, "BY").Value
Sheets(sayfa).Cells(sat, 16).Value = Sheets("Muayene").Cells(90, "BC").Value
Sheets(sayfa).Cells(sat, 17).Value = Sheets("Muayene").Cells(90, "BY").Value
MsgBox "İŞLEM TAMAM"
End Sub

 

[ozijikanu]

Halit 3 eline sağlık bir sorum daha olacak her seferinde run demeden aktar butonuna basarak aktarmayı nasıl yaparım.şidi her seferinde makroya run demem gerekiyor.

 

[halit3]

Halit 3 eline sağlık bir sorum daha olacak her seferinde run demeden aktar butonuna basarak aktarmayı nasıl yaparım.şidi her seferinde makroya run demem gerekiyor.

sorunuzu anlıyamadım dosyanızı ekliyorum bilgileri aktar düğmesine tıkladığınız zaman aktarıyor.

 

[ozijikanu]

yardım hata var

Tekrar merhaba bir hatayla karşılaşıyorum. değerleri ataması gereken kısımlara atamıyor kaydırma yapıyor.bulamadım nasıl yapacağımızı

 

[halit3]

Tekrar merhaba bir hatayla karşılaşıyorum. değerleri ataması gereken kısımlara atamıyor kaydırma yapıyor.bulamadım nasıl yapacağımızı

Dosyanızdaki kodları ben yzmadım. sadece ilaveler yaptım.
aşağıdak kırmız bölümleri kendinize göre düzeltiniz. veriler oralardan alınıyor.
Örnek olarak aşağıdaki kodda BX13 hücredeki veri baş ilk satırın B sutünuna alınıyor.

Sheets([COLOR=black]sayfa[/COLOR]).Cells(sat, 2).Value = Sheets("Muayene").Cells([COLOR=red]13[/COLOR], [COLOR=red]"BX[/COLOR]").Value

 

[ozijikanu]

Size yazmadan önce o hücreleri 2 kere tek tek kontrol ettim ama hücrelerde bir hata yok doğru hücre yazıyor ama sola kaydırarak atıyor değerleri

 

[ozijikanu]

hallettim problemi biraz zaman aldı ama oldu tekrar yardımların için tşkkr problemi başka bitr yerde buldum