ListBox'taki belirli bir kolonun içindeki en büyük değeri görüntülemek

[hassan26]

Selam
9 sütunlu Listbox1'den 6. sütundaki alt alta yazılı rakamların her zaman en büyüğünü (çünkü sürekli veri giriliyor) başka bir Textbox, label, listbox bunlardan herhangi biri içinde görüntülemek mümkünmüdür. Mümkünse bu kodu listbox'ın kendi kod bölümünemi yoksa UserForm_Initialize olayınamı yazılmalı
Teşekkür ediyorum.

 

[hassan26]

Özürdiliyorum dosya eklemeyi unutmuşum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub ComboBox1_Change()
    If ComboBox1 <> "" Then
    Plaka = ComboBox1.Value
    For X = 1 To Sheets.Count
    If Left(Sheets(X).Name, 5) = "G&#304;R&#304;&#350;" Then
    Set Bul = Sheets(X).Cells.Find(Plaka)
    If Not Bul Is Nothing Then
    Sheets(X).Select
    Cells(Bul.Row, Bul.Column).Select
    SATIR = ActiveCell.Offset(2, 0).Row
    S&#220;TUN = ActiveCell.Column
    ListBox1.ColumnCount = 9
    ListBox1.ColumnWidths = "20,60,60,60,60,60,60,60,60"
    ListBox1.RowSource = ActiveSheet.Name & "!" & Cells(SATIR, S&#220;TUN - 1).Address & ":" & Cells(SATIR + 30, S&#220;TUN + 7).Address
    Set Bul = Nothing
    Adres = Cells(SATIR, S&#220;TUN + 4).Address & ":" & Cells(SATIR + 30, S&#220;TUN + 4).Address
    TextBox5 = WorksheetFunction.Max(Range(Adres))
    Exit Sub
    End If
    End If
    Next
    
    If Bul Is Nothing Then
    Set Bul = Nothing
    MsgBox Plaka & " ile e&#351;le&#351;en bir PLAKA bulunamad&#305;", vbCritical, "Uyar&#305;"
    End If
    End If
End Sub

 

[hassan26]

Sayın Korhan Ayhan teşekkür ediyorum bu sayede veri doğrulama mantığını kullandım textbox1'e yazılan değerin bir öncekinden küçük olmamasını sağlamış oldum sayın uzman arkadaşım ekli dosyada bir sorum daha olacak mümkünse bunada bir bakarmısın teşekkür ediyorum
Saygılar

 

[hassan26]

Selam
Dünden beridir uğraşıyorum Listboxta istenen satıra yani arada boş kalan satıra veri girmeyi bir türlü başaramadım her sefer denememde Hata gönder mesajı ve ardından Windows şu verileri kurtarıyor falan sonra bilgisayar kaput formüle barutumu fazla koyuyorum bi türlü çözemedim.
Yardımlarınızı dörtgözle bekliyorum
Saygılar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton3_Click()
    Cevap = MsgBox("Seçtiğiniz kayıt üzerinde yaptığınız değişikliği onaylıyor musunuz?", vbExclamation + vbYesNo, "Dikkat !")
    If Cevap = vbYes Then
    If ListBox1.ListIndex < 0 Then Exit Sub
    
    SATIR = ActiveCell.Row + 2
    For X = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(X) = True Then
    Range("C" & ListBox1.ListIndex + SATIR).Select
    End If
    Next
        
    ListBox1.RowSource = ""
    ActiveCell = ComboBox1
    ActiveCell.Offset(0, 1) = TextBox1.Value
    ActiveCell.Offset(0, 2) = TextBox2.Value
    ActiveCell.Offset(0, 3) = ComboBox2
    ActiveCell.Offset(0, 4) = TextBox3.Value
    ActiveCell.Offset(0, 5) = TextBox4.Value
    ComboBox1_Change
    End If
End Sub

 

[hassan26]

Korhan bey teşekkür ediyorum. Mükemmel olmuş.
Allah zihin açıklığı versin
Saygılar.