Skip to main content

AccessTr.neT


Combobox Ta Seçilen Ay'ın Textbox A Bir Önceki Ay'ın Sonokuma Verisinin Gelmesi

Combobox Ta Seçilen Ay'ın Textbox A Bir Önceki Ay'ın Sonokuma Verisinin Gelmesi

Çözüldü #1
Sayın Hocalarım,

Ekli çalışmamda Userform2 deki cbHesAylar dan seçili olan ay'ın bir önceki ay'ın SonOkuma hücerindeki veriyi defolt olarak getirmesini istiyorum.

Saygılarımla,
.rar Çalışma.rar (Dosya Boyutu: 60,4 KB | İndirme Sayısı: 6)
Ahmet Yenginoğlu
Cevapla
#2
Bunu silip,
xtOncekiAy = cbHesAylar - "-1"

Bu kodu ekleyip denermisiniz...
Private Sub cbHesAylar_AfterUpdate()

Dim lsRw As Integer, shRw As Integer
Dim lstAy As String
Dim syc As Double
Dim wsh As Worksheet

On Error Resume Next

syc = 0
lstAy = vbNullString
lsRw = Me.cbHesAylar.ListIndex
If lsRw = 0 Then
lstAy = "ARALIK"
Else
lstAy = Me.cbHesAylar.List((lsRw - 1))
Set wsh = ThisWorkbook.Worksheets("BIRLIK-2024")
With wsh
shRw = .Range("A21:A32").Find(What:=lstAy, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows).Row
syc = CDbl(.Range("M" & shRw).Value2)
End With
End If

Me.txtOncekiAy.Value = lstAy
Me.txtIlkOkuma.Value = syc

End Sub
Cevapla
#3
Sayın mozuer,

İlginiz için çok teşekkür ederim. Kod çalışıyor.

Sağlıkla kalın,

Saygılarımla,
Ahmet Yenginoğlu
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task