veri almada yardim talebi

[caykasigi]

Oncelikle yeni baslayan biri oldugumu belirtmek isterim ki sorularim da dogal karsilansin.

Oldukca ilkel yontemlerle yazmaya calistigim ekteki dosyayla ilgili yardima ihtiyacim var.

'Reference sayfasindaki a sayili satir, 9 numarali (sabit sutun) sutun daki degeri Calculation sayfasina yazdirmak istiyorum'

a satir numarasi Reference Sayfasinda tiklanan hucreye gore degisiyor.

Sheets("Calculation Sheet").Cells(8, 3) = Sheets("Reference1").Cells(a, 9) gibi bir sey olmali...

Uygun yol konusunda yardimci olur musunuz lutfen…. simdiden tesekkurler

 

[caykasigi]

dosya bu sefer ektedir.

 

[Ayhan Ercan]

Sheets("Calculation Sheet").Cells(8, 3) = Sheets("Reference1").Cells(a, 9) gibi bir sey olmali...

Uygun yol konusunda yardimci olur musunuz lutfen…. simdiden tesekkurler

Merhaba Sn caykasigi,

.....

Referans1 sayfasındaki hangi hücrenin Calculation.. sayfasının cells(8,3) üne gitsin istiyorsunuz?

 

[caykasigi]

Isleyis soyle: Referans1 sayfasi uzerinde B sutununa tiklandikca userform aciliyor, ve userform o satirdaki bilgilerin ozetini veriyor (bazi degerleri) ( Butun satiri kontrol etmek kullaniciya zor olacagi icin boyle bir yol secmistim)
Ben o satirda gozuken bilgilerim bi kismini Calculation Sayfasina aktarmak istiyorum.
Bu nedenle aktarilacak satir numarasi Reference1 sayfasinda tiklamayla surekli degisiyor. Satir numarasina a dedim=> mesela Reference 1 sayfasindaki cell(a,3) u nasil calculation sayfasina yazdirabilirim?

 

[Ayhan Ercan]

Merhaba Sn caykasigi

Dosyanızı inceleme fırsatı buldum. Biraz karışık geldi bana ama anladığım kadarıyla cells(a,9) daki "a" kastınız "değişken" dir.

O halde CommanadButton1_Click'e kod yazarken en başa
"a" değişkenini atamanız gerekecektir.

Aşağıdaki kodları Commandbutton1_Click prosedürüne ilave ederek tekrar deneyiniz..

Private Sub CommandButton1_Click()
[COLOR=blue][B]Dim a As Integer
a = ActiveCell.Row[/B][/COLOR]
Sheets("Calculation Sheet").Select
Range("C3:C14,G3:G14").ClearContents
  
Cells(3, 3) = TextBox1.Value
Cells(4, 3) = TextBox2.Value
Cells(6, 3) = TextBox4.Value
Cells(7, 3) = TextBox5.Value
[COLOR=blue][B]Cells(8, 3) = Sheets("Reference1").Cells(a, 9)
[/B][/COLOR]Cells(9, 3) = TextBox6.Value
Cells(10, 3) = tssremoval 
Cells(14, 3) = methane 
End Sub

 

[caykasigi]

Ayhan Bey nasil tesekkur edecegimi bilemiyorum, butun gece uykusuz kalmistim.
Evet baya karisik seyler yapiyorum tam bilemedigim icin.
Yeniden cok tskler, hayirli guzel gunler olsun...

 

[Ayhan Ercan]

Ayhan Bey nasil tesekkur edecegimi bilemiyorum, butun gece uykusuz kalmistim.
Evet baya karisik seyler yapiyorum tam bilemedigim icin.
Yeniden cok tskler, hayirli guzel gunler olsun...

Rica ederim.
İyi Çalışmalar k::