textbox'a ve ActiveCell.Offset'e değer atamak.

[mrt]

Selamlar aşağıda belittiğim maddelerde yardıma ihtiyacım var.

Eşittirden sonraki (Metinle yazmış oladuğum) değeri VBA kodu olarak nasıl yazarım.

1. Textbox2.value = Düşeyara( textbox1.value, Stoksayfası A:B sutunları, 2, veri yoksa 0 olacak.

2. ActiveCell.Offset(0, 15).Value = Anasayfa A sütunun en son satırının değeri olacak.

3. Textbox3.value = Giris B sütunun en son satırının değeri olacak.

 

[mrt]

4. ve 5. Maddeyi sormayı unutmuşum;

4. C1 Hücresine ; Giriş sayfası A1:B15 aralığında bulunan degerlerden;

A1:A15 hücrelerinin Maxsimum değerlisinin B sutunu hücresini yaz.

Aşağıdaki örneğe göre C1 Hücresine 7 yazılmalı.

A B C
10 1 7
15 2
10 3
10 4
12 5
13 6
18 7
8 8

5. D1 Hücresine ; Giriş sayfası A1:B15 aralığında bulunan degerlerden;

A1:A15 hücrelerinin Maxsimum 2 değerinin B sutunu hücresini birleştirerek yaz.

Aşağıdaki örneğe göre D1 Hücresine 47 yazılmalı.

A B C D
10 1 47
15 2
11 3
19 4
12 5
13 6
18 7
8 8

 

[mrt]

,,,

 

[Levent Menteşoğlu]

2.sorunuz;

ActiveCell.Offset(0, 15).Value = sheets("Anasayfa").[a65536].end(3)

3.sorunuz;

Textbox3.value =sheets("Giris").[b65536].end(3)

4.sorunuz; C1 hücresine aşağıdaki formülü yazın

=DOLAYLI("B"&KAÇINCI(MAK(A2:A15);A2:A15;0)+1)

5-sorunuz; D1 hücresine aşağıdaki formülü yazın

=SAYIYAÇEVİR(DOLAYLI("B"&KAÇINCI(MAK(A2:A15);A2:A15;0)+1)&DOLAYLI("B"&KAÇINCI(BÜYÜK(A2:A15;2);A2:A15;0)+1))


1. sorunuz içinde daha detaylı bilgi verirseniz yardımcı olabilirim. Çünkü tek satırlık kod ile olmayabilir.

 

[mrt]

İlginize teşekkürler;

1. Textbox2.value = Düşeyara( textbox1.value, Stoksayfası A:B sutunları, 2, veri yoksa 0 olacak.


Ã?rnek:

A Sutunu ........ B sutunu
Murat ...............mrt
Selim................123456
Mehmet.............selam
Murat2..............xyz değerleri olsun;

Textbox1 de Murat yazdığımızda Textbox2'ye mrt
Textbox1 de Murat2 yazdığımızda Textbox2'ye xyz
Textbox1 de Selim yazdığımızda Textbox2'ye 123456 yazmasını istiyorum.

Textbox1 'e girilen veri bulunamaza Boş bırakacak veya sıfır (0) yazacak.

 

[Levent Menteşoğlu]

Textbox1 e aşağıdaki kodu yazarak deneyin.

[vb:1:96049a3a23]Private Sub TextBox1_Change()
On Error Resume Next
sat = Sheets("stok").[a1:a65536].Find(TextBox1.Value).Row
Textbox2 = Sheets("stok").Cells(sat, "b")
End Sub[/vb:1:96049a3a23]