- Katılım
- 23 Ocak 2007
- Mesajlar
- 6
- Excel Vers. ve Dili
- excel 2003 türkçe
Aşağıda Verdiğim kod'da 2 excel sayfasında 1 sayfadan diğer sayfaya karakter eşleştirerek karakterin sağına doğru 1.sayfadaki verilere bakarak aynı verileri yazması kodudur.
Vereceğim örnek kitapta kantrol edebilirsiniz...
Saygılar...
Vereceğim örnek kitapta kantrol edebilirsiniz...
Saygılar...
Option Explicit
Dim Kapat As Boolean
Dim Dur As Boolean
Private Sub cmdDur_Click()
If MsgBox("İşlemi Durdurmak istediğinizden eminmisiniz?", vbExclamation + vbYesNo, "İşlemi Durdur") = vbYes Then
Dur = True
DoEvents
End If
End Sub
Private Sub ProgressBar1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
End Sub
Private Sub UserForm_Activate()
Dim VeriTabanıKayıtSayısı As Double
Dim TabloKayıtSayısı As Double
Dim VeriTabanıBak As Double
Dim TabloyaBak As Double
Dim Günler As Byte
Kapat = True
TabloKayıtSayısı = Sheets(Sayfa2.Name).UsedRange.Rows.Count
VeriTabanıKayıtSayısı = Sheets(Sayfa3.Name).UsedRange.Rows.Count
ProgressBar1.Max = (VeriTabanıKayıtSayısı * TabloKayıtSayısı) + TabloKayıtSayısı
ProgressBar2.Max = TabloKayıtSayısı + 1
For VeriTabanıBak = 2 To VeriTabanıKayıtSayısı + 1
For TabloyaBak = 2 To TabloKayıtSayısı + 1
ProgressBar1 = ProgressBar1 + 1
LabelTamamlanan.Caption = "Tamamlanan: %" & Int(ProgressBar1 / (ProgressBar1.Max / 100))
LabelBakılanPersonel.Caption = "Bakılan Personel: " & Sheets(Sayfa3.Name).Cells(VeriTabanıBak, 1).Value
DoEvents
If Sheets(Sayfa2.Name).Cells(TabloyaBak, 1).Value = Sheets(Sayfa3.Name).Cells(VeriTabanıBak, 1).Value Then
For Günler = 1 To 31
'If IsNumeric(Sheets(Sayfa2.Name).Cells(TabloyaBak, Günler + 3).Value) And Sheets(Sayfa2.Name).Cells(TabloyaBak, Günler + 3).Value <> "" Then
Sheets(Sayfa3.Name).Cells(VeriTabanıBak, Günler + 1).Value = Sheets(Sayfa2.Name).Cells(TabloyaBak, Günler + 1).Value
'End If
Next Günler
End If
ProgressBar2 = TabloyaBak
If Dur = True Then
Kapat = False
Unload Me
Exit Sub
End If
Next TabloyaBak
Next VeriTabanıBak
LabelTamamlanan.Caption = "Tamamlanan: %100"
MsgBox "İşlem tamamlandı...", vbInformation, "Sihirbaz"
Kapat = False
Unload Me
End Sub
Private Sub UserForm_Initialize()
ThisWorkbook.Activate
Sheets(Sayfa3.Name).Select
Dur = False
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Kapat
End Sub