Özel Destek İste

Excel istekleriniz için size özel alandan talep açın

Soru Sor

Excel ile ilgili bir sorunuz mu var, tıklayın

Hazır Dosya İndir

Binlerce Hazır Excel Dosyasını indirin

döngü

  1. hexadesimal

    Soru Optionbutton Döngü Sorunu Hakkında

    Private Sub CommandButton8_Click() On Error Resume Next Dim S1 As Worksheet, x As Byte, y As Integer, Satir As Long, Sutun As Integer If ComboBox1 = "" Then MsgBox "Lütfen DERS giriniz!", vbCritical: Exit Sub If ComboBox2 = "" Then MsgBox "Lütfen KONU giriniz!", vbCritical: Exit Sub If ListBox2...
  2. muhammethezer

    Soru Labelde Zaman Bağlı Veri Göstermek

    Merhaba Arkadaşlar, Ekli dosyada bulunan TV_DASHBOARD_FORM üzerinde bazı veriler almak istiyorum. Yardımcı olabilecek arkadaşlara şimdiden Teşekkür ederim. Kayıtlar sayfası C2:C kolonunda bulunan Mahalle adlarını her 2 saniyede bir değişerek Label8 de görmek. (Bu bir döngü şeklinde Alfabetik...
  3. hexadesimal

    Soru Anket oluşturma ve veri giriş otomasyonu

    Herkese merhaba. Bir anket otomasyonu yapmaya çalışıyorum.Yapılan anketleri excel ortamına aktarmada kullanacağım.Aslında bitti. Ancak işlemi biraz daha pratik hale getirmek adına bir yerde takıldım. Anket girişi formuna döngüye alınmış tetxboxları getirip burdan veri girişi yapıyorum. Ancak...
  4. Ö

    Soru FOR DÖNGÜ

    Merhabalar makro çalışıyor ancak bir satır devam ediyor 3000 satır dursun istiyorum. ben başka bir sutün devam etsin istiyorum nasıl yapabilirim. Sub RunME() Range("A1").Select Comb 54, 6, 1, " ' " For n = 90 To 65 Step -1 Rept = Chr(n) Range("A:A").Replace What:=n - 64 & " ", Replacement:=rep1...
  5. W

    Çözüldü Hücredeki rakam kadar alta satır ekleme

    Merhebalar; a sutununda isimler var , b sütününde rakamlar var. b sutunundaki rakam kadar aşağıya doğru satır ekleyebilir miyiz. isim 1 isim 1 isim 5 isim 3 isim 8 isim 3 isim 10
  6. hexadesimal

    Çözüldü Fonksiyonu Döngüye almak mümkün mü?

    Sub SadeceSayi(obj) 'Userform metin kutusuna sadece rakam girilmesine izin verir Dim i As Integer Dim str As String If TypeName(obj) = "TextBox" Then With obj For i = 1 To Len(obj.Text) str = Mid(.Text, i, 1) If Not IsNumeric(str) And .Value <> vbNullString Then .Text =...
Üst Alt