hücreden seçim

[mhaluksen]

arkadaşlar, şu an uğraşmakta olduğum bir bordro var. Bu bordroda b1:b65000 arası herhengi bir hücre seçildiğinde userform çıkıyor. Sorum: b:b de herhangi bir hücre seçildiğinde, sağındaki dolu olan hücreleri userormda bulunan textboxlara nasıl aktarırız. biraz karışık gibi oldu ama dosya ekte incelerseniz sevinirim.

 

[Levent Menteşoğlu]

tahakkuk kod sayfasındaki kodu aşağıdaki ile değiştirin. Ben iki textbox için kodu yazdım, siz diğerlerini eklersiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
sat = Target.Row
UserForm1.TextBox1 = Cells(sat, "c")
UserForm1.TextBox2 = Cells(sat, "d")
.
.
.
UserForm1.Show
End Sub

 

[mhaluksen]

üstadım, hemen deniyorum.ilgine teşekkür ederim

 

[mhaluksen]

sayın leventm;"m" satırına kadar uyguladım güzel çalışıyor, ancak takıldığım nokta, "m" satırından sonra hangi vergi türünden kayıt yapılmışsa; textbox12,13,14,15,16,11 deki verilere o vergi türünün tutarları gelmesi.İzah kabiliyetim pek yoktur ama rica etsem bir daha bakabilirmisiniz.(örn:ygv vergi türünden "b" satırına kayıt yapılmışsa; textbox12="n",textbox13="o",textbox14="p" ,eğer "b" satırındaki, butk vergi türünden kayıt yapılmışsa ,textbox12="v"satırı ,textbox12="w" satırı,textbox12="x",textbox12="y" satırındaki değerlerini atayacak.)

 

[Levent Menteşoğlu]

tahakkuk sayfasına 5-6 adet sutünların tam doldurulduğu bir örnek eklermisiniz.

 

[mhaluksen]

sayın leventm. Dosyayı ekliyorum.Sizin yaptığınız örnek yol üzerinde bende deneme yaptım. İlginize teşekkür ederim.

 

[Levent Menteşoğlu]

M sütunundan sonraki vergü türünde sadece bir grupmu dolu olacaktır, dosyanızda birden fazla grupta veri mevcut (bkz satır 2) bu durumda textboxlara hangi veri geririlecektir.

 

[mhaluksen]

sayın leventm, dediğiniz gibi sadece bir grup dolu olacak. m satırından sonra ,eğer b satırındaki hangi vergi türü seçilmişse, örneğin YGV seçilmişse, zaten daha önceden kayıt yapıldığından n,p,o,q satırları dolu, butk seçilmişse v,w,x,y satırları, g.geç.v. seçilmişse aı,aj,ak,al satırları dolu oluyur.Amacım "b" satırında tıkladığımda o satırdaki vergi türünden hangi seçilmişse (örneğin, butk) v,w,x,y satırının textbox12,13,14,15'e aktarılmasıdır.Üstadım birde benim yaptığımı incelediniz mi?if ile yapmıştım, acaba başka kısa yolu varmı?Teşekkür ederim

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
sat = Target.Row
UserForm1.TextBox1 = Cells(sat, "c")
UserForm1.TextBox2 = Cells(sat, "d")
UserForm1.TextBox3 = Cells(sat, "e")
UserForm1.TextBox4 = Cells(sat, "f")
UserForm1.TextBox5 = Cells(sat, "g")
UserForm1.TextBox6 = Cells(sat, "h")
UserForm1.TextBox7 = Cells(sat, "ı")
UserForm1.TextBox8 = Cells(sat, "j")
UserForm1.TextBox9 = Cells(sat, "k")
UserForm1.TextBox10 = Cells(sat, "l")
UserForm1.TextBox11 = Cells(sat, "m")

sut = WorksheetFunction.Match(Cells(sat, "b"), [1:1], 0)

UserForm1.TextBox12 = Cells(sat, sut - 3)
UserForm1.TextBox13 = Cells(sat, sut - 2)
UserForm1.TextBox14 = Cells(sat, sut - 1)
UserForm1.TextBox15 = Cells(sat, sut)

UserForm1.Show 0
End Sub

 

[mhaluksen]

ilgine teşekkür ederim.Yordum sizi. Hemen deneyeceğim