vba kod kısaltma

[ikikan]

arkadaşlar farklı sayfadaki bir sütundan yatay olarak
veri nasıl aktarılır aşadaki kod cok uzun oluyor kısaltmanın bir yolu varmı?

Sheets("V1").Range("b" & bos).Value = Range("AA3").Text
Sheets("V1").Range("c" & bos).Value = Range("AA4").Text
Sheets("V1").Range("d" & bos).Value = Range("AA5").Text
Sheets("V1").Range("e" & bos).Value = Range("AA6").Text
Sheets("V1").Range("f" & bos).Value = Range("AA7").Text
Sheets("V1").Range("g" & bos).Value = Range("AA8").Text
Sheets("V1").Range("h" & bos).Value = Range("AA9").Text
Sheets("V1").Range("i" & bos).Value = Range("AA10").Text
Sheets("V1").Range("j" & bos).Value = Range("AA11").Text
Sheets("V1").Range("k" & bos).Value = Range("AA12").Text
Sheets("V1").Range("l" & bos).Value = Range("AA13").Text
Sheets("V1").Range("m" & bos).Value = Range("AA14").Text
Sheets("V1").Range("n" & bos).Value = Range("AA15").Text
Sheets("V1").Range("o" & bos).Value = Range("AA16").Text
Sheets("V1").Range("p" & bos).Value = Range("AA17").Text
Sheets("V1").Range("q" & bos).Value = Range("AA18").Text
Sheets("V1").Range("r" & bos).Value = Range("AA19").Text
Sheets("V1").Range("s" & bos).Value = Range("AA20").Text
Sheets("V1").Range("t" & bos).Value = Range("AA21").Text
Sheets("V1").Range("u" & bos).Value = Range("AA22").Text
Sheets("V1").Range("v" & bos).Value = Range("AA23").Text
Sheets("V1").Range("w" & bos).Value = Range("AA24").Text
Sheets("V1").Range("x" & bos).Value = Range("AA25").Text
Sheets("V1").Range("y" & bos).Value = Range("AA26").Text
Sheets("V1").Range("z" & bos).Value = Range("AA27").Text
Sheets("V1").Range("aa" & bos).Value = Range("AA28").Text
Sheets("V1").Range("ab" & bos).Value = Range("AA29").Text
Sheets("V1").Range("ac" & bos).Value = Range("AA30").Text
Sheets("V1").Range("ad" & bos).Value = Range("AA31").Text
Sheets("V1").Range("ae" & bos).Value = Range("AA32").Text
Sheets("V1").Range("af" & bos).Value = Range("AA33").Text
Sheets("V1").Range("ag" & bos).Value = Range("AA34").Text
Sheets("V1").Range("ah" & bos).Value = Range("AA35").Text
Sheets("V1").Range("ai" & bos).Value = Range("AA36").Text
Sheets("V1").Range("aj" & bos).Value = Range("AA37").Text
Sheets("V1").Range("ak" & bos).Value = Range("AA38").Text
Sheets("V1").Range("al" & bos).Value = Range("AA39").Text
Sheets("V1").Range("am" & bos).Value = Range("AA40").Text
Sheets("V1").Range("an" & bos).Value = Range("AA41").Text
Sheets("V1").Range("ao" & bos).Value = Range("AA42").Text
Sheets("V1").Range("ap" & bos).Value = Range("AA43").Text
Sheets("V1").Range("aq" & bos).Value = Range("AA44").Text
Sheets("V1").Range("ar" & bos).Value = Range("AA45").Text
Sheets("V1").Range("as" & bos).Value = Range("AA46").Text
Sheets("V1").Range("at" & bos).Value = Range("AA47").Text
Sheets("V1").Range("au" & bos).Value = Range("AA48").Text
Sheets("V1").Range("av" & bos).Value = Range("AA49").Text
Sheets("V1").Range("aw" & bos).Value = Range("AA50").Text
Sheets("V1").Range("ax" & bos).Value = Range("AA51").Text
Sheets("V1").Range("ay" & bos).Value = Range("AA52").Text
Sheets("V1").Range("az" & bos).Value = Range("AA53").Text
Sheets("V1").Range("ba" & bos).Value = Range("AA54").Text
Sheets("V1").Range("bb" & bos).Value = Range("AA55").Text
Sheets("V1").Range("bc" & bos).Value = Range("AA56").Text
Sheets("V1").Range("bd" & bos).Value = Range("AA57").Text
Sheets("V1").Range("be" & bos).Value = Range("AA58").Text
Sheets("V1").Range("bf" & bos).Value = Range("AA59").Text
Sheets("V1").Range("bg" & bos).Value = Range("AA60").Text
Sheets("V1").Range("bh" & bos).Value = Range("AA61").Text
Sheets("V1").Range("bi" & bos).Value = Range("AA62").Text
Sheets("V1").Range("bj" & bos).Value = Range("AA63").Text
Sheets("V1").Range("bk" & bos).Value = Range("AA64").Text
Sheets("V1").Range("bl" & bos).Value = Range("AA65").Text
Sheets("V1").Range("bm" & bos).Value = Range("AA66").Text
Sheets("V1").Range("bn" & bos).Value = Range("AA67").Text
Sheets("V1").Range("bo" & bos).Value = Range("AA68").Text
Sheets("V1").Range("bp" & bos).Value = Range("AA69").Text
Sheets("V1").Range("bq" & bos).Value = Range("AA70").Text
Sheets("V1").Range("br" & bos).Value = Range("AA71").Text
Sheets("V1").Range("bs" & bos).Value = Range("AA72").Text
Sheets("V1").Range("bt" & bos).Value = Range("AA73").Text
Sheets("V1").Range("bu" & bos).Value = Range("AA74").Text
Sheets("V1").Range("bv" & bos).Value = Range("AA75").Text
Sheets("V1").Range("bw" & bos).Value = Range("AA76").Text
Sheets("V1").Range("bx" & bos).Value = Range("AA77").Text
Sheets("V1").Range("by" & bos).Value = Range("AA78").Text
Sheets("V1").Range("bz" & bos).Value = Range("AA79").Text
Sheets("V1").Range("ca" & bos).Value = Range("AA80").Text
Sheets("V1").Range("cb" & bos).Value = Range("AA81").Text
Sheets("V1").Range("cc" & bos).Value = Range("AA82").Text
Sheets("V1").Range("cd" & bos).Value = Range("AA83").Text
Sheets("V1").Range("ce" & bos).Value = Range("AA84").Text
Sheets("V1").Range("cf" & bos).Value = Range("AA85").Text
Sheets("V1").Range("cg" & bos).Value = Range("AA86").Text
Sheets("V1").Range("ch" & bos).Value = Range("AA87").Text
Sheets("V1").Range("ci" & bos).Value = Range("AA88").Text
Sheets("V1").Range("cj" & bos).Value = Range("AA89").Text
Sheets("V1").Range("ck" & bos).Value = Range("AA90").Text
Sheets("V1").Range("cl" & bos).Value = Range("AA91").Text
Sheets("V1").Range("cm" & bos).Value = Range("AA92").Text
Sheets("V1").Range("cn" & bos).Value = Range("AA93").Text
Sheets("V1").Range("co" & bos).Value = Range("AA94").Text
Sheets("V1").Range("cp" & bos).Value = Range("AA95").Text
Sheets("V1").Range("cq" & bos).Value = Range("AA96").Text
Sheets("V1").Range("cr" & bos).Value = Range("AA97").Text
Sheets("V1").Range("cs" & bos).Value = Range("AA98").Text
Sheets("V1").Range("ct" & bos).Value = Range("AA99").Text
Sheets("V1").Range("cu" & bos).Value = Range("AA100").Text
Sheets("V1").Range("cv" & bos).Value = Range("AA101").Text
Sheets("V1").Range("cw" & bos).Value = Range("AA102").Text
Sheets("V1").Range("cx" & bos).Value = Range("AA103").Text
Sheets("V1").Range("cy" & bos).Value = Range("AA104").Text
Sheets("V1").Range("cz" & bos).Value = Range("AA105").Text
Sheets("V1").Range("da" & bos).Value = Range("AA106").Text
Sheets("V1").Range("db" & bos).Value = Range("AA107").Text
Sheets("V1").Range("dc" & bos).Value = Range("AA108").Text
Sheets("V1").Range("dd" & bos).Value = Range("AA109").Text
Sheets("V1").Range("de" & bos).Value = Range("AA110").Text
Sheets("V1").Range("df" & bos).Value = Range("AA111").Text
Sheets("V1").Range("dg" & bos).Value = Range("AA112").Text
Sheets("V1").Range("dh" & bos).Value = Range("AA113").Text
Sheets("V1").Range("di" & bos).Value = Range("AA114").Text
Sheets("V1").Range("dj" & bos).Value = Range("AA115").Text
Sheets("V1").Range("dk" & bos).Value = Range("AA116").Text
Sheets("V1").Range("dl" & bos).Value = Range("AA117").Text
Sheets("V1").Range("dm" & bos).Value = Range("AA118").Text
Sheets("V1").Range("dn" & bos).Value = Range("AA119").Text
Sheets("V1").Range("do" & bos).Value = Range("AA120").Text
Sheets("V1").Range("dp" & bos).Value = Range("AA121").Text
Sheets("V1").Range("dq" & bos).Value = Range("AA122").Text
Sheets("V1").Range("dr" & bos).Value = Range("AA123").Text
Sheets("V1").Range("ds" & bos).Value = Range("AA124").Text
Sheets("V1").Range("dt" & bos).Value = Range("AA125").Text
Sheets("V1").Range("du" & bos).Value = Range("AA126").Text
Sheets("V1").Range("dv" & bos).Value = Range("AA127").Text
Sheets("V1").Range("dw" & bos).Value = Range("AA128").Text
Sheets("V1").Range("dx" & bos).Value = Range("AA129").Text
Sheets("V1").Range("dy" & bos).Value = Range("AA130").Text
Sheets("V1").Range("dz" & bos).Value = Range("AA131").Text
Sheets("V1").Range("ea" & bos).Value = Range("AA132").Text
Sheets("V1").Range("eb" & bos).Value = Range("AA133").Text
Sheets("V1").Range("ec" & bos).Value = Range("AA134").Text
Sheets("V1").Range("ed" & bos).Value = Range("AA135").Text
Sheets("V1").Range("ee" & bos).Value = Range("AA136").Text
Sheets("V1").Range("ef" & bos).Value = Range("AA137").Text
Sheets("V1").Range("eg" & bos).Value = Range("AA138").Text
Sheets("V1").Range("eh" & bos).Value = Range("AA139").Text
Sheets("V1").Range("ei" & bos).Value = Range("AA140").Text
Sheets("V1").Range("ej" & bos).Value = Range("AA141").Text
Sheets("V1").Range("ek" & bos).Value = Range("AA142").Text
Sheets("V1").Range("el" & bos).Value = Range("AA143").Text
Sheets("V1").Range("em" & bos).Value = Range("AA144").Text
Sheets("V1").Range("en" & bos).Value = Range("AA145").Text
Sheets("V1").Range("eo" & bos).Value = Range("AA146").Text
Sheets("V1").Range("ep" & bos).Value = Range("AA147").Text
Sheets("V1").Range("eq" & bos).Value = Range("AA148").Text
Sheets("V1").Range("er" & bos).Value = Range("AA149").Text
Sheets("V1").Range("es" & bos).Value = Range("AA150").Text
Sheets("V1").Range("et" & bos).Value = Range("AA151").Text
Sheets("V1").Range("eu" & bos).Value = Range("AA152").Text
Sheets("V1").Range("ev" & bos).Value = Range("AA153").Text
Sheets("V1").Range("ew" & bos).Value = Range("AA154").Text
Sheets("V1").Range("ex" & bos).Value = Range("AA155").Text
Sheets("V1").Range("ey" & bos).Value = Range("AA156").Text
Sheets("V1").Range("ez" & bos).Value = Range("AA157").Text
Sheets("V1").Range("fa" & bos).Value = Range("AA158").Text
Sheets("V1").Range("fb" & bos).Value = Range("AA159").Text
Sheets("V1").Range("fc" & bos).Value = Range("AA160").Text
Sheets("V1").Range("fd" & bos).Value = Range("AA161").Text
Sheets("V1").Range("fe" & bos).Value = Range("AA162").Text
Sheets("V1").Range("ff" & bos).Value = Range("AA163").Text
Sheets("V1").Range("fg" & bos).Value = Range("AA164").Text
Sheets("V1").Range("fh" & bos).Value = Range("AA165").Text
Sheets("V1").Range("fi" & bos).Value = Range("AA166").Text
Sheets("V1").Range("fj" & bos).Value = Range("AA167").Text
Sheets("V1").Range("fk" & bos).Value = Range("AA168").Text
Sheets("V1").Range("fl" & bos).Value = Range("AA169").Text
Sheets("V1").Range("fm" & bos).Value = Range("AA170").Text
Sheets("V1").Range("fn" & bos).Value = Range("AA171").Text
Sheets("V1").Range("fo" & bos).Value = Range("AA172").Text
Sheets("V1").Range("fp" & bos).Value = Range("AA173").Text
Sheets("V1").Range("fq" & bos).Value = Range("AA174").Text
Sheets("V1").Range("fr" & bos).Value = Range("AA175").Text
Sheets("V1").Range("fs" & bos).Value = Range("AA176").Text
Sheets("V1").Range("ft" & bos).Value = Range("AA177").Text
Sheets("V1").Range("fu" & bos).Value = Range("AA178").Text
Sheets("V1").Range("fv" & bos).Value = Range("AA179").Text
Sheets("V1").Range("fw" & bos).Value = Range("AA180").Text
Sheets("V1").Range("fx" & bos).Value = Range("AA181").Text
Sheets("V1").Range("fy" & bos).Value = Range("AA182").Text
Sheets("V1").Range("fz" & bos).Value = Range("AA183").Text
Sheets("V1").Range("ga" & bos).Value = Range("AA184").Text
Sheets("V1").Range("gb" & bos).Value = Range("AA185").Text
Sheets("V1").Range("gc" & bos).Value = Range("AA186").Text
Sheets("V1").Range("gd" & bos).Value = Range("AA187").Text
Sheets("V1").Range("ge" & bos).Value = Range("AA188").Text
Sheets("V1").Range("gf" & bos).Value = Range("AA189").Text
Sheets("V1").Range("gg" & bos).Value = Range("AA190").Text
Sheets("V1").Range("gh" & bos).Value = Range("AA191").Text
Sheets("V1").Range("gi" & bos).Value = Range("AA192").Text
Sheets("V1").Range("gj" & bos).Value = Range("AA193").Text
Sheets("V1").Range("gk" & bos).Value = Range("AA194").Text
Sheets("V1").Range("gl" & bos).Value = Range("AA195").Text
Sheets("V1").Range("gm" & bos).Value = Range("AA196").Text
Sheets("V1").Range("gn" & bos).Value = Range("AA197").Text
Sheets("V1").Range("go" & bos).Value = Range("AA198").Text
Sheets("V1").Range("gp" & bos).Value = Range("AA199").Text
Sheets("V1").Range("gq" & bos).Value = Range("AA200").Text
Sheets("V1").Range("gr" & bos).Value = Range("AA201").Text
Sheets("V1").Range("gs" & bos).Value = Range("AA202").Text
Sheets("V1").Range("gt" & bos).Value = Range("AA203").Text
Sheets("V1").Range("gu" & bos).Value = Range("AA204").Text
Sheets("V1").Range("gv" & bos).Value = Range("AA205").Text
Sheets("V1").Range("gw" & bos).Value = Range("AA206").Text
Sheets("V1").Range("gx" & bos).Value = Range("AA207").Text
Sheets("V1").Range("gy" & bos).Value = Range("AA208").Text
Sheets("V1").Range("gz" & bos).Value = Range("AA209").Text

 

[ExcelF1]

Verileriniz sıra takip ediyorsa, döngü kurabilirsiniz. Örneğin ;

For a = 1 to 100
'bos değişkeninin 1 olduğunu varsayarak
Sheets("V1").Range("b" & a).Value = Cells(a+2,27).Text
Next a

Siz kodları kendinize göre ayarlayınız.

 

[ikikan]

Verileriniz sıra takip ediyorsa, döngü kurabilirsiniz. Örneğin ;

For a = 1 to 100
'bos değişkeninin 1 olduğunu varsayarak
Sheets("V1").Range("b" & a).Value = Cells(a+2,27).Text
Next a

Siz kodları kendinize göre ayarlayınız.

bunu yatay olarak aktaramazmıyız ?

 

[ikikan]

bu kod daki hata nedir

Private Sub CommandButton1_Click()
If Range("A1").Text = Empty Then MsgBox "A1 Hücresi Boş", vbInformation: Exit Sub
Dolu = Sheets("V1").Range("A65500").End(xlUp).Row
bos = Dolu + 1

For a = 1 To 200

Sheets("V1").Range("B" & bos & ":GZ" & bos).Value = Cells(a + 2, 27).Text
Next a

MsgBox "veri sayfasına Kayıt Yapıldı", vbInformation, "pegem"
End Sub

 

[Husgvarna]

Merhaba
Kodlarınızın içindeki döngüyü şöyle deneyin.

For x = 3 To 209
Sheets("V1").Cells(bos, x - 1).Value = Range("AA" & x).Text
Next

 

[ikikan]

kolay gelsin arkadaşlar bir sorum daha olcak

Private Sub CommandButton1_Click()
If Range("a1").Text = "" Then
MsgBox "A1 ,A2 ,B4 ,C5 Hücresi Boş", vbCritical
ElseIf Range("a2").Text = "" Then
MsgBox "A1 ,A2 ,B4 ,C5 Hücresi Boş", vbCritical
ElseIf Range("b4").Text = "" Then
MsgBox "A1 ,A2 ,B4 ,C5 Hücresi Boş", vbCritical
ElseIf Range("c4").Text = "" Then
MsgBox "A1 ,A2 ,B4 ,C5 Hücresi Boş", vbCritical
Exit Sub
End If
End Sub
bu koddaki MsgBox "A1 ,A2 ,B4 ,C5 Hücresi Boş", vbCritical
degerini sabit hale nasıl geriririz