[Çözüldü]  Satır ve Sütun Eşleştirmesi

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Satır ve Sütun Eşleştirmesi

İleti#1)  karisma » 19 May 2020 16:47

Arkadaşlar kolay gelsin. Ekteki dosyada Textbox505' girilen bir tarihi sağ tarafında yer alan textbox600'e bir gün öncesini alacam. Daha sonra Textbox601'e Textbox 600'de yer alan tarihinin yılını Textbox602'ye de ayını aldırarak sayfadan satır ve sütün eşleştirmesine göre asgari ücret tutarını çekmek istedim. Başaramadım.

Kod: Tümünü seç
Private Sub TextBox505_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox505 = Format(TextBox505, "00"".""00"".""0000")
Dim dDate As Date
dDate = TextBox505.Value

TextBox600 = Format(DateSerial(Year(dDate), Month(dDate), Day(dDate) - 1), "dd.mm.yyyy")

TextBox601.Text = Format(TextBox600, "yyyy")


TextBox602.Text = Format(TextBox600, "mm")





TextBox507.SetFocus


Dim stn, satir As Integer
For i = 3 To 24
    If TextBox601.Value = ThisWorkbook.Worksheets("YİAÜ").Cells(6, i) Then
        stn = i
        Exit For
    End If
Next
For t = 7 To 20
    If TextBox602.Value = ThisWorkbook.Worksheets("YİAÜ").Cells(t, 2) Then
        satir = t
        Exit For
    End If
Next
TextBox506 = Format(ThisWorkbook.Worksheets("YİAÜ").Cells(satir, stn).Value, "#,#0.00 TL")
End Sub

Şurda hata veriyor. TextBox506 = Format(ThisWorkbook.Worksheets("YİAÜ").Cells(satir, stn).Value, "#,#0.00 TL")
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
karisma
Yeni Başlamış
 
Adı Soyadı:ahmet karışma
Kayıt: 09 Mar 2013 12:48
İleti: 77
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Satır ve Sütun Eşleştirmesi

İleti#2)  Justmag » 19 May 2020 23:26

Set wsa = Worksheets("YİAÜ")
satir = wsa.Range("D6:Z6").Find(TextBox601.Value, LookIn:=xlValues).Column
sutun = wsa.Range("B:B").Find(TextBox602.Value, LookIn:=xlValues).Row
TextBox506.Value = Format(wsa.Cells(sutun, satir).Value, "0,000.00 TL")

satir ve sutunu bunlarla bulun
Kullanıcı avatarı
Justmag
Yeni Başlamış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 34
İleti: 95
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: Satır ve Sütun Eşleştirmesi

İleti#3)  karisma » 20 May 2020 01:40

Elinize sağlık çok teşekkür ederim.
Kullanıcı avatarı
karisma
Yeni Başlamış
 
Adı Soyadı:ahmet karışma
Kayıt: 09 Mar 2013 12:48
İleti: 77
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 1 misafir

cron
Bumerang - Yazarkafe