• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sorgu için arama sonuçları: xlValidateList

  1. ÖmerFaruk

    Soru Butonla VeriDoğrulama (Inputbox) Yaptırma

    ...satır boş ise G sütununda liste olmasın. Anladığım doğruysa aşağıdaki kodu istediğiniz olayla tetikleyebilirsiniz. Sub VeriDoğrula() Son = Range("J2").End(xlDown).Row Range("G:G").Validation.Delete Range("G3:G" & Son).Validation.Add xlValidateList, Formula1:="Hazır,Bekliyor" End Sub
  2. S

    Seçime göre bilgi alma

    ...1) = Application.Transpose(dic.keys) SMGBA.Range("B1").Validation.Delete SMGBA.Range("B1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=" & SO.Name & "!$A$1:$A$" & SO.Cells(Rows.Count, "A").End(3).Row ''''''' aranan =...
  3. burhancavus61

    Soru Makro yavaş çalışıyor.

    ...If Next Sh With Sheets("Bildirge_Giriş_Bilgileri").Range("C8").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Syf .IgnoreBlank = True .InCellDropdown = True...
  4. cimcoz

    Sınıflara ait Sınav Notlarını Getirme

    Sayın Ömer, Ekte vb tarafına belirttiğiniz kodu ekledim.Ama hatalı eklemiş olabilirim zira çalışmadı. Dosya üzerinde gerekli düzelmeyi yapıp, ekli olarak yollayabilirseniz çok sevinirim. Saygılarımla,
  5. Ömer

    Sınıflara ait Sınav Notlarını Getirme

    ...i = 3 To Ss.Cells(Rows.Count, "B").End(xlUp).Row deg = Ss.Cells(i, "B") If Not d.exists(deg) Then d.Add deg, Nothing End If Next i Range("C1").Validation.Delete Range("C1").Validation.Add Type:=xlValidateList, Formula1:=Join(d.keys, ",")...
  6. wezyr

    Soru Mükerrer (tekrar eden) veri bilgilerini görmek

    ...End If Next i Range("A1").Validation.Delete If dc.Count > 0 Then Range("A1").Validation.Add xlValidateList, Formula1:=Join(dc.keys, ",") End If End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) =...
  7. Cengizhantr06

    VBA da boşluksuz veri doğrulama

    istediğim gibi oldu çok çok teşekkür ederim ilginiz için :)
  8. Muzaffer Ali

    VBA da boşluksuz veri doğrulama

    Merhaba. Sub VD() Sayfa1.[b2:b1000].Validation.Delete Sayfa1.[b2:b1000].Validation.Add Type:=xlValidateList, Formula1:="=Sayfa2!$A$1:$A$" & worksheets("sayfa2").cells(rows.count,"A").end(xlup).row End Sub
  9. Cengizhantr06

    VBA da boşluksuz veri doğrulama

    Sub VD() Sayfa1.[b2:b1000].Validation.Delete Sayfa1.[b2:b1000].Validation.Add Type:=xlValidateList, Formula1:="=Sayfa2!$A$1:$A$20" End Sub Bu kodu cok güzel çalışıyor ama mesala sayfa2 deki verilerden a1 ile a 20 arasını son 5 veriyi silince bu sefer veri doğrulama da boşluklar oluyor bu...
  10. Cengizhantr06

    kullandığım bi formülün vba kodunu bi türlü beceremedim yardım edermisiniz

    ...bey şu oldu ama sayfa 2 deki a1 den 20 ye olan verileriden son 5 sini silsem mesala diğer tarafda veri doğrulamada boşluk oluşuyor o boşlugu nasıl kalırabiliriz Sub VD() Sayfa1.[b2:b1000].Validation.Delete Sayfa1.[b2:b1000].Validation.Add Type:=xlValidateList, Formula1:="=Sayfa2!$A$1:$A$20"...
  11. Cengizhantr06

    vba da veri doğrulama hakkında yardımcı olurmusunuz

    çok güzel oldu tşk ederim peki diyelim sayfa2 de ki a1 den a 20 ye kadar olan kısımda verilerin son 5ini sildim o zaman veri doğrulamada boşluk oluyor o boşluğu kaldırmamız mümkünmü acaba
  12. Seyit Tiken

    vba da veri doğrulama hakkında yardımcı olurmusunuz

    Bu şekilde deneyiniz. Sub VD() Sayfa1.[b2:b1000].Validation.Delete Sayfa1.[b2:b1000].Validation.Add Type:=xlValidateList, Formula1:="=Sayfa2!$A$1:$A$20" End Sub
  13. B

    Aralıklı Liste Oluşturmak

    Üstad kod harika çalışıyor çok teşekkürler. Sadece alttaki kısmın bitiş hücresinde revizyon yapabilir miyiz Set Rng = Range("A2:A5,A11:A14") A14 yerine A sütununda en altta dolu hücre adresini (değişken olabilir) belirlesin
  14. B

    Aralıklı Liste Oluşturmak

    Desteğiniz için çok teşekkür ederim üstadım, sağlıcakla kalın.
  15. N

    Aralıklı Liste Oluşturmak

    ...Txt = Txt & "," & Hcr End If Next Hcr With Range("C2:C6").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="" & Txt & "" .IgnoreBlank = True .InCellDropdown =...
  16. burhancavus61

    boş hücrede gölge

    ..., AllowFiltering:=True Exit Sub End If With Sheets("Sabitler").Range("E21").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Syf .IgnoreBlank = True .InCellDropdown = True...
  17. burhancavus61

    sayfa adı getirme kod hatası

    ...End If End If Next Sh With Sheets("Sabitler").Range("E21").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Syf .IgnoreBlank = True .InCellDropdown = True...
  18. H

    ad tanımlamalarını veri doğrulamada gösterme

    ...myList(1 To ThisWorkbook.Names.Count) For i = 1 To UBound(myList) myList(i) = ThisWorkbook.Names(i).Name Next Range("A1").Validation.Delete Range("A1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(myList(), ",") End Sub .
  19. recepkull

    Kodlamada düzeltme

    ...O11:BL11, O14:BL14, O17:BL17, O20:BL20, O23:BL23, O26:BL26, O29:BL29, O32:BL32, O35:BL35, O38:BL38, O41:BL41, O44:BL44, O47:BL47, O50:BL50, O53:BL53").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=x End With End Sub
  20. S

    Makro ile açılır liste

    sayfa kodu olarak ekledim ama açışta çalışmadı.
Geri
Üst