तारीख बदलते ही डेटा की अगली लाइन पर जाना

Question

मेरे पास निम्नलिखित कोड है ...

उप परीक्षण ()

Workbooks("MAY10-Key Indicator Daily Reportcopy.xls").Sheets("Input").Activate
Set c = Range("B15:B45")
For Each cell In c
    If cell.Value = Range("I5").Value Then
        Workbooks("McKinney Daily Census Template NOV 10.xls").Sheets("McKinney").Range("C15:I15").Copy
        cell.Offset(0, 37).PasteSpecial
    End If
    Next
Application.CutCopyMode = False

If Cell.Value = Date Then
    Range(Cells(Cell.Row + 1, 3).Address, Cells(Cell.Row + 1, 9).Address).Select
    Cells(Cell.Row + 1, 3).Activate
   Exit For
End If

Next Cell
End Sub

डब्लूबी (मैकिनी डेली सेंसस टेम्प्लेट ...) में, मेरे पास तारीखों का एक कॉलम है जो दूसरे WB के साथ मेल खाता है। जब तारीख बदलती है तो मुझे अगली पंक्ति सीमा तक छोड़ने के लिए WB (McKinney ...) की आवश्यकता होती है। अर्थात

11/01/10 - C15:I15

11/02/10 - C16:I16

11/03/10 - C17:I17

इसे पूरा करने के लिए मुझे अपने कोड में क्या जोड़ना होगा। धन्यवाद

Comments

इसलिए जब आप WB McKinney को खोलते हैं, तो आप I के माध्यम से कॉलम C में अगली खाली पंक्ति का स्वतः चयन करने के लिए एक्सेल चाहते हैं

— Xantec

हाँ, लेकिन वे खाली नहीं होंगे। इसमें इसका डेटा होगा

— ed

@Xantec। वास्तव में जब मैं अगले दिन मैक्रो चलाता हूं, तो मैं चाहता हूं कि यह स्वचालित रूप से i के माध्यम से कॉलम सी में अगली पंक्ति का चयन करे

— edmon

महान, स्पष्ट करने के लिए एक अंतिम बिंदु और फिर मुझे आपके लिए इसे कोड करने में सक्षम होना चाहिए। क्या कोई कॉलम है जिसमें तारीखें हैं? यदि नहीं, तो C में पंक्तियाँ हैं: मैं अगले दिन से पहले खाली हूँ?

— Xantec

हाँ। कॉलम बी 15: बी 45 में चालू माह की तारीखें हैं।

— एड

Answer 1

यह कोड टिप्पणियों में दर्शाई गई आवश्यकताओं के लिए विशिष्ट होने के लिए अपडेट किया गया है।

Sub test()
    Dim MayCell As Range, MayC As Range
    Dim McCell As Range, McC As Range
    Dim McK As Workbook, MAY10 As Workbook
    Dim ChkDate As Variant

    Set MAY10 = Workbooks("MAY10-Key Indicator Daily Reportcopy.xls")
    'may need to change, if your MAY10 file name changes
    Set McK = Workbooks("McKinney Daily Census Template NOV 10.xls")
    'this may need to change for each month/year

    MAY10.Activate
    MAY10.Sheets("Input").Activate
    ChkDate = Range("I5").Value
    Set MayC = Range("B15:B45")
    For Each MayCell In MayC
        If MayCell.Value = ChkDate Then
            McK.Activate
            McK.Sheets("McKinney").Activate
            Set McC = Range("B15:B45")
            For Each McCell In McC
                If McCell.Value = ChkDate Then
                    Range(Cells(McCell.Row, 3).Address, Cells(McCell.Row, 9).Address).Copy
                    Exit For
                End If
            Next McCell
            MAY10.Activate
            MayCell.Offset(0, 37).PasteSpecial
            Exit For
        End If
    Next MayCell
    Application.CutCopyMode = False
End Sub

Comments

मुझे एक कंपाइल एरर मैसेज मिलता है जो कहता है ... एक्ज़िट फ़ॉर फॉर

— नॉट फ़ॉर

क्या आप अपने प्रश्न में कोड को अपडेट कर सकते हैं कि यह अब मेरे जैसा जोड़ा गया है, के साथ क्या दिखता है?

— Xantec

अब इसे अपडेट किया गया है।

— 20

ठीक है, मैंने अपने उत्तर में कोड को अपडेट किया है, जिसमें आपके प्रश्न का कोड भी शामिल है। यदि आप अपने मॉड्यूल से अपना सब टेस्ट () हटा दें और मेरे जवाब में सभी कोड में कॉपी करें तो यह काम करना चाहिए

— Xantec

यह पहली पंक्ति के डेटा (दिनांक 11/01/10) को कॉपी करता है। लेकिन यह डेटा की अगली पंक्ति के लिए नीचे नहीं जाता है जब मैं दिनांक को दिनांक 11/02/10 को बदल देता हूं, तो यह अगले दिन के लिए फिर से 11/01/10 डेटा को फिर से पेस्ट करता है

— कॉल करें