bir satırdaki bilgileri sırasıyla bir alt satıra kayıt etme

[sunvermis]

slm. bir dugme ile ust satırdaki yazıları alttaki kayıt listeme sırasıyla aktarmam lazım.. buarada asamadığım şu sırasıyla boş olan hucreye makro nsl aktaracak nasıl kaydedecek? daha onceki sorunuma kendimce boyle bir sey yaparak cozum bulmaya calistim. yardıma ihtiyacım var
tesekkurler herkese..
serkan unvermis

 

[bedersu]

Sub boş_satır()
a = WorksheetFunction.CountA(Range("B:B"))


For i = 2 To 39
Cells(a + 16, i) = Cells(3, i)
Next

End Sub

 

[Orion1]

Merhaba.
Ekli dosyayı incelermisiniz?İstediğniz şekildemi olmuş?
Dosyayı güncelledim.
Para birimine göre güncelledim.Deneyiniz.

 

[sunvermis]

tesekkurler ellerinize saglik cok iyi olmus... Peki bir problem daha soylesem! yukarıda hotel odeme kısmında para birimi euro yazıldıgında veya seçenek olsada oradan seçilse o satırdaki para birimlerini euro yapabilinirmi? birde Aktarma sırasında da biçimleri ne şekildeyse biçimleriyle kopyalasa aşağıya euro ise eur dolar ise dolar cok seymi istedim bilmiyorum tabide!

 

[Orion1]

Merhaba.
Dosyayı güncelledim.Dağa önce ki yerden indirebilirsiniz.
Şimdi kaynak verilerde ne şekilde biçimli ise hedef yerdede o şekilde biçimleniyor.
Diğer sorunuza gelince onu anlamadım.
İyi çalışmalar.

 

[sunvermis]

SOYLE Izah edeyim ozaman "Z3" hucresinde para birimi giriyoruzya buraya girilen para birimi herneyse "AD3 , AE3 , AL3 , AM3 " gibi gerekli hucrelerde de girilen sayı o para biriminde olması lazım? 30 yazdığımızda Z3 hucresi euro ise 30,00€ gibi gostermesi yani

 

[Orion1]

Merhaba.
Dosayayı güncelledim.Sanırım istediğiniz şekilde olmuştur.
İyi çalışmalar.

 

[sunvermis]

kardeş ne diyim ellerine kollarına emegine sağlık....
çok teşekkür ederim
başka projelerde buluşmak ümidiyle

 

[Orion1]

Rica ederim.İyi çalışmalar

 

[sunvermis]

herkese tesekkurler